要怎么用VB做紅綠燈？？？

Private?Sub?Form_Load()

創新互聯公司專注于中大型企業的成都網站設計、成都做網站、外貿網站建設和網站改版、網站營銷服務，追求商業策劃與數據分析、創意藝術與技術開發的融合，累計客戶超過千家，服務滿意度達97%。幫助廣大客戶順利對接上互聯網浪潮，準確優選出符合自己需要的互聯網運用，我們將一直專注品牌網站建設和互聯網程序開發，在前進的路上，與客戶一起成長！

Timer1.Enabled?=?True

Timer2.Enabled?=?True

Timer3.Enabled?=?False

End?Sub

Private?Sub?Timer1_Timer()

For?i?=?0?To?3

Label1(i).Caption?=?Label1(i).Caption?-?1

If?Label1(i).Caption?=?-1?Then?Label1(i).Caption?=?60

Next

End?Sub

Private?Sub?Timer2_Timer()

If?Label1(1).Caption??3?Then

Shape1.FillColor?=?vbGreen

Shape3.FillColor?=?vbGreen

Else

Shape1.FillColor?=?H80FF

Shape3.FillColor?=?H80FF

End?If

Shape2.FillColor?=?vbRed

Shape4.FillColor?=?vbRed

If?Label1(0).Caption?=?0?Then?Timer3.Enabled?=?True:?Timer2.Enabled?=?False

End?Sub

Private?Sub?Timer3_Timer()

If?Label1(0).Caption??3?Then

Shape2.FillColor?=?vbGreen

Shape4.FillColor?=?vbGreen

Else

Shape2.FillColor?=?H80FF

Shape4.FillColor?=?H80FF

End?If

Shape1.FillColor?=?vbRed

Shape3.FillColor?=?vbRed

If?Label1(0).Caption?=?0?Then?Timer2.Enabled?=?True:?Timer3.Enabled?=?False

End?Sub

用VB.NET編寫紅綠燈程序

給你思路把：當汽車運動時，他的left和top和right(left+width)和bottom(top+height)碰到紅綠燈的范圍，就停止汽車運動的那個計時器，并將另一個計時器的時間設為延時秒數并開啟，里面的代碼是打開騎車運動的計時器。

VB程序紅綠燈設計

1、? 在桌面上，鼠標左鍵雙擊，打開VB編程軟件，在左邊工具欄上單擊Image按鈕，在Form1窗口上，繪制出圖框，然后在Image屬性面板的Picture屬性上，單擊【加載圖片】按鈕。

2、?接著，在彈出選取圖片對話框，選擇合適的紅綠燈素材來體現效果，這里先選取了一張紅燈的圖片。

3、在Image屬性面板的名稱屬性上，將其改名為red，標識后就不會與其他圖混淆。

4、在VB編程的界面中也可以直接復制控件，如將red這個Image控件復制兩個出來，不加入控件組，并將后兩個依次改名為yellow、green。

5、?然后，將yellow圖形控件與red控件重疊，并右鍵單擊，在彈出的菜單中選擇【移至底層】，放好后，green 圖形控件放在最底層。三個圖形控件依紅、黃、綠的順序疊加重合了。

6、接著，鼠標左鍵雙擊red圖形控件，彈出輸入代碼窗口，在其上輸入如下代碼段。

文章名稱：vb.net紅綠燈源代碼 vb紅綠燈編程代碼
地址分享：http://m.newbst.com/article6/docjpig.html

成都網站建設公司_創新互聯，為您提供品牌網站建設、App設計、企業網站制作、企業建站、動態網站、網站策劃

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯