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

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

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

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

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

2.增加確認標記

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

‘在“足球”菜單項加上“√”記號。

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

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

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

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

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

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

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

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

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

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

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

Text1.Visible=True