Question

label的闪烁

Private Sub Timer1_Timer()
Label1.Visible = False
Label1.Visible = True
End Sub
为什么这样不会出现闪烁效果？不管怎么设置interval，timer的enabled也是开着灯的啊

Answer 1

你这样肯定不会闪啊
Label1.Visible = False
Label1.Visible = True
结果总是True

改成这样就行了
Private Sub Timer1_Timer()
Label1.Visible = Not Label1.Visible
End Sub

Answer 2

这样写是不对的，interval不起作用，
Label1.Visible = False
Label1.Visible = True
改成一句就可以了
Label1.Visible = !Label1.Visible

Answer 3

Private Sub Timer1_Timer()
Label1.Visible = Not Label1.Visible
End Sub

Answer 4

中间加sleep
或者空循环
Private Sub Timer1_Timer()
Label1.Visible = False
for i=1 to 9999'可以调节
doevents
next
Label1.Visible = True
End Sub

Answer 5

‘FALSE和 TRUE之间时间太短了。下边代码有闪烁效果。

Dim i As Integer
Private Sub Timer1_Timer()
i = i + 1

If i / 2 = i \ 2 Then Me.Label1.ForeColor = &H8000000F Else Me.Label1.ForeColor = &H80000012
If i > 100 Then i = 1
End Sub