用VB.net模拟十字路口红绿灯交通信号的切换
发布网友
共1个回答
热心网友
实在不难，就是不知道你写了代码没有？
答案补充：
Dim xuhao As Integer
Const wenjianjia = "" '自己写好了
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
xuhao = xuhao + 1
If xuhao = 4 Then xuhao = 1
Picture1.Picture = LoadPicture(wenjianjia & "\" & xuhao & ".ico")
End Sub
