如何用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最後單擊執行按鈕，在彈出的視窗程式上依次單擊，這時紅、黃、綠三個燈就不斷的變換了。