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

VisualBasic程序設(shè)計(jì)第10章菜單與工具欄設(shè)計(jì),2009年月日,計(jì)算機(jī)學(xué)院,教師：傅茂洺,10.1菜單編輯器,提要,10.2下拉式菜單,10.3彈出式菜單,10.4制作工具欄,一個(gè)完整的菜單通常由：主菜欄、子菜單、菜單項(xiàng)、訪問(wèn)鍵、快捷鍵、分隔符等組成。,10.1菜單編輯器,為了創(chuàng)建菜單，VB提供了一個(gè)設(shè)計(jì)菜單的工具，即“菜單編輯器”?？稍赩B的“工具”菜單下選擇“菜單編輯器”命令，則可打開(kāi)“菜單編輯器”窗口。,屬性設(shè)置區(qū),顯示區(qū),編輯區(qū),“菜單編輯器”的組成,屬性設(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)主要屬性,“菜單編輯器”中的編輯按鈕,“菜單編輯器”中的顯示區(qū)與對(duì)應(yīng)的菜單項(xiàng),“菜單編輯器”顯示區(qū)顯示的菜單項(xiàng)目,窗體運(yùn)行時(shí)對(duì)應(yīng)的菜單顯示效果,10.2下拉式菜單,“下拉式菜單”一般通過(guò)單擊菜單欄中的菜單項(xiàng)的方式打開(kāi)。在下拉式菜單系統(tǒng)中，一般有一個(gè)主菜單，稱為“菜單欄”,建立菜單的步驟（1）打開(kāi)“菜單編輯器”設(shè)置各項(xiàng)菜單項(xiàng)（2）為相應(yīng)的菜單命令編寫(xiě)事件過(guò)程注意：菜單項(xiàng)控件只包含一個(gè)事件，即Click事件。菜單標(biāo)題而非菜單命令的菜單項(xiàng)，無(wú)需添加代碼。,【例10-1】設(shè)計(jì)一個(gè)簡(jiǎn)單的下拉式菜單。,窗體設(shè)計(jì)界面,窗體執(zhí)行界面,設(shè)計(jì)步驟如下：在“菜單編輯器”中建立如下菜單,為相應(yīng)的菜單命令編寫(xiě)事件過(guò)程編寫(xiě)“足球”菜單項(xiàng)的Click事件代碼：PrivateSubmenu11_Click()Label1.Caption=你選擇了足球EndSub編寫(xiě)“游泳”子菜單下的2個(gè)菜單項(xiàng)的Click事件代碼：PrivateSubmenu121_Click()Label1.Caption=你選擇了蛙泳EndSubPrivateSubmenu122_Click()Label1.Caption=你選擇了仰泳EndSub,1.設(shè)置快捷鍵,為菜單設(shè)置熱鍵與對(duì)應(yīng)的菜單項(xiàng),為它們?cè)O(shè)置快捷鍵將會(huì)大大提高操作速度。例如，Ctrl+C可代表復(fù)制，Ctrl+V可代表粘貼。,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ì)話框輸入文本，通過(guò)菜單命令控制文本框中字體的外觀。其中，部分菜單項(xiàng)具有在其旁加上或取消標(biāo)志、關(guān)閉或隱藏菜單項(xiàng)的功能，并設(shè)有快捷鍵和訪問(wèn)鍵功能，其執(zhí)行界面如圖所示。,窗體上菜單的界面,使用“菜單編輯器”，按照如下設(shè)置各菜單項(xiàng),10.3彈出式菜單,彈出式菜單（又稱“快捷菜單”），只需用戶在窗體上單擊某一鼠標(biāo)鍵（一般為鼠標(biāo)右鍵）就立即彈出菜單?？旖莶藛慰梢愿鶕?jù)用戶單擊鼠標(biāo)鍵時(shí)的位置，動(dòng)態(tài)地調(diào)整菜單項(xiàng)的顯示位置，同時(shí)也改變菜單項(xiàng)顯示的內(nèi)容，為用戶提供了更加便利的操作。,設(shè)計(jì)彈出式菜單的方法（1）使用“菜單編輯器”窗口建立一個(gè)頂層菜單（主菜單項(xiàng)）。（2）設(shè)置彈出式菜單的顯示方式。使用PopupMenu方法顯示彈出式菜單。PopupMenu方法的語(yǔ)法格式是：窗體名.PopupMenu,Flags,X,Y,其中：“菜單項(xiàng)”是指要彈出的菜單名稱（一般是主菜單項(xiàng)或子菜單項(xià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í)，即可彈出“文件”快捷菜單。,10.4制作工具欄,工具欄往往由一系列的按鈕（或形象化的圖標(biāo)按鈕）組成，每個(gè)按鈕對(duì)應(yīng)一個(gè)常用的菜單命令。,在VB中可以通過(guò)兩種方法建立工具欄：手工方式（在圖片框控件上加入一些工具按鈕控件）工具欄控件方式（使用工具欄控件）。,使用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)用程序用戶界面在窗體上增加一個(gè)圖片框Picture1，然后在圖片框中增加按鈕數(shù)組Command1(0)Command1(1)和復(fù)選框數(shù)組Check1(0)Check1(2),1.用手工方式制作工具欄,2）設(shè)置新增對(duì)象屬性：,3）面向工具欄上的控件編寫(xiě)事件驅(qū)動(dòng)代碼,使用ToolBar與ImageList制作工具欄,工具欄控件并不在默認(rèn)的工具箱中，需要另外從VB的“工具”/“部件”菜單命令，打開(kāi)的“部件對(duì)話框”中選擇“MicrosoftWindowsCommonControls6.0”，添加到工具箱來(lái)。,工具箱中增加的控件組,Toolbar控件的“通用”選項(xiàng)卡,Toolbar控件的主要設(shè)置：,在添加有Toolbar控件的窗體上，用鼠標(biāo)右鍵單擊Toolbar控件，在彈出的快捷菜單中選擇“屬性”，可以打開(kāi)“屬性頁(yè)”對(duì)話框。,與之對(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張圖片,按鈕的提示文本,ImageList控件的主要設(shè)置：工具欄中的按鈕習(xí)慣上以圖形按鈕方式出現(xiàn)，而工具欄控件本身沒(méi)有Picture屬性。需要通過(guò)圖像列表控件來(lái)實(shí)現(xiàn)工具欄按鈕圖片的載入。,向ImageList控件添加圖像,已插入了3個(gè)圖片,【例10-5】使用工具欄控件和圖像列表控件，重新設(shè)計(jì)例10-4的工具欄，窗口設(shè)計(jì)界面如圖所示。,ToolBar控件,ImageList控件,此處留有間隔,設(shè)計(jì)步驟：1）在窗體上添加ToolBar和ImageList控件2）設(shè)置ImageList控件屬性,插入圖片,3）設(shè)置ToolBar控件屬性,選擇圖像列表,設(shè)置按鈕圖片,設(shè)置按鈕提示信息,4）編寫(xiě)工具欄按鈕的事件代碼PrivateSubToolbar1_ButtonClick(ByValButtonAs_MSComctlLib.Button)n=Button.IndexSel