Question

在VB中， 如果添加LED控件（显示在窗体中像个灯泡一样的）？怎么实现模拟LED灯颜色的控制？

假如有两个按钮， 执行command1_click，灯变红色，过10秒之后， 灯自动变绿色， 再过10秒灯红色， 依次循环。
执行command2_click，灯关闭。

Answer 1

Option Explicit

Dim iCurr As Integer

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Shape1.BackColor = RGB(255, 255, 255)
iCurr = 0
End Sub

Private Sub Form_Load()
iCurr = 0
End Sub

Private Sub Timer1_Timer()
Shape1.BackColor = IIf(iCurr Mod 2 = 0, RGB(255, 0, 0), RGB(0, 255, 0))
iCurr = iCurr + 1
End Sub

在此程序中除了两个按钮外，还需要一个计时器和一个Shape控件