Tôi muốn tạo hiệu ứng cho các nút lệnh trong Form, khi rê chuột qua một nút nào đó thì màu của nút lệnh đó thay đổi, khi rê chuột qua chỗ khác thì nút lệnh đó trở lại như ban đầu.
Hiện tại mình đang lo một số việc dang dở nên không tạp trung code, đợi các cao thủ trên đây code trước xem vướng đâu mình tham gia dễ hơn. Nếu không ai làm mình sẽ code khi thu xếp được time.
Xin Thầy Tuân làm dùm là phóng to ảnh tại vị trí con trỏ chuột chứ không phải là phóng to toàn bộ ảnh (như dùng Magnifier của windows vậy- kính lúp chiếu vào vùng nào của ảnh thì phóng to chổ đó thôi).
Em thấy nếu sử dụng sự kiện click chuột vào Image1 mới hiện frame và move đến đâu ảnh chuyển tới đó thì có vẻ mịn hơn. Song đó cũng là 1 phương pháp dùng Frame kết hợp với Image
Không biết còn phương pháp nào khác nữa không anh?
Em thấy nếu sử dụng sự kiện click chuột vào Image1 mới hiện frame và move đến đâu ảnh chuyển tới đó thì có vẻ mịn hơn. Song đó cũng là 1 phương pháp dùng Frame kết hợp với Image
Không biết còn phương pháp nào khác nữa không anh?
Có thể vẫn dùng cách đó nhưng phân tích tối ưu hơn, chỉ cập nhật hình khi tọa độ chuột thay đổi thực sự thay đổi.
Có cách khác tốt hơn nhưng mất rất nhiều time để làm đó làm lập trình API.
Cái này làm như sau: hook con trỏ chuột hoặc dùng timer lấy tọa độ chuột để tính toán vùng cần zoom kết hợp lấy handle device context của toàn bộ màn hình -> vẽ vào cần xem.
Em có sưu tầm File này trên Google, khi phóng to ảnh lên 1,5->3,0 thì ảnh bị bể hình(Chác tại do chất lượng Ảnh) Chỉ có phóng to ảnh ở cấp độ 1 thì được. Em xin đưa File lên để mọi người tham khảo(Chờ Thầy Tuân lập trình API)(Thanks Andy Pope)
Em có sưu tầm File này trên Google, khi phóng to ảnh lên 1,5->3,0 thì ảnh bị bể hình(Chác tại do chất lượng Ảnh) Chỉ có phóng to ảnh ở cấp độ 1 thì được. Em xin đưa File lên để mọi người tham khảo(Chờ Thầy Tuân lập trình API)(Thanks Andy Pope)
Bạn đã gửi bài hỏi cho bác Siwtom - Tôi xin phép được nhắc tới tên bác tại topic này vì file đính kèm dưới đây là do bác viết.
Cái tâm của một con người lớn lắm.
dhn46 lại nhớ lại 1 đoạn trong bài phát biểu tổng thống Obama trong chuyến thăm Việt Nam lần này:
Kinh nghiệm của hai nước cũng là bài học cho thế giới. Trong bối cảnh thế giới đang có nhiều xung đột tưởng như bất trị, không dứt. chúng ta đã chứng minh trái tim có thể thay đổi, tương lai sẽ khác nếu ta từ chối làm tù nhân của quá khứ, hòa bình tốt đẹp hơn chiến tranh rất nhiều. Rằng tiến bộ và phẩm giá con người sẽ được phát huy tốt nhất qua hợp tác chứ không phải xung đột.
Cám ơn bạn dhn46 đã chia sẻ file của Thầy Siwtom, đúng như bạn nói"Cái tâm của một con người lớn lắm.", Cám ơn Thầy Siwtom, Thầy đã giúp em rất nhiều File,( em chẳng biết gì về VBA), nhưng em học được nhiều ở Thầy Siwtom về "Cái tâm". Thầy ở nước ngoài và cũng bận rộn công việc nhưng Thầy vẫn sẵn sàng giúp những bạn bè, những thành viên trong DD như em.
Đương nhiên ta sẽ dùng thêm sự kiện UserForm_MouseMove để thay đổi màu. Có điều nếu dùng theo cách bình thường thì bạn sẽ thấy khi ra chuột vào UserForm hoặc CommandButton, màu sắc bị giật giật rất khó chịu
Tôi có cách này:
PHP:
Private Chk As Boolean
Private Sub UserForm_Initialize()
Chk = True
End Sub
PHP:
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Chk Then
With CommandButton1
.BackColor = 255: .ForeColor = 65535
End With
Chk = False
End If
End Sub
PHP:
Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Chk Then
With CommandButton2
.BackColor = 255: .ForeColor = 65535
End With
Chk = False
End If
End Sub
PHP:
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Chk = False Then
CommandButton1.BackColor = -2147483633: CommandButton1.ForeColor = 16711680
CommandButton2.BackColor = -2147483633: CommandButton2.ForeColor = 16711680
Chk = True
End If
End Sub
Thử xem, sẽ thấy sự thay đổi màu sắc qua lại rất là... mượt
Các anh chị có thể giúp em tạo Class Module để tất cả các CommandButton trong file với tên bất kỳ có thể thực hiện được lệnh này không ạ (Ví dụ file em có nhiều Form và nhiều Button)
Làm ơn giúp để khi bấm vào các nút (hyperlink đến các sheet) thì nó sẽ chuyển thành màu vàng, nghĩa là nếu đang đứng ở sheet nào thì nút đó trở thành màu vàng. Xin cảm ơn cả nhà
Làm ơn giúp để khi bấm vào các nút (hyperlink đến các sheet) thì nó sẽ chuyển thành màu vàng, nghĩa là nếu đang đứng ở sheet nào thì nút đó trở thành màu vàng. Xin cảm ơn cả nhà
Sub Macro1()
' nut can To vang
ActiveSheet.Shapes.Range(Array("Rounded Rectangle 1")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 255, 0)
.Transparency = 0
.Solid
End With
