如何用VB做紅綠燈小程序

VB編程軟件是常用的簡單的編程軟件，可以做很多實用的小程序，比如大家在十字路口看到的紅綠燈，也可用VB編個小程序來模擬，用鼠標單擊使其由紅燈變黃燈，再由黃燈變綠燈，最後由綠燈變為紅燈，依次單擊，燈的顏色就不斷變換。大家可以參考以下步驟來做做吧。

操作方法

（01）在桌面上，鼠標左鍵雙擊，打開VB編程軟件，在左邊工具欄上單擊Image按鈕，在Form1窗口上，繪製出圖框，然後在Image屬性面板的Picture屬性上，單擊【加載圖片】按鈕，如下圖所示。

（02）接着，在彈出選取圖片對話框，選擇合適的紅綠燈素材來體現效果，這裏先選取了一張紅燈的圖片，在Form1上可看見其圖了，如下圖所示。

（03）然後，在Image屬性面板的名稱屬性上，將其改名為red，標識後就不會與其他圖混淆，以免都稱為Image，不好區分，如下圖所示。

（04）接着，在VB編程的界面中也可以直接複製控件，如將red這個Image控件複製兩個出來，不加入控件組，並將後兩個依次改名為yellow、green，如下圖所示。

（05）然後，將yellow圖形控件與red控件重疊，並右鍵單擊，在彈出的菜單中選擇【移至底層】，放好後，green 圖形控件放在最底層。三個圖形控件依紅、黃、綠的順序疊加重合了，如下圖所示。

（06）接着，鼠標左鍵雙擊red圖形控件，彈出輸入代碼窗口，在其上輸入如下代碼段：Private Sub red_Click()        ’紅燈單擊ble = False                ’紅燈不可見ble = True            ’黃燈可見End SubPrivate Sub yellow_Click()   ’黃燈單擊ble = False           ’黃燈不可見ble = True             ’綠燈可見End SubPrivate Sub green_Click()     ’綠燈單擊ble = False            ’綠燈不可見ble = True                  ’紅燈可見End Sub最後單擊運行按鈕，在彈出的窗口程序上依次單擊，這時紅、黃、綠三個燈就不斷的變換了。