标题: (VB)闪烁的Label [打印本页]

---

作者: 毛主席    时间: 2007-10-11 09:36     标题: (VB)闪烁的Label

闪烁的Label


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

---

作者: yang321    时间: 2007-10-11 11:29

怎么想起在这发VB的东西，我正在学这个。可惜我的教程不全。你有VB的全套的视频教程吗？

---

欢迎光临 ::电驴基地:: (https://www.cmule.com/)

Powered by Discuz! 6.0.0