当前位置：PB创新网 → 文章中心 → 编程技巧 → VisualBasic

闪烁的Label

减小字体

增大字体作者：佚名来源：本站整理发布时间：2009-03-16 19:48:13

其实没有直接的方式可以如同在Dos环境中，有所谓"闪烁"字型的设定，那只有透过
Timer来设定字体的出现、消失模拟。

''在Form中放数个Label与一个timer
''如果我们设定Label的Tag属性为"1"，那该Label便会闪烁
Private Sub Form_Load()
Label1.Tag = "1"
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
Dim ctl As Control
For Each ctl In Me
If TypeOf ctl Is Label And ctl.Tag = "1" Then
ctl.Visible = Not ctl.Visible
End If
Next
End Sub