Các bạn đã biết hiệu ứng chữ nhấp nháy là do forecolor dc chuyển màu liên tục mới tạo ra hiện nay mình dựa theo đó và viết code :
Trên form bạn tạo 1 label và 2 timer
Tùy theo interval của từng timer mà hiệu ứng lâu hay ngăn ở đây mình đặc nó là 200
Timer2 cho Enabled = False
viết code như sau :
- Code:
-
Private Sub Timer1_Timer()
Label1.ForeColor = &HFF00FF
Timer1.Enabled = False
Timer2.Enabled = True
End Sub
Private Sub Timer2_Timer()
Label1.ForeColor = &HFF0000
Timer2.Enabled = False
Timer1.Enabled = True
End Sub
Chú ý : &HFF00FF và &HFF0000 là màu của label khi nhấp nháy
ở đây
&HFF00FF = màu hồng
&HFF0000 = xanh bạn có thế chỉnh lại theo bản màu tùy ý
___________________________________________________________
1cai1 code khác:
Code:
Timer Đặt 200 nha
Private Sub Timer1_Timer()
Label1.ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
End Sub