VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 闪烁的Label
发表评论(0)作者:, 平台:, 阅读:13445, 日期:2000-03-29


闪烁的Label


来源:cww


其实没有直接的方式可以如同在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