建站
咨詢
售后
建站咨詢
新聞中心
要怎么用VB做紅綠燈？？？
Private?Sub?Form_Load()
創(chuàng)新互聯(lián)公司專注于中大型企業(yè)的成都網(wǎng)站設(shè)計(jì)、成都做網(wǎng)站、外貿(mào)網(wǎng)站建設(shè)和網(wǎng)站改版、網(wǎng)站營銷服務(wù)，追求商業(yè)策劃與數(shù)據(jù)分析、創(chuàng)意藝術(shù)與技術(shù)開發(fā)的融合，累計(jì)客戶超過千家，服務(wù)滿意度達(dá)97%。幫助廣大客戶順利對接上互聯(lián)網(wǎng)浪潮，準(zhǔn)確優(yōu)選出符合自己需要的互聯(lián)網(wǎng)運(yùn)用，我們將一直專注品牌網(wǎng)站建設(shè)和互聯(lián)網(wǎng)程序開發(fā)，在前進(jìn)的路上，與客戶一起成長！
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編寫紅綠燈程序
給你思路把：當(dāng)汽車運(yùn)動時，他的left和top和right(left+width)和bottom(top+height)碰到紅綠燈的范圍，就停止汽車運(yùn)動的那個計(jì)時器，并將另一個計(jì)時器的時間設(shè)為延時秒數(shù)并開啟，里面的代碼是打開騎車運(yùn)動的計(jì)時器。
VB程序紅綠燈設(shè)計(jì)
1、? 在桌面上，鼠標(biāo)左鍵雙擊，打開VB編程軟件，在左邊工具欄上單擊Image按鈕，在Form1窗口上，繪制出圖框，然后在Image屬性面板的Picture屬性上，單擊【加載圖片】按鈕。
2、?接著，在彈出選取圖片對話框，選擇合適的紅綠燈素材來體現(xiàn)效果，這里先選取了一張紅燈的圖片。
3、在Image屬性面板的名稱屬性上，將其改名為red，標(biāo)識后就不會與其他圖混淆。
4、在VB編程的界面中也可以直接復(fù)制控件，如將red這個Image控件復(fù)制兩個出來，不加入控件組，并將后兩個依次改名為yellow、green。
5、?然后，將yellow圖形控件與red控件重疊，并右鍵單擊，在彈出的菜單中選擇【移至底層】，放好后，green 圖形控件放在最底層。三個圖形控件依紅、黃、綠的順序疊加重合了。
6、接著，鼠標(biāo)左鍵雙擊red圖形控件，彈出輸入代碼窗口，在其上輸入如下代碼段。
網(wǎng)站標(biāo)題：vb.net紅綠燈源代碼 vb紅綠燈編程代碼
網(wǎng)頁路徑：http://www.dlmjj.cn/article/docjpig.html
