網路城邦
回本城市首頁 唐老鴨之家
市長:  副市長:
加入本城市推薦本城市加入我的最愛訂閱最新文章
udn城市資訊科技網路分享【唐老鴨之家】城市/討論區/
討論區VB6 字體:
上一個討論主題 回文章列表 下一個討論主題
紅綠燈VB程式
 瀏覽1,216|回應0推薦0


等級:6
留言加入好友

Rem === 紅綠燈 ===

Rem === 使用元件:Timer1,Shape1,Label1
Dim N As Integer

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000 '1秒鐘
Shape1.FillColor = RGB(255, 0, 0)
N = 10
Label1.Caption = N
End Sub

Private Sub Timer1_Timer()
If N = 1 Then
If Shape1.FillColor = RGB(0, 255, 0) Then
Shape1.FillColor = RGB(255, 0, 0)
Else
Shape1.FillColor = RGB(0, 255, 0)
End If
N = 11
End If
N = N - 1
Label1.Caption = N
End Sub

回應 回應給此人 推薦文章 列印 加入我的文摘

引用
引用網址:https://city.udn.com/forum/trackback.jsp?no=58536&aid=5065743