说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

闪烁的Label-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
闪烁的Label-VB资料


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

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘