闪烁的Label 其实没有直接的方式可以如同在Dos环境中,有所谓"闪烁"字型的设定,那只有透过 Timer来设定字体的出现、消失模拟。'在Form中放数个Label与一个timer '如果我们设定Label的Tag属性为"1",那该Label便会闪烁 Private Sub Form_Load() Label1.Tag = "1" Timer1.Interval = 500 End SubPrivate 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你自己参考一下吧
其实没有直接的方式可以如同在Dos环境中,有所谓"闪烁"字型的设定,那只有透过
Timer来设定字体的出现、消失模拟。'在Form中放数个Label与一个timer
'如果我们设定Label的Tag属性为"1",那该Label便会闪烁
Private Sub Form_Load()
Label1.Tag = "1"
Timer1.Interval = 500
End SubPrivate 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你自己参考一下吧