《菜單和工具欄》ppt課件

《《菜單和工具欄》ppt課件》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。

1、第9章菜單和工具欄要求:掌握設(shè)計(jì)主菜單的方法掌握菜單編輯器的使用掌握常用工具的設(shè)計(jì)方法第9章菜單和工具欄菜單Menu：可以提供一種方便的給命令分組的方法，同時(shí)也讓用戶更容易地執(zhí)行這些命令。工具欄控件ToolBar：而對(duì)于最常用的菜單命令采用工具欄圖形按鈕的方式來訪問，顯然更為快捷易用菜單菜單欄位于窗口標(biāo)題下方一個(gè)菜單欄中可以顯示多個(gè)菜單標(biāo)題一個(gè)菜單標(biāo)題可以對(duì)應(yīng)一個(gè)菜單命令，或者可以展開顯示含多個(gè)菜單項(xiàng)的菜單每個(gè)菜單項(xiàng)可以是一個(gè)菜單命令，或包含下一級(jí)的子菜單每個(gè)菜單最多可以包含五級(jí)子菜單。菜單控件（Menu）菜單控件（Menu控件）可以顯示應(yīng)用

2、程序的自定義菜單。Menu控件與其它標(biāo)準(zhǔn)控件有所不同：首先在工具箱中找不到Menu控件其次菜單具有其它控件所不具有的特性，菜單是有固定的位置、外觀和層次結(jié)構(gòu)，使用手工在窗體上不易繪制。VB專門提供了菜單編輯器工具，利用該工具就可以輕松地創(chuàng)建菜單使用菜單編輯器設(shè)計(jì)菜單欄在VB中執(zhí)行菜單命令“工具

3、菜單編輯器”顯示的文字控件名稱控件數(shù)組的索引值使用菜單編輯器設(shè)計(jì)菜單欄選擇要添加菜單欄的窗體進(jìn)入“菜單編輯器”“標(biāo)題”中輸入顯示文本，即Caption屬性“名稱”中輸入菜單項(xiàng)的名稱，即Name屬性左右箭頭決定菜單項(xiàng)的縮進(jìn)級(jí)，從而表示菜單項(xiàng)是菜單標(biāo)題還是

4、子菜單項(xiàng)點(diǎn)【下一個(gè)】按鈕重復(fù)，直到結(jié)束按下【確定】按鈕，關(guān)閉“菜單編輯器”分級(jí)子菜單創(chuàng)建菜單分隔條點(diǎn)“插入”按鈕，在選定的菜單項(xiàng)前插入一個(gè)菜單控件“標(biāo)題”中輸入字符“-”設(shè)置“名稱”屬性點(diǎn)“確定”按鈕分隔條本身也是一個(gè)菜單項(xiàng)定義菜單項(xiàng)的訪問鍵和快捷鍵訪問鍵：在“標(biāo)題”中加入&字母快捷鍵：在“快捷鍵”組合框中選擇區(qū)別：訪問鍵只能迅速將光標(biāo)定位快捷鍵能直接觸發(fā)事件菜單控件的屬性和事件Caption屬性菜單標(biāo)題文本Enabled屬性可響應(yīng)標(biāo)記Visible屬性可見標(biāo)記Checked屬性選中標(biāo)記ShortCut屬性快捷鍵Click事件選中菜單項(xiàng)響應(yīng)菜

5、單事件菜單控件只包含一個(gè)事件，即Click事件，當(dāng)用鼠標(biāo)或鍵盤選中該菜單控件時(shí)，將觸發(fā)該事件。編寫Click事件過程。比如：SubmnuFileExit_Click()UnloadMeEndSub使用復(fù)選標(biāo)記設(shè)計(jì)時(shí)加上復(fù)選標(biāo)志Checked屬性為TRUE，則加“√”標(biāo)記Checked屬性為FALSE，則無標(biāo)記菜單示例【例】設(shè)計(jì)文本框，利用菜單命令改變文本框字體效果（粗體、斜體和下劃線），并實(shí)現(xiàn)文本的剪切、復(fù)制和粘貼，要求控制剪切、復(fù)制和粘貼菜單的可用性，以保證符合操作邏輯，如【粘貼】菜單項(xiàng)在剪切板為空時(shí)應(yīng)無效。菜單示例——使用復(fù)選標(biāo)記文本框字

6、體效果可以通過設(shè)置文本框的FontBold、FontItalic和FontUnderline屬性來實(shí)現(xiàn)，每次按下后這些屬性應(yīng)該與原值相反，同時(shí)也要將菜單控件的Checked屬性變反，使菜單選擇標(biāo)志與字體相吻合。'粗體菜單被按下PrivateSubmnuFontBold_Click()mnuFontBold.Checked=NotmnuFontBold.CheckedText1.FontBold=NotText1.FontBoldEndSub'斜體菜單被按下PrivateSubmnuFontItalic_Click()mnuFontItalic

7、.Checked=NotmnuFontItalic.CheckedText1.FontItalic=NotText1.FontItalicEndSubPrivatesubmnufontunderline_click()Mnufontunderline,checked=notmnufontunderline.checkedText1.fontunderline=nottext1.fontunderlineEndsub菜單示例——設(shè)置菜單項(xiàng)的有效性對(duì)于剪切和復(fù)制菜單來說，應(yīng)該根據(jù)文本框中是否有文本被選擇來決定菜單是否生效，該功能由子程序SetEn

8、abledValue來負(fù)責(zé)。在按下編輯菜單時(shí)決定子菜單的有效性。'按下編輯菜單PrivateSubmnuEdit_Click()'設(shè)置剪切和復(fù)制菜單的有效性IfText1.SelLength<>0Then'判斷是否有選擇文本mnuEditCut.Enabled=TruemnuEditCopy.Enabled=TrueElsemnuEditCut.Enabled=FalsemnuEditCopy.Enabled=FalseEndIfEndSub菜單示例'剪切菜單被按下PrivateSubmnuEditCut_Click()Clipboard.S

9、etTextText1.SelText'文本框選中的文字送入剪切板Text1.SelText="“'刪除文本框選中的文字mnuEditPaste.Enabled=T