有如圖一這樣一個(gè)小程序，通過“菜單”下的色彩設(shè)置，可以將窗體的背景分別改為“紅”、“綠”、“藍(lán)”色，點(diǎn)擊“菜單”下的“退出”，則自動(dòng)退出程序。


圖一

一、界面設(shè)置：

根據(jù)第一節(jié)學(xué)到的知識(shí)，我們制作一個(gè)如圖二的菜單。


圖二

需要注意的是，“菜單”為一級(jí)，“色彩設(shè)置”、“退出”為二級(jí)、“紅色”、“綠色”、“藍(lán)色”為三級(jí)菜單，根據(jù)圖二中每行前面點(diǎn)的多少可以判斷出來。

另外，不要忘記勾選“紅”、“綠”、“藍(lán)”三種色彩的菜單前的“復(fù)選”選項(xiàng)。

二、輸入程序代碼：

1、退出菜單：

在 VB 中，End 是專門用來退出程序的命令，因此，我們?cè)凇巴顺霾藛巍敝休斎肴缦麓a：

Private Sub MenuQuit_Click()

End

End Sub

這樣，只要點(diǎn)擊本菜單，自動(dòng)退出程序。

2、復(fù)選菜單的判斷：

在 VB 中，可以用如下語法對(duì)復(fù)選菜單進(jìn)行判斷：

復(fù)選菜單名.Checked = True/False

當(dāng)值為 True ，復(fù)選菜單被選中；值為 False ，菜單未被選中。

3、我們要讓程序在初始狀態(tài)下保持本色，在 Form 的裝入事件中輸入以下代碼：

Private Sub Form_Load()

MenuRed.Checked = False

MenuGreen.Checked = False

MenuBlue.Checked = False

End Sub

這段程序，讓三個(gè)復(fù)選菜單都處于未被選中狀態(tài)（在程序運(yùn)行時(shí)起作用，在設(shè)計(jì)過程中，三個(gè)復(fù)選菜單始終是處于選中狀態(tài)）。

4、當(dāng)按下紅色菜單（MenuRed）：

Private Sub MenuRed_Click()

MenuRed.Checked = True

MenuGreen.Checked = False

MenuBlue.Checked = False

Form1.BackColor = vbRed

End Sub

這段代碼，讓“紅色菜單”處于選中狀態(tài)，而其他顏色的菜單處于未被選中狀態(tài)，同時(shí)將窗體的背景色變?yōu)榧t色（VbRed）。

5、當(dāng)按下綠色菜單（MenuGreen）：

Private Sub MenuGreen_Click()

MenuRed.Checked = False

MenuGreen.Checked = True

MenuBlue.Checked = False

Form1.BackColor = vbGreen

End Sub

綠色菜單處于選中狀態(tài)，其他菜單非選中，同時(shí)窗體背景色變?yōu)榫G色。

6、按下藍(lán)色菜單：

Private Sub MenuBlue_Click()

MenuRed.Checked = False

MenuGreen.Checked = False

MenuBlue.Checked = True

Form1.BackColor = vbBlue

End Sub

藍(lán)色菜單處于選中狀態(tài)，其他菜單非選中，同時(shí)窗體背景變?yōu)樗{(lán)色。

7、最后按 F5 鍵，如何，程序正常運(yùn)行了吧？

三、聯(lián)想：

本節(jié)我們講到復(fù)選菜單是如何對(duì)選中進(jìn)行判斷的，那就是看 Checked 值是否為 True 。

前面我們學(xué)過單選按鈕（OptionBUtton）、復(fù)選按鈕（CheckBox），它們也有是否被選中的判斷，那么，它們有什么不同呢？

注意，單選按鈕是否選中的判斷：

單選按鈕名.Value = True/False 。由于單選按鈕只能二選一或多選一，所以往往不需判斷，只需響應(yīng) Click 事件就行了。

復(fù)選按鈕的判斷：

復(fù)選按鈕名.Value = 0/1/2 。由于復(fù)選按鈕可以一次多選，所以對(duì)它的判斷最為復(fù)雜，常常需要用到諸如 If……Then 等條件語句進(jìn)行判斷。但它跟復(fù)選菜單不同的是，復(fù)選菜單常常只能多中選一，比如上面例子中，選擇了“紅色菜單”就不能選擇“藍(lán)色菜單”，等等。 記不清楚的朋友可以回頭復(fù)習(xí)一下，此處不再贅述。