Question

VB中怎样使得label中的字体每个隔1秒，一个字接一个一个字的闪烁下去

并且在全部字体闪烁完后，周而复始的重新接着一个轮一个的继续闪烁

Answer 1

Private a As Integer
Private Sub Timer1_Timer()
Dim i As Integer
For i = 0 To Me.Label1.Count - 1
Label1(i).ForeColor = &H80000012
Next i
If a > Me.Label1.Count - 1 Then
a = 0
Label1(a).ForeColor = &HFF&
Else
Label1(a).ForeColor = &HFF&
a = a + 1
End If
End Sub

追问

你好，你的代码不行啊！

追答

拖上去一个label数组 Label1(0) Label1(1) Label1(2) 。。。。。一个Timer1控件 状态启动 时间设为1000 我测试过的没问题的