Tạo hiệu ứng cho button

[ThaiDieuAnh]

Giả sử em có 1 Form gồm 10 button, em muốn có 1 button thu hút tầm nhìn bằng cách cứ 0.5s đổi mầu capion 1 lần (em đã thử bằng cách bôi đậm hoặc đặt màu chữ của cái button này nhưng thấy không đẹp, còn dùng sự kiện MouseMove thì phải rê chuột mới thấy thay đổi ). Mong các anh chị giúp đỡ, em xin cảm ơn

 

[be_09]

Giả sử em có 1 Form gồm 10 button, em muốn có 1 button thu hút tầm nhìn bằng cách cứ 0.5s đổi mầu capion 1 lần (em đã thử bằng cách bôi đậm hoặc đặt màu chữ của cái button này nhưng thấy không đẹp, còn dùng sự kiện MouseMove thì phải rê chuột mới thấy thay đổi ). Mong các anh chị giúp đỡ, em xin cảm ơn

Không nên chơi kiểu này vì code chạy ngầm làm ảnh hưởng đến mọi công việc khác.

 

[VetMini]

Không nên chơi kiểu này vì code chạy ngầm làm ảnh hưởng đến mọi công việc khác.

Đây là kiểu mấy cái website đời 10 năm về trước:
Màu đổi lia lịa, chớp muốn mù con mắt người xem. Đối với ngừoi thiết kế thì đó là để gây sự chú ý. Đối với ngừoi xem thì đó là màu mè cải lương. Người yếu mắt thì cứ gặp loại này là không thèm xem luôn, click qua chỗ khác.
Loại trình bày website này tuy đã được các chuyên gia liệt vào "những điều cấm kỵ" của thiết kế nhưng vẫn còn thường thấy mãi cho đến những năm gần đây.
Bây giờ lại có ngừoi muốn đi theo vết xe đó.

 

[ndu96081631]

Giả sử em có 1 Form gồm 10 button, em muốn có 1 button thu hút tầm nhìn bằng cách cứ 0.5s đổi mầu capion 1 lần (em đã thử bằng cách bôi đậm hoặc đặt màu chữ của cái button này nhưng thấy không đẹp, còn dùng sự kiện MouseMove thì phải rê chuột mới thấy thay đổi ). Mong các anh chị giúp đỡ, em xin cảm ơn

Rồi nó cứ nhấp nháy riết vậy à bạn?

 

[ThaiDieuAnh]

Đây là kiểu mấy cái website đời 10 năm về trước:
Màu đổi lia lịa, chớp muốn mù con mắt người xem. Đối với ngừoi thiết kế thì đó là để gây sự chú ý. Đối với ngừoi xem thì đó là màu mè cải lương. Người yếu mắt thì cứ gặp loại này là không thèm xem luôn, click qua chỗ khác.
Loại trình bày website này tuy đã được các chuyên gia liệt vào "những điều cấm kỵ" của thiết kế nhưng vẫn còn thường thấy mãi cho đến những năm gần đây.
Bây giờ lại có ngừoi muốn đi theo vết xe đó.

Hì, em chỉ đổi 2 màu chữ caption nhẹ nhàng thôi, không rườm rà lắm anh ạ

Rồi nó cứ nhấp nháy riết vậy à bạn?

Dạ, thực ra em có 1 cái listbox, nếu đến vị trí đặc biệt thì 1 cái button nó sẽ nhấp nháy anh ạ. Anh cứ hướng dẫn em mở form lên là nó nhấp nháy riết rồi em tự chế ạ

 

[ndu96081631]

Hì, em chỉ đổi 2 màu chữ caption nhẹ nhàng thôi, không rườm rà lắm anh ạ

Dạ, thực ra em có 1 cái listbox, nếu đến vị trí đặc biệt thì 1 cái button nó sẽ nhấp nháy anh ạ. Anh cứ hướng dẫn em mở form lên là nó nhấp nháy riết rồi em tự chế ạ

Viết chơi cho vui
1> Tạo 1 Module có tên "modTime" với code:

Dim dTime As Double
Private Sub T_Start()
  dTime = Now + TimeSerial(0, 0, 1)
  With ufExample.cmd1
    .BackColor = IIf((Second(Now) Mod 2), vbYellow, vbBlue)
    .ForeColor = IIf((Second(Now) Mod 2), vbRed, vbWhite)
  End With
  Application.OnTime dTime, "T_Start", , True
End Sub
Private Sub T_Stop()
  On Error Resume Next
  With ufExample.cmd1
    .BackColor = &H8000000F
    .ForeColor = vbBlack
  End With
  Application.OnTime dTime, "T_Start", , False
End Sub

2> Tạo 1 UserForm có tên "ufExample" với code:

Private Sub UserForm_Initialize()
  cmd2.Caption = "Stop"
  Run "modTime.T_Start"
End Sub
Private Sub cmd2_Click()
  With cmd2
    Run IIf(.Caption = "Start", "modTime.T_Start", "modTime.T_Stop")
    .Caption = IIf(.Caption = "Start", "Stop", "Start")
  End With
End Sub
Private Sub UserForm_Terminate()
  Run "modTime.T_Stop"
End Sub

Trên UserForm có 2 CommandButton có tên "cmd1" và "cmd2"