vb红绿灯自动切换_VB红绿灯程序.doc

VB红绿灯程序

Private Sub Command1_Click()

While (1)

Shape1.FillColor = RGB(255, 0, 0)

Shape2.FillColor = RGB(0, 0, 0)

Shape3.FillColor = RGB(0, 0, 0)

Shape4.FillColor = RGB(0, 0, 0)

Shape5.FillColor = RGB(0, 255, 0)

Shape6.FillColor = RGB(0, 0, 0)

Shape7.FillColor = RGB(0, 0, 0)

Shape8.FillColor = RGB(0, 0, 0)

Shape9.FillColor = RGB(255, 0, 0)

Shape10.FillColor = RGB(0, 0, 0)

Shape11.FillColor = RGB(0, 255, 0)

Shape12.FillColor = RGB(0, 0, 0)

For i = 0 ToDoEvents

Next i

Shape1.FillColor = RGB(255, 0, 0)

Shape2.FillColor = RGB(0, 0, 0)

Shape3.FillColor = RGB(0, 0, 0)

Shape4.FillColor = RGB(255, 255, 0)

Shape5.FillColor = RGB(0, 0, 0)

Shape6.FillColor = RGB(0, 0, 0)

Shape7.FillColor = RGB(0, 0, 0)

Shape8.FillColor = RGB(0, 0, 0)

Shape9.FillColor = RGB(255, 0, 0)

Shape10.FillColor = RGB(255, 255, 0)

Shape11.FillColor = RGB(0, 0, 0)

Shape12.FillColor = RGB(0, 0, 0)

For i = 0 To 3000000

DoEvents

Next i

Shape1.FillColor = RGB(0, 0, 0)

Shape2.FillColor = RGB(0, 255, 0)

Shape3.FillColor = RGB(0, 0, 0)

Shape4.FillColor = RGB(0, 0, 0)

Shape5.FillColor = RGB(0, 0, 0)

Shape6.FillColor = RGB(255, 0, 0)

Shape7.FillColor = RGB(0, 0, 0)

Shape8.FillColor = RGB(0, 255, 0)

Shape9.FillColor = RGB(0, 0, 0)

Shape10.FillColor = RGB(0, 0, 0)

Shape11.FillColor = RGB(0, 0, 0)

Shape12.FillColor = RGB(255, 0, 0)

For i = 0 ToDoEvents

Next i

Shape1.FillColor = RGB(0, 0, 0)

Shape2.FillColor = RGB(0, 0, 0)

Shape3.FillColor = RGB(255, 255, 0)

Shape4.FillColor = RGB(0, 0, 0)

Shape5.FillColor = RGB(0, 0, 0)

Shape6.FillColor = RGB(255, 0, 0)

Shape7.FillColor = RGB(255, 255, 0)

Shape8.FillColor = RGB(0, 0, 0)

Shape9.FillColor = RGB(0, 0, 0)

Shape10.FillColor = RGB(0, 0, 0)

Shape11.FillColor = RGB(0, 0, 0)

Shape12.FillColor = RGB(255, 0, 0)

For i = 0 To 3000000

DoEvents

Next i

Wend

End Sub

'****************************************************************************************

上图即为shape控件位置