Question

vb中label闪烁如何解决

以下回答对我没用
更换控件
backstyle改为1

Answer 1

加一个timer控件 然后添加如下代码：

Private Sub Form_Load()
Timer1.Interval = 50
End Sub

Private Sub Timer1_Timer()
Static x As Integer
x = x + 1
If x = 1 Then
Label1.Visible = False
Else
x = 0
Label1.Visible = True
End If
End Sub

Answer 2

Private Sub Timer1_Timer()
Static x As Integer
x = x + 1
If x Mod 2 = 0 Then
Label1.BackColor = &HC0FFFF
Else
Label1.BackColor = &HFFFFFF
End If
End Sub
Private Sub Form_Load()
Timer1.Interval = 500
End Sub