Question

、设计一个窗体，使用Timer控件编程，单击“开始”按钮，控制红色信号灯的交替闪亮，闪亮间隔为0.5秒。单

、设计一个窗体，使用Timer控件编程，单击“开始”按钮，控制红色信号灯的交替闪亮，闪亮间隔为0.5秒。单击“结束”按钮，结束程序（红色信号灯可用标签框模拟）。

Answer 1

比较麻烦的方法。。。

追问

打不开啊 能不能直接给代码啊

追答

Dim a As Integer

Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
a = 0
End Sub

Private Sub Timer1_Timer()
a = a + 1
End Sub

Private Sub Timer2_Timer()
If a Mod 2 = 1 Then
L1.BackColor = &HFF&
ElseIf a Mod 2 = 0 Then
L1.BackColor = &H80000005
End If

End Sub
新建一个label控件L1，两个按钮，两个计时器
定义一个变量a
当计时器1工作时，a每0.5秒+1，通过计时器2判断a是奇数还是偶数，来改变L1的背景色，按钮1控制计时器1的工作状态，按钮2来控制程序结束