要怎么用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)站營(yíng)銷服務(wù)，追求商業(yè)策劃與數(shù)據(jù)分析、創(chuàng)意藝術(shù)與技術(shù)開發(fā)的融合，累計(jì)客戶超過(guò)千家，服務(wù)滿意度達(dá)97%。幫助廣大客戶順利對(duì)接上互聯(lián)網(wǎng)浪潮，準(zhǔn)確優(yōu)選出符合自己需要的互聯(lián)網(wǎng)運(yùn)用，我們將一直專注品牌網(wǎng)站建設(shè)和互聯(lián)網(wǎng)程序開發(fā)，在前進(jìn)的路上，與客戶一起成長(zhǎng)！

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)動(dòng)時(shí)，他的left和top和right(left+width)和bottom(top+height)碰到紅綠燈的范圍，就停止汽車運(yùn)動(dòng)的那個(gè)計(jì)時(shí)器，并將另一個(gè)計(jì)時(shí)器的時(shí)間設(shè)為延時(shí)秒數(shù)并開啟，里面的代碼是打開騎車運(yùn)動(dòng)的計(jì)時(shí)器。

VB程序紅綠燈設(shè)計(jì)

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

2、?接著，在彈出選取圖片對(duì)話框，選擇合適的紅綠燈素材來(lái)體現(xiàn)效果，這里先選取了一張紅燈的圖片。

3、在Image屬性面板的名稱屬性上，將其改名為red，標(biāo)識(shí)后就不會(huì)與其他圖混淆。

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

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

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

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

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站建設(shè)、App設(shè)計(jì)、企業(yè)網(wǎng)站制作、企業(yè)建站、動(dòng)態(tài)網(wǎng)站、網(wǎng)站策劃

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)