Question

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

Answer 1

Dim FCircle As BooleanPrivate Sub Command1_Click()
'设置时钟控件
If Me.Command1.Caption = "开始" Then
FCircle = True
Me.Timer1.Interval = CInt(Me.Text1.Text) * 1000
Me.Timer1.Enabled = True
Me.Command1.Caption = "结束"
Else
FCircle = False
Me.Command1.Caption = "开始"
Me.Timer1.Enabled = False
End If
End SubPrivate Sub Timer1_Timer()
'利用FCircle变量来控制变色
If FCircle = True Then
Me.Label1.ForeColor = vbBlue
FCircle = False
Else
Me.Label1.ForeColor = vbGreen
FCircle = True
End If
End Sub

Answer 2

很简单的，几句就可以了
Private Sub Timer1_Timer()
If Label1.ForeColor = vbGreen Then
Label1.ForeColor = vbBlue
Else
Label1.ForeColor = vbGreen
End If
End Sub

Answer 3

dim tempvaluePrivate Sub Timer1_Timer()tempvalue=tempvalue+1temp=tempvalue mod 3select case case 0Label1.ForeColor = vbGreen case 1Label1.ForeColor = vbBluecase 2Label1.ForeColor = vbGreen
End selectEnd Sub