Question

vb代码：把标签1字体的颜色变成蓝色再变成绿色，再循环，造成动画的效果。

Answer 1

Private Sub Form_Load()
Timer1.Interval = 1000 '设置Timer控件的触发时间为1000毫秒=1秒
Label1.ForeColor = vbBlue '设置标签字体的颜色初始值是蓝色
End Sub

Private Sub Timer1_Timer() '在窗体上放置一个Timer时间控件
If Label1.ForeColor = vbBlue Then
Label1.ForeColor = vbGreen
ElseIf Label1.ForeColor = vbGreen Then
Label1.ForeColor = vbBlue
End If
End Sub

Answer 2

dim n as boolean
const gr=vbGreen as long
const bl=vbBlue as long
Private Sub Form_Load()
Timer1.Interval = 1000
Label1.ForeColor = vbBlue
n=true
End Sub

Private Sub Timer1_Timer()
If n Then
Label1.ForeColor = gr
ElseIf
Label1.ForeColor=bl
End If
End Sub