VisualBasic程序設(shè)計(jì)第10章菜單與工具欄設(shè)計(jì)課件

VisualBasic第10章菜單與工具欄設(shè)計(jì)2009年月日學(xué)院教師：傅茂洺10.1菜單編輯器提要10.2下拉式菜單10.3彈出式菜單10.4制作工具欄一個(gè)完整的菜單通常由：主菜欄、子菜單、菜單項(xiàng)、訪問(wèn)鍵、快捷鍵、分隔符等組成。10.1菜單編輯器“菜單編輯器”的組成屬性設(shè)置區(qū)窗口的上部分用于設(shè)置每個(gè)菜單項(xiàng)的基本屬性編輯區(qū)窗口的中部有7個(gè)按鈕，用于編輯菜單中的各菜單項(xiàng)

菜單項(xiàng)編輯區(qū)窗口的下方區(qū)域，用于顯示輸入的菜單項(xiàng)，編輯好的菜單會(huì)立刻在編輯區(qū)中顯示出來(lái)，并通過(guò)內(nèi)縮符號(hào)表明菜單項(xiàng)的層次“菜單編輯器”中的菜單項(xiàng)主要屬性標(biāo)題(Caption)設(shè)置菜單項(xiàng)顯示的標(biāo)題名稱(chēng)(Name)設(shè)置菜單項(xiàng)的名稱(chēng)索引(Index)設(shè)置菜單控件數(shù)組的下標(biāo)快捷鍵(Shortcut)為菜單項(xiàng)選擇一個(gè)快捷鍵復(fù)選(Checked)設(shè)置某一菜單項(xiàng)是否可選有效(Enabled)設(shè)置菜單項(xiàng)是否可用可見(jiàn)(Visible)設(shè)置菜單項(xiàng)是否可見(jiàn)“菜單編輯器”中的編輯按鈕用于調(diào)整菜單項(xiàng)的級(jí)別。單擊一次“→”按鈕，產(chǎn)生一個(gè)內(nèi)縮符號(hào)“….”用于調(diào)整菜單項(xiàng)的上下位置進(jìn)入下一個(gè)菜單項(xiàng)的編輯插入一個(gè)空白菜單項(xiàng)刪除當(dāng)前菜單項(xiàng)“菜單編輯器”中的顯示區(qū)與對(duì)應(yīng)的菜單項(xiàng)

“菜單編輯器”顯示區(qū)顯示的菜單項(xiàng)目窗體運(yùn)行時(shí)對(duì)應(yīng)的菜單顯示效果【例10-1】設(shè)計(jì)一個(gè)簡(jiǎn)單的下拉式菜單。

窗體設(shè)計(jì)界面窗體執(zhí)行界面設(shè)計(jì)步驟如下：在“菜單編輯器”中建立如下菜單標(biāo)題(Caption)名稱(chēng)(Name)說(shuō)明體育menu1主菜單項(xiàng)….足球menu11菜單命令….游泳menu12子菜單項(xiàng)……..蛙泳menu121菜單命令……..仰泳menu122菜單命令….-menu13分隔符….關(guān)閉menu14菜單命令軍事menu2主菜單項(xiàng)….陸軍menu21菜單命令….海軍menu22菜單命令….空軍menu23菜單命令為相應(yīng)的菜單命令編寫(xiě)事件過(guò)程編寫(xiě)“足球”菜單項(xiàng)的Click事件代碼： PrivateSubmenu11_Click() Label1.Caption="你選擇了足球" EndSub編寫(xiě)“游泳”子菜單下的2個(gè)菜單項(xiàng)的Click事件代碼： PrivateSubmenu121_Click() Label1.Caption="你選擇了蛙泳" EndSub PrivateSubmenu122_Click() Label1.Caption="你選擇了仰泳" EndSub……

2.增加確認(rèn)標(biāo)記

在菜單中，靠近命令的確認(rèn)標(biāo)志表示該命令項(xiàng)已經(jīng)被選擇。需要在菜單中使用缺省選擇時(shí)，則可以設(shè)置確認(rèn)標(biāo)志。當(dāng)“菜單編輯器”中的“復(fù)選”復(fù)選框設(shè)置為選中時(shí)，在相應(yīng)的菜單項(xiàng)左旁會(huì)被加上“√”記號(hào)。在“菜單編輯器”中設(shè)置了的確認(rèn)標(biāo)志，也可以使用代碼將其刪除或加上，如：menu11.Checked=False‘使“足球”菜單項(xiàng)的“√”記號(hào)去除menu11.Checked=True

‘在“足球”菜單項(xiàng)加上“√”記號(hào)。

4.菜單項(xiàng)的隱藏要使菜單項(xiàng)消失而不可見(jiàn)，當(dāng)“菜單編輯器”中的“可見(jiàn)”復(fù)選框設(shè)置為不可選時(shí)，其相應(yīng)的菜單項(xiàng)將被隱藏起來(lái)。也可以在代碼中使一個(gè)菜單項(xiàng)隱藏，如：menu11.Visible=False‘使“足球”菜單項(xiàng)隱藏3.菜單項(xiàng)的有效性控制

有時(shí)候，某些菜單命令暫時(shí)毫無(wú)意義，可以根據(jù)程序的運(yùn)行狀態(tài)，動(dòng)態(tài)的進(jìn)行調(diào)整，暫時(shí)將它模糊，表示該菜單項(xiàng)不可選（呈灰色），如：menu11.Enabled=False

‘使“足球”菜單項(xiàng)不起作用【例10-2】設(shè)計(jì)一個(gè)簡(jiǎn)單的文本編輯器，利用輸入對(duì)話(huà)框輸入文本，通過(guò)菜單命令控制文本框中字體的外觀。其中，部分菜單項(xiàng)具有在其旁加上或取消"√"標(biāo)志、關(guān)閉或隱藏菜單項(xiàng)的功能，并設(shè)有快捷鍵和訪問(wèn)鍵功能，其執(zhí)行界面如圖所示。窗體上菜單的界面10.3彈出式菜單

彈出式菜單（又稱(chēng)“快捷菜單”），只需用戶(hù)在窗體上單擊某一鼠標(biāo)鍵（一般為鼠標(biāo)右鍵）就立即彈出菜單?？旖莶藛慰梢愿鶕?jù)用戶(hù)單擊鼠標(biāo)鍵時(shí)的位置，動(dòng)態(tài)地調(diào)整菜單項(xiàng)的顯示位置，同時(shí)也改變菜單項(xiàng)顯示的內(nèi)容，為用戶(hù)提供了更加便利的操作。設(shè)計(jì)彈出式菜單的方法（1）使用“菜單編輯器”窗口建立一個(gè)頂層菜單（主菜單項(xiàng)）。（2）設(shè)置彈出式菜單的顯示方式。使用PopupMenu方法顯示彈出式菜單。PopupMenu方法的語(yǔ)法格式是：[窗體名.]PopupMenu<菜單項(xiàng)>[,Flags[,X[,Y]]]其中：①“菜單項(xiàng)”是指要彈出的菜單名稱(chēng)（一般是主菜單項(xiàng)或子菜單項(xiàng)的名稱(chēng)）。②X、Y是菜單顯示的位置。③Flags參數(shù)指定彈出式菜單的行為。【例10-3】在例10-2中，將“文件”菜單作為彈出式菜單顯示。運(yùn)行效果如圖所示。

只需在例10-2中增加窗體的MouseDown事件代碼PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAs_Single,YAsSingle)IfButton=2Then‘單擊鼠標(biāo)右鍵時(shí)（Button=2），條件成立PopupMenuFile‘將“文件”菜單中的各菜單項(xiàng)設(shè)定為彈出式

EndIfEndSub程序啟動(dòng)后，在窗體上單擊鼠標(biāo)右鍵時(shí)，即可彈出“文件”快捷菜單。使用ToolBar與ImageList制作工具欄（1）添加ToolBar與ImageList控件。（2）在窗體上ToolBar與ImageList。（3）設(shè)置控件的屬性。（4）編寫(xiě)代碼。用手工方式制作工具欄（1）在窗體中添加一個(gè)圖片框Picture控件（2）選定圖片框，在圖片框中添加任何想在工具欄中顯示的控件（3）設(shè)置控件的屬性（4）編寫(xiě)代碼一般都是在其按鈕的Click事件代碼中調(diào)用對(duì)應(yīng)的菜單命令。【例10-4】在例10-3中，增加一個(gè)自定義的工具欄。

在例10-3的基礎(chǔ)上作修改：1）修改應(yīng)用程序用戶(hù)界面

在窗體上增加一個(gè)圖片框Picture1，然后在圖片框中增加按鈕數(shù)組Command1(0)～Command1(1)和復(fù)選框數(shù)組Check1(0)～Check1(2)1.用手工方式制作工具欄2）設(shè)置新增對(duì)象屬性：對(duì)象屬性屬性值說(shuō)明Picture1Align1-AlignTop使圖片框位于窗體的頂部Command1()Caption清空Style1-Graphical圖形按鈕Picturexg1.bmp、xg2.bmp分別選2個(gè)不同的圖形Check1()Caption清空Style1-Graphical圖形按鈕PictureBld.bmp、Itl.bmp、Undrln.bmp分別選3個(gè)不同的圖形3）面向工具欄上的控件編寫(xiě)事件驅(qū)動(dòng)代碼Toolbar控件的“通用”選項(xiàng)卡Toolbar控件的主要設(shè)置：

在添加有Toolbar控件的窗體上，用鼠標(biāo)右鍵單擊Toolbar控件，在彈出的快捷菜單中選擇“屬性”，可以打開(kāi)“屬性頁(yè)”對(duì)話(huà)框。與之對(duì)應(yīng)的圖像列表控件“通用”選項(xiàng)卡通常需要設(shè)置的是：“圖像列表”屬性選項(xiàng)，它將被用來(lái)與圖像列表(ImageList)控件建立關(guān)聯(lián)

Toolbar控件的“按鈕”選項(xiàng)卡“按鈕”選項(xiàng)卡需要設(shè)置：“索引”、“圖像”等屬性第2個(gè)按鈕的索引值選ImageList控件圖片庫(kù)中的第2張圖片按鈕的提示文本設(shè)計(jì)步驟：1）在窗體上添加ToolBar和ImageList控件2）設(shè)置ImageList控件屬性插入圖片3）設(shè)置ToolBar控件屬性選擇圖像列表設(shè)置按鈕圖片設(shè)置按鈕提示信息4）編寫(xiě)工具欄按鈕的事件代碼PrivateSubToolbar1_ButtonClick(ByValButtonAs_MSComctlLib.Button)n=Button.IndexSelectCasenCase1‘對(duì)第1個(gè)按鈕

Text1.Text=InputBox("請(qǐng)輸入一段文字信息","輸入")

Text1.Visible=True