vb菜單與工具欄設計(9)

1、第第9章章 菜單與工具欄設計菜單與工具欄設計主要內(nèi)容主要內(nèi)容:1.菜單設計菜單設計2.彈出式菜單設計彈出式菜單設計3.工具欄設計工具欄設計4.狀態(tài)欄設計狀態(tài)欄設計9.1 菜菜 單單 設設 計計 在在Windows中，菜單可以分為兩種基本類型：中，菜單可以分為兩種基本類型：下拉式菜單和彈出式菜單。下拉式菜單一般通過下拉式菜單和彈出式菜單。下拉式菜單一般通過單擊菜單欄中菜單名稱的方式打開，而彈出式菜單擊菜單欄中菜單名稱的方式打開，而彈出式菜單一般通過在某一區(qū)域右擊的方式打開。單一般通過在某一區(qū)域右擊的方式打開。如圖如圖9-1所示，分別是所示，分別是VB“工程工程”菜單的下拉式菜單和窗菜單的下拉式菜

2、單和窗體的彈出式菜單。體的彈出式菜單。 9.1.1 任務一任務一 菜單控件菜單控件 在在Visual Basic中，菜單也是一個圖形中，菜單也是一個圖形對象，即控件。與其他控件一樣，菜單對象，即控件。與其他控件一樣，菜單也需要定義它的外觀和屬性。在設計菜也需要定義它的外觀和屬性。在設計菜單和運行菜單時可以設置菜單的單和運行菜單時可以設置菜單的Caption屬性、屬性、Enable屬性、屬性、Visible屬性、屬性、Checked屬性及其他屬性。每個菜單項都屬性及其他屬性。每個菜單項都可以接收可以接收Click事件，當用鼠標或鍵盤選事件，當用鼠標或鍵盤選中該菜單項時，將調(diào)用該事件。中該菜單項時

3、，將調(diào)用該事件。9.1.2 任務二任務二 菜單編輯器菜單編輯器 Visual Basic中，用菜單編輯器設計菜單和菜中，用菜單編輯器設計菜單和菜單項，或在已有的菜單上添加新菜單項、編輯單項，或在已有的菜單上添加新菜單項、編輯已有的菜單選項以及修改和刪除已有的菜單和已有的菜單選項以及修改和刪除已有的菜單和菜單項。菜單項。進入菜單編輯器的方式有如下幾種：進入菜單編輯器的方式有如下幾種： l l 選擇選擇“工具工具”“菜單編輯器菜單編輯器”命令；命令； l l 單擊常用工具欄中的單擊常用工具欄中的“菜單編輯器菜單編輯器”按鈕；按鈕； l l 按按Ctrl+ECtrl+E組合鍵；組合鍵； l l 在要

4、建立菜單的窗體（此窗體為活動窗體）在要建立菜單的窗體（此窗體為活動窗體）上右擊，在彈出的快捷菜單中選擇上右擊，在彈出的快捷菜單中選擇 “菜單編輯菜單編輯器器”命令。彈出命令。彈出“菜單編輯器菜單編輯器”對話框，如圖對話框，如圖9-2所示。所示。 圖圖9-2 9-2 “菜單編輯器菜單編輯器”對話框?qū)υ捒蚪M成元素組成元素作用作用標題（標題（Caption）文本框）文本框用來輸入顯示在窗體上的用戶建立的菜單標題。用來輸入顯示在窗體上的用戶建立的菜單標題。名稱（名稱（NameName）文本框）文本框用來輸入菜單項的名稱。用來輸入菜單項的名稱。索引（索引（Index）文本框）文本框用來輸入用來輸入men

5、u控件數(shù)組元素的下標。控件數(shù)組元素的下標?？旖萱I（快捷鍵（Shortcut）列表）列表框框供用戶在列表中為菜單項選擇一個快捷鍵。供用戶在列表中為菜單項選擇一個快捷鍵。復選（復選（Checked）復選框）復選框“復選復選”屬性設置為屬性設置為True時，可以在相應的菜單項左側加上一個時，可以在相應的菜單項左側加上一個“”號。號。有效（有效（Enabled）復選框）復選框“有效有效”屬性決定菜單項是否有效。屬性決定菜單項是否有效?？梢姡梢姡╒isible）復選框）復選框“可見可見”屬性決定菜單項是否可見。屬性決定菜單項是否可見?！啊焙秃汀啊卑粹o按鈕調(diào)整菜單項級別。調(diào)整菜單項級別?！啊焙秃汀啊卑粹o

6、按鈕調(diào)整菜單中各菜單項的順序。調(diào)整菜單中各菜單項的順序。“下一個下一個”按鈕按鈕使得下一個菜單項進入編輯狀態(tài)。使得下一個菜單項進入編輯狀態(tài)?！安迦氩迦搿卑粹o按鈕在選定的菜單項之前插入和該菜單項級別相同的菜單項。在選定的菜單項之前插入和該菜單項級別相同的菜單項。“刪除刪除”按鈕按鈕刪除選定的菜單項。刪除選定的菜單項。菜單顯示區(qū)域菜單顯示區(qū)域該區(qū)域用來顯示用戶為某一窗體設計的所有菜單項的標題。該區(qū)域用來顯示用戶為某一窗體設計的所有菜單項的標題?！安藛尉庉嬈鳌钡慕M成元素及其作用 “菜單編輯器菜單編輯器”窗口分為窗口分為3 3部分：數(shù)據(jù)區(qū)、編輯區(qū)部分：數(shù)據(jù)區(qū)、編輯區(qū)和菜單項顯示區(qū)?，F(xiàn)分別介紹各部分的功

7、能。和菜單項顯示區(qū)。現(xiàn)分別介紹各部分的功能。1數(shù)據(jù)區(qū)數(shù)據(jù)區(qū) 數(shù)據(jù)區(qū)是菜單控件的屬性區(qū)，用于輸入和修改數(shù)據(jù)區(qū)是菜單控件的屬性區(qū)，用于輸入和修改菜單項、設置菜單項的屬性。由菜單項、設置菜單項的屬性。由1010個部分組成，個部分組成，各部分的作用如下。各部分的作用如下。 （1）標題：）標題：此文本框用于輸入所建立菜單此文本框用于輸入所建立菜單的標題及菜單中每個菜單項的標題（相當于菜單的標題及菜單中每個菜單項的標題（相當于菜單控件的控件的Caption屬性），也是顯示在菜單中的字屬性），也是顯示在菜單中的字符，可以在標題中設置熱鍵。如果要在菜單中添符，可以在標題中設置熱鍵。如果要在菜單中添加一條分隔線

8、，就在此輸入一個減號（加一條分隔線，就在此輸入一個減號（- -）。）。 （2 2）名稱：）名稱：此文本框用于輸入所建立的菜單此文本框用于輸入所建立的菜單和各菜單項的控制名（即菜單控件的和各菜單項的控制名（即菜單控件的NameName屬屬性），此項不在菜單中顯示出來。性），此項不在菜單中顯示出來。Visual Visual BasicBasic中的菜單和每個菜單項都是控件，所以都中的菜單和每個菜單項都是控件，所以都要有一個控制名（其要有一個控制名（其NameName屬性）。屬性）。 （3 3）索引：）索引：此文本框用來為用戶建立的控件此文本框用來為用戶建立的控件數(shù)組設立下標，相當于控件數(shù)組的數(shù)組

9、設立下標，相當于控件數(shù)組的IndexIndex屬性。屬性。 （4）快捷鍵：）快捷鍵：此下拉列表框用來設置與某菜此下拉列表框用來設置與某菜單項等價的快捷鍵。在程序運行時，按下快捷鍵單項等價的快捷鍵。在程序運行時，按下快捷鍵會立刻運行一個菜單項?？旖萱I的賦值包括功能會立刻運行一個菜單項?？旖萱I的賦值包括功能鍵與控制鍵的組合，它們出現(xiàn)在菜單中相應菜單鍵與控制鍵的組合，它們出現(xiàn)在菜單中相應菜單項的右邊。項的右邊。 （5 5）幫助上下文：）幫助上下文：此文本框用于輸入在幫助文此文本框用于輸入在幫助文件（用件（用HelpFileHelpFile屬性設置）中查找相應的幫助主題屬性設置）中查找相應的幫助主題的

10、數(shù)值。的數(shù)值。 （6 6）協(xié)調(diào)位置：）協(xié)調(diào)位置：此下拉列表框用于確定相應的此下拉列表框用于確定相應的菜單或菜單項的顯示位置。該下拉列表框中有菜單或菜單項的顯示位置。該下拉列表框中有4 4個選個選項，其作用如下：項，其作用如下： l l 0-None0-None菜單項不顯示；菜單項不顯示； l l 1-Left1-Left菜單項靠左顯示；菜單項靠左顯示； l l 2-Middle2-Middle菜單項居中顯示；菜單項居中顯示； l l 3-Right3-Right菜單項靠右顯示。菜單項靠右顯示。 （7 7）復選：）復選：此復選框用于設置該菜單項標記此復選框用于設置該菜單項標記（即菜單項的（即菜單

11、項的CheckedChecked屬性），此選項通常是動態(tài)屬性），此選項通常是動態(tài)地加上或取消的，一般應當在程序代碼中，根據(jù)執(zhí)地加上或取消的，一般應當在程序代碼中，根據(jù)執(zhí)行情況設置。當行情況設置。當“復選復選”屬性設置為屬性設置為TrueTrue時，可在時，可在相應的菜單項旁加上標記相應的菜單項旁加上標記，表明該菜單項當前處，表明該菜單項當前處于活動狀態(tài)。于活動狀態(tài)。 （8 8）有效：）有效：該復選框用于設置菜單項的操作狀該復選框用于設置菜單項的操作狀態(tài)（即態(tài)（即EnableEnable屬性）。默認情況下，該屬性為屬性）。默認情況下，該屬性為TrueTrue，表示該選項為有效，可以對用戶事件做出

12、響應。若表示該選項為有效，可以對用戶事件做出響應。若設置該選項為設置該選項為FalseFalse，則相應的菜單項不響應用戶，則相應的菜單項不響應用戶事件。事件。 （9 9）可見：）可見：該復選框用于確定相應的菜單項是該復選框用于確定相應的菜單項是否可見（即否可見（即VisibleVisible屬性）。若菜單項是可以執(zhí)行屬性）。若菜單項是可以執(zhí)行的，則其可見屬性為的，則其可見屬性為TrueTrue，否則相應的菜單項不能，否則相應的菜單項不能執(zhí)行，即其可見屬性為執(zhí)行，即其可見屬性為FalseFalse。此時可以把它的。此時可以把它的“可見可見”屬性設置為屬性設置為TrueTrue，那么該菜單項將重

13、新出，那么該菜單項將重新出現(xiàn)在菜單中?，F(xiàn)在菜單中。 （1010）顯示窗口列表：）顯示窗口列表：該復選框被選中（即框該復選框被選中（即框內(nèi)為內(nèi)為）時，將顯示當前打開的一系列子窗口。該）時，將顯示當前打開的一系列子窗口。該選項用于多文檔應用程序。選項用于多文檔應用程序。2編輯區(qū)編輯區(qū) 編輯區(qū)有編輯區(qū)有7 7個按鈕，用于對輸入的菜單項進行簡單個按鈕，用于對輸入的菜單項進行簡單編輯。菜單在數(shù)據(jù)區(qū)輸入，在菜單項顯示區(qū)顯示。編輯。菜單在數(shù)據(jù)區(qū)輸入，在菜單項顯示區(qū)顯示。這這7 7個按鈕的作用如下個按鈕的作用如下: : （1 1）左、右箭頭：）左、右箭頭：用來產(chǎn)生和取消內(nèi)縮符號。用來產(chǎn)生和取消內(nèi)縮符號。單擊一

14、次右箭頭可以產(chǎn)生一個內(nèi)縮符號（單擊一次右箭頭可以產(chǎn)生一個內(nèi)縮符號（4 4個點個點“.”），其作用是使當前菜單項的層次下降一），其作用是使當前菜單項的層次下降一層；單擊一次左箭頭，可以刪除一個內(nèi)縮符號，層；單擊一次左箭頭，可以刪除一個內(nèi)縮符號，其作用是使當前菜單項的層次上升一層。其作用是使當前菜單項的層次上升一層。 （2 2）上、下箭頭：）上、下箭頭：用來在菜單項顯示區(qū)內(nèi)移用來在菜單項顯示區(qū)內(nèi)移動菜單項的位置。把條形光標移動到某個菜單項動菜單項的位置。把條形光標移動到某個菜單項上，單擊上箭頭將使該菜單項上移，單擊下箭頭上，單擊上箭頭將使該菜單項上移，單擊下箭頭將使該菜單項下移。將使該菜單項下移。

15、 （3 3）下一個：）下一個：新建一個菜單項（與按新建一個菜單項（與按【EnterEnter】鍵作用相同）。鍵作用相同）。 （4 4）插入：）插入：在當前菜單項之前插入一個新的菜在當前菜單項之前插入一個新的菜單項。單項。 （5 5）刪除：）刪除：刪除當前菜單項。刪除當前菜單項。3菜單項顯示區(qū)菜單項顯示區(qū) 菜單項顯示區(qū)在菜單設計窗口的下面，輸入的菜單項顯示區(qū)在菜單設計窗口的下面，輸入的菜單項在此區(qū)域顯示，不同菜單項的層次通過內(nèi)菜單項在此區(qū)域顯示，不同菜單項的層次通過內(nèi)縮符號來表示。條形光標所在的菜單項為縮符號來表示。條形光標所在的菜單項為“當前當前菜單項菜單項”。 9.1.3 任務三任務三 創(chuàng)建

16、菜單的步驟創(chuàng)建菜單的步驟【例例9-1】設計一個具有輸入、輸出和顯示功能的設計一個具有輸入、輸出和顯示功能的菜單，該菜單可以把輸入的一串字符顯示出來。菜單，該菜單可以把輸入的一串字符顯示出來。分析：分析：根據(jù)題意，可以分為兩個主菜單項，分別根據(jù)題意，可以分為兩個主菜單項，分別為為“輸入信息輸入信息”和和“顯示信息顯示信息”，它們各包括兩，它們各包括兩個子菜單項。個子菜單項。 l l “輸入信息輸入信息”包括包括“輸入輸入”和和“退出退出”。 l l “顯示信息顯示信息”包括包括“顯示顯示”和和“清除清除”。 建立菜單的具體操作步驟如下：建立菜單的具體操作步驟如下： （1 1）建立控件）建立控件

17、本例中需要輸入和輸出數(shù)據(jù)，因此需要建立本例中需要輸入和輸出數(shù)據(jù)，因此需要建立一個文本框用以輸入數(shù)據(jù)，建立一個標簽用以一個文本框用以輸入數(shù)據(jù)，建立一個標簽用以輸出數(shù)據(jù)，另外建立兩個標簽作為提示，各控輸出數(shù)據(jù)，另外建立兩個標簽作為提示，各控件的屬性設置如表件的屬性設置如表9-1所示，窗體界面如圖所示，窗體界面如圖9-3所所示。此外，還要設置標簽示。此外，還要設置標簽outputoutput的背景色及的背景色及Label1Label1和和Label2Label2的顯示方式，如圖的顯示方式，如圖9-49-4所示。所示。 圖圖9-3 菜單控件設計菜單控件設計 圖圖9-4 菜單項設計菜單項設計 （2 2）

18、設計菜單）設計菜單 下面利用菜單編輯器來設計各個菜單項，在下面利用菜單編輯器來設計各個菜單項，在設計菜單控件時應提供設計菜單控件時應提供3種屬性：標題、名稱和種屬性：標題、名稱和內(nèi)縮符號，一個內(nèi)縮符號表示一層子菜單，沒內(nèi)縮符號，一個內(nèi)縮符號表示一層子菜單，沒有內(nèi)縮符號表示主菜單項。本例中有兩個主菜有內(nèi)縮符號表示主菜單項。本例中有兩個主菜單項，每個主菜單項有兩個子菜單。其屬性設單項，每個主菜單項有兩個子菜單。其屬性設置如表置如表9-2所示。具體操作步驟如下：所示。具體操作步驟如下： 選擇選擇“工具工具”“菜單編輯器菜單編輯器”命令，命令，彈出彈出“菜單編輯器菜單編輯器”對話框。對話框。 在在“標

19、題標題”文本框中輸入文本框中輸入“輸入信息輸入信息”（主菜單（主菜單1 1），在菜單項顯示區(qū)中出現(xiàn)同樣的），在菜單項顯示區(qū)中出現(xiàn)同樣的標題名稱。標題名稱。 按按【TabTab】鍵（或用鼠標）把輸入光標移到鍵（或用鼠標）把輸入光標移到“名稱名稱”文本框。文本框。 在在“名稱名稱”文本框中輸入文本框中輸入“InputInput”，此時菜，此時菜單項顯示區(qū)中沒有變化。單項顯示區(qū)中沒有變化。 將此菜單項的將此菜單項的EnableEnable（有效）和（有效）和VisibleVisible（可（可見）屬性都設置為見）屬性都設置為TrueTrue（本例中所有菜單項的此二（本例中所有菜單項的此二屬性皆如此）

20、。屬性皆如此）。 單擊編輯區(qū)中的單擊編輯區(qū)中的“下一個下一個”按鈕，菜單項顯示按鈕，菜單項顯示區(qū)中的條形光標下移，同時數(shù)據(jù)區(qū)的區(qū)中的條形光標下移，同時數(shù)據(jù)區(qū)的“標題標題”文本文本框和框和“名稱名稱”文本框被清空，光標回到文本框被清空，光標回到“標題標題”文文本框。本框。 在在“標題標題”文本框中輸入文本框中輸入“輸入輸入”，該信息同，該信息同時在菜單項顯示區(qū)中顯示出來。時在菜單項顯示區(qū)中顯示出來。 單擊編輯區(qū)的右箭頭，菜單顯示區(qū)中的單擊編輯區(qū)的右箭頭，菜單顯示區(qū)中的“輸入輸入”右移，同時其左側出現(xiàn)一個內(nèi)縮符號（右移，同時其左側出現(xiàn)一個內(nèi)縮符號（. .），表明），表明“輸入輸入”是是“輸入信息輸

21、入信息”的下一級菜單。的下一級菜單。 單擊單擊“快捷鍵快捷鍵”下拉列表框右端的下拉按鈕，下拉列表框右端的下拉按鈕，選擇選擇【Ctrl+ICtrl+I】作為作為“輸入輸入”菜單項的快捷鍵，此時，菜單項的快捷鍵，此時，在該菜單項右側出現(xiàn)在該菜單項右側出現(xiàn)Ctrl+ICtrl+I。 單擊編輯區(qū)中的單擊編輯區(qū)中的“下一個下一個”按鈕，菜單項顯示區(qū)按鈕，菜單項顯示區(qū)的條形光標下移，左端自動出現(xiàn)內(nèi)縮符號的條形光標下移，左端自動出現(xiàn)內(nèi)縮符號“. .”。 在在“標題標題”文本框內(nèi)輸入文本框內(nèi)輸入“退出退出”，然后在，然后在“名稱名稱”文本框內(nèi)輸入文本框內(nèi)輸入“QuitQuit”作為菜單項的名稱。作為菜單項的名

22、稱。 單擊單擊“快捷鍵快捷鍵”下拉列表框右端的下拉按鈕，從中下拉列表框右端的下拉按鈕，從中選出選出【Ctrl+Q】組合鍵作為組合鍵作為“退出退出”菜單項的快捷鍵。菜單項的快捷鍵。 建立主菜單項建立主菜單項“顯示信息顯示信息”及其兩個子菜單及其兩個子菜單項的操作與上面所述的各步驟類似，不再重復。項的操作與上面所述的各步驟類似，不再重復。設計完成后的窗口如圖設計完成后的窗口如圖9-49-4所示。此時，單擊右上所示。此時，單擊右上角的角的“確定確定”按鈕，菜單的建立工作全部結束。按鈕，菜單的建立工作全部結束。 設計完成后，窗體的頂行顯示主菜單項，單設計完成后，窗體的頂行顯示主菜單項，單擊某個主菜單項

23、，即可顯示下拉菜單，如圖擊某個主菜單項，即可顯示下拉菜單，如圖9-5所所示。示。 （3 3）為事件過程編寫代碼）為事件過程編寫代碼 如前所述，每個菜單項（包括主菜單項和子如前所述，每個菜單項（包括主菜單項和子菜單項）都可以接收菜單項）都可以接收Click事件。每個子菜單項事件。每個子菜單項都對應一個都對應一個Click事件過程。即程序運行后，只事件過程。即程序運行后，只要單擊某個子菜單項，就可以執(zhí)行事件過程所要單擊某個子菜單項，就可以執(zhí)行事件過程所定義的操作。定義的操作。 每個菜單項對應一個控件。菜單設計完成每個菜單項對應一個控件。菜單設計完成后，窗體上顯示出如圖后，窗體上顯示出如圖9-5所示

24、的菜單項，此所示的菜單項，此時只要單擊某個子菜單項，即可編寫該菜單時只要單擊某個子菜單項，即可編寫該菜單項的過程。例如，完成菜單設計后，單擊項的過程。例如，完成菜單設計后，單擊“輸入信息輸入信息”菜單項，顯示菜單項，顯示“輸入輸入”和和“退退出出”子菜單項，如果單擊子菜單項，如果單擊“輸入輸入”子菜單項，子菜單項，則進入程序代碼窗口，并顯示：則進入程序代碼窗口，并顯示： Private Sub Iput_Click() 輸入菜單代碼輸入菜單代碼 Text1.Text=End SubPrivate Sub disp_Click() 顯示菜單代碼顯示菜單代碼 output.Caption=Text

25、1.TextEnd SubPrivate Sub clear_Click() 清除菜單代碼清除菜單代碼 Text1.Text= output.Caption=End Sub9.1.4 任務四任務四 菜單控件數(shù)組菜單控件數(shù)組 在在Visual Basic中，菜單也是圖形對象，即中，菜單也是圖形對象，即控件，所以可以運用數(shù)組的概念。菜單控件數(shù)控件，所以可以運用數(shù)組的概念。菜單控件數(shù)組的作用主要有以下兩方面：組的作用主要有以下兩方面： （1）用于動態(tài)地增加和刪除菜單項；）用于動態(tài)地增加和刪除菜單項； （2）簡化了編程過程，用一段代碼處理多）簡化了編程過程，用一段代碼處理多個菜單項。個菜單項?！纠?

26、-2】設計一個簡易的文本編輯器，具有新設計一個簡易的文本編輯器，具有新建、編輯和保存一般文本文件的功能，如圖建、編輯和保存一般文本文件的功能，如圖9-7所示。所示。圖圖9-7 簡易文本編輯器簡易文本編輯器 建立此菜單的具體操作步驟如下：建立此菜單的具體操作步驟如下： （1）建立菜單控件）建立菜單控件 由于本菜單中有文本的輸入和顯示操作、文件由于本菜單中有文本的輸入和顯示操作、文件的操作（如的操作（如“打開打開”、“保存保存”等），因此需要有等），因此需要有文本框和對話框，還應設置文本的多行屬性和滾動文本框和對話框，還應設置文本的多行屬性和滾動條，如圖條，如圖9-8所示。所示。 （2）設計菜單）

27、設計菜單 此文本編輯器的每一菜單的下拉菜單中的菜單此文本編輯器的每一菜單的下拉菜單中的菜單項是通過菜單控件數(shù)組完成的，只需指定其項是通過菜單控件數(shù)組完成的，只需指定其Index屬屬性值即可。打開菜單編輯器，按表性值即可。打開菜單編輯器，按表9-3所示輸入每一所示輸入每一個菜單項的各個屬性。所建立的菜單如圖個菜單項的各個屬性。所建立的菜單如圖9-9所示。所示。圖圖9-8 建立菜單控件建立菜單控件 圖圖9-9 用菜單控件數(shù)組建立菜單用菜單控件數(shù)組建立菜單 （3）編寫事件過程代碼）編寫事件過程代碼 菜單建立好以后，還需要為每一個事件過程編菜單建立好以后，還需要為每一個事件過程編寫相應的代碼。下面是每

28、一個菜單項的代碼。寫相應的代碼。下面是每一個菜單項的代碼?！拔募募辈藛蔚母鱾€菜單項對應的事件代碼如下：菜單的各個菜單項對應的事件代碼如下：Private Sub File_Click(Index As Integer) n=Index Select Case n Case 0 新建新建 Text1.Text= Form1.Caption=未命名未命名 Case 1 打開子菜單打開子菜單 CommonDialog1.ShowOpen 顯示顯示“打開打開”對話對話框框 fname=CommonDialog1.FileName If fname Then Text1.Text= Open fna

29、me For Input As #1 b= Do Until EOF(1) Line Input #1,nextline b=b & nextline & Chr(13) & Chr(10) Loop Close #1 Text1.Text=b End If Form1.Caption=fname Case 2 保存子菜單保存子菜單 If Form1.Caption=未命名未命名 Or Form1.Caption= Then CommonDialog1.ShowSave 顯示顯示“另存為另存為”對話對話框框 fname=CommonDialog1.FileName El

30、se fname=Form1.Caption End If If fname Then Open fname For Output As #1 Print #1,Text1.Text Close #1 End If Case 3 另存為子菜單另存為子菜單 CommonDialog1.ShowSave顯示顯示“另存為另存為”對話對話框框 fname=CommonDialog1.FileName If fname Then Open fname For Output As #1 Print #1,Text1.Text Close #1 End If Case 4 關閉子菜單關閉子菜單 Text1.

31、Text= End End Select Text1.SetFocusEnd Sub“編輯編輯”菜單的各個菜單項對應的事件代碼如下：菜單的各個菜單項對應的事件代碼如下：Private Sub Edi_Click(Index As Integer) i=Index Select Case i Case 0 剪切剪切 Clipboard.SetText Text1.SelText Text1.SelText= Case 1 復制復制 Clipboard.SetText Text1.SelText Case 2 粘貼粘貼 Text1.SelText=Clipboard.GetText() Case

32、3 清除清除 Text1.SelText= End SelectEnd Sub9.1.5 任務五任務五 彈出式菜單彈出式菜單 雖然下拉式菜單能夠根據(jù)程序的運行情況雖然下拉式菜單能夠根據(jù)程序的運行情況動態(tài)地調(diào)整其可見性、有效性，也可以動態(tài)地動態(tài)地調(diào)整其可見性、有效性，也可以動態(tài)地增減菜單項，但其對用戶的當前操作跟蹤不夠。增減菜單項，但其對用戶的當前操作跟蹤不夠。而彈出式菜單能以靈活的方式為用戶提供更方而彈出式菜單能以靈活的方式為用戶提供更方便的操作。便的操作。 彈出式菜單是獨立于窗體菜單欄而顯示在彈出式菜單是獨立于窗體菜單欄而顯示在窗體內(nèi)的浮動菜單。彈出式菜單在窗體內(nèi)的位窗體內(nèi)的浮動菜單。彈出式

33、菜單在窗體內(nèi)的位置取決于單擊鼠標鍵（通常單擊右鍵）時指針置取決于單擊鼠標鍵（通常單擊右鍵）時指針的位置，彈出式菜單也稱為的位置，彈出式菜單也稱為“上下文菜單上下文菜單”或或“快捷菜單快捷菜單”。建立彈出式菜單的具體操作步驟如下：建立彈出式菜單的具體操作步驟如下： （1）先用菜單編輯器建立菜單。）先用菜單編輯器建立菜單。此步驟與下拉式菜單建立方法相同，區(qū)別在于必須把此步驟與下拉式菜單建立方法相同，區(qū)別在于必須把主菜單項的主菜單項的“可見（可見（Visible）”屬性設置為屬性設置為False。 （2）用）用PopupMenu方法彈出顯示。方法彈出顯示。PopupMenu方法用來顯示彈出式菜單，其

34、格式如下：方法用來顯示彈出式菜單，其格式如下：.PopupMenu ,Flags,X,Y,BoldCommand說明：說明： PopupMenu方法有方法有6個參數(shù)，只有個參數(shù)，只有是必是必選的，其余都是可選的。省略選的，其余都是可選的。省略時，在當前窗體時，在當前窗體內(nèi)打開彈出式菜單，如果需要在非當前窗體中打開彈出內(nèi)打開彈出式菜單，如果需要在非當前窗體中打開彈出式菜單時，必須指定窗體名。式菜單時，必須指定窗體名。 是在菜單編輯器中定義的主菜單項名。是在菜單編輯器中定義的主菜單項名。 Flags參數(shù)是一個數(shù)值或符號常量，用來指定彈出參數(shù)是一個數(shù)值或符號常量，用來指定彈出式菜單的位置及行為，其取

35、值分為兩組，如表式菜單的位置及行為，其取值分為兩組，如表9-4和表和表9-5所示，一組用于指定菜單位置，另一組用于定義特殊的所示，一組用于指定菜單位置，另一組用于定義特殊的菜單行為。這兩組參數(shù)可以單獨使用，也可以聯(lián)合使用。菜單行為。這兩組參數(shù)可以單獨使用，也可以聯(lián)合使用。當聯(lián)合使用時，每組中取一個常數(shù)，兩個常數(shù)相加；若當聯(lián)合使用時，每組中取一個常數(shù)，兩個常數(shù)相加；若每組中取一個符號常量，則此兩個常量用每組中取一個符號常量，則此兩個常量用or相連。相連。 X、Y分別用來指定彈出式菜單在窗體上的顯分別用來指定彈出式菜單在窗體上的顯示位置，示位置，X為橫坐標，為橫坐標，Y為縱坐標，一般與為縱坐標，一

36、般與Flags參數(shù)參數(shù)配合使用。二者省略時，彈出式菜單在鼠標光標的當配合使用。二者省略時，彈出式菜單在鼠標光標的當前位置顯示。如果這幾個參數(shù)都省略，則當右擊彈出前位置顯示。如果這幾個參數(shù)都省略，則當右擊彈出菜單時，鼠標光標所在位置為彈出式菜單左上角的坐菜單時，鼠標光標所在位置為彈出式菜單左上角的坐標。系統(tǒng)默認窗體左上角為坐標原點；如果省略標。系統(tǒng)默認窗體左上角為坐標原點；如果省略Flags參數(shù)，不省略參數(shù)，不省略X、Y參數(shù)，則參數(shù)，則X、Y為彈出式菜單為彈出式菜單左上角的坐標；如果同時使用這幾個參數(shù)，則彈出式左上角的坐標；如果同時使用這幾個參數(shù)，則彈出式菜單的位置分為以下幾種情況。菜單的位置分

37、為以下幾種情況。Flags=0 X、Y為彈出式菜單左上角的坐標為彈出式菜單左上角的坐標Flags=4 X、Y為彈出式菜單頂邊中間的坐標為彈出式菜單頂邊中間的坐標Flags=8 X、Y為彈出式菜單右上角的坐標為彈出式菜單右上角的坐標 要彈出菜單，通常的做法是把要彈出菜單，通常的做法是把PopupMenu方方法放在法放在ouseDown事件中，該事件響應所有的鼠標事件中，該事件響應所有的鼠標單擊操作。一般情況下右擊顯示彈出式菜單，這可單擊操作。一般情況下右擊顯示彈出式菜單，這可以用以用Button參數(shù)來實現(xiàn)。對于兩個鍵的鼠標來說，參數(shù)來實現(xiàn)。對于兩個鍵的鼠標來說，左鍵的左鍵的Button參數(shù)值為參

38、數(shù)值為1，右鍵的，右鍵的Button參數(shù)值為參數(shù)值為2。所以可以用下面的語句實現(xiàn)在右擊時響應所以可以用下面的語句實現(xiàn)在右擊時響應MouseDown事件，顯示彈出式菜單。事件，顯示彈出式菜單。If Button=2 Then PopupMenu 菜單名菜單名【例例9-3】在例在例9-1中實現(xiàn)彈出式菜單，在文本顯示區(qū)中實現(xiàn)彈出式菜單，在文本顯示區(qū)域右擊時可以設置字體格式。域右擊時可以設置字體格式。其具體操作步驟如下：其具體操作步驟如下： （1）打開在例）打開在例9-1中建立的窗體，再打開菜單編中建立的窗體，再打開菜單編輯器，設置各個菜單項的屬性，其屬性如表輯器，設置各個菜單項的屬性，其屬性如表9-

39、6所所示，用菜單編輯器設計的結果如圖示，用菜單編輯器設計的結果如圖9-10所示。所示。圖圖9-10 建立彈出式菜單建立彈出式菜單 （2）編輯標簽的）編輯標簽的MouseDown事件過程。事件過程。Private Sub output_MouseDown(Button As Integer, Shift As Integer, X As Single, - Y As Single) If Button=2 Then PopupMenu popformat End IfEnd Sub 此過程中的條件語句用來判斷所按下的是否是此過程中的條件語句用來判斷所按下的是否是鼠標右鍵，如果是，則用鼠標右鍵，如

40、果是，則用PopupMenu方法彈出菜單。方法彈出菜單。運行程序，然后在標簽運行程序，然后在標簽output內(nèi)右擊，將彈出一個內(nèi)右擊，將彈出一個菜單，如圖菜單，如圖4-11所示。所示。圖圖9-11 顯示彈出式菜單顯示彈出式菜單 （3）為每個子菜單項編寫事件過程代碼。）為每個子菜單項編寫事件過程代碼。 在編寫下拉式菜單過程代碼時，通常是在窗體中在編寫下拉式菜單過程代碼時，通常是在窗體中單擊主菜單項，顯示子菜單，然后雙擊某個子菜單單擊主菜單項，顯示子菜單，然后雙擊某個子菜單項，進入代碼窗口，即可編寫該菜單項的事件過程項，進入代碼窗口，即可編寫該菜單項的事件過程代碼。而彈出式菜單的主菜單項是不可見的

41、（其代碼。而彈出式菜單的主菜單項是不可見的（其Visible屬性為屬性為False），不能在窗體頂部顯示，所以），不能在窗體頂部顯示，所以不能通過雙擊子菜單項的方式進入代碼窗口，必須不能通過雙擊子菜單項的方式進入代碼窗口，必須先進入代碼窗口（選擇先進入代碼窗口（選擇“視圖視圖”“代碼代碼”命令，命令，或按或按【F7】鍵，或雙擊窗體），然后單擊鍵，或雙擊窗體），然后單擊“對象對象”下拉列表框右端的下拉按鈕，顯示各個子菜單項，下拉列表框右端的下拉按鈕，顯示各個子菜單項，再單擊某個子菜單項，將顯示該子菜單項的事件過再單擊某個子菜單項，將顯示該子菜單項的事件過程代碼框架，然后可在該框架內(nèi)編寫代碼。程代

42、碼框架，然后可在該框架內(nèi)編寫代碼。各子菜單項的事件過程代碼如下：各子菜單項的事件過程代碼如下：Private Sub popBold_Click() 粗體菜單粗體菜單 output.FontBold=TrueEnd SubPrivate Sub popItalic_Click() 斜體菜單斜體菜單 output.FontItalic=TrueEnd SubPrivate Sub popUndrli_Click() 下劃線菜單下劃線菜單 output.FontUnderline=TrueEnd SubPrivate Sub font20pt_Click() output.FontSize=20E

43、nd SubPrivate Sub fontLs_Click() output.FontName=隸書隸書End SubPrivate Sub Qit_Click() EndEnd Sub 運行上面的程序后，用彈出式菜單設置標簽內(nèi)數(shù)運行上面的程序后，用彈出式菜單設置標簽內(nèi)數(shù)據(jù)的屬性，如圖據(jù)的屬性，如圖4-12所示。所示。圖圖9-12 彈出式菜單程序運行結果彈出式菜單程序運行結果 9.2 工具欄設計工具欄設計 工具欄（也稱為發(fā)條或者控制欄）已經(jīng)成為工具欄（也稱為發(fā)條或者控制欄）已經(jīng)成為許多基于許多基于 Windows 應用程序的標準功能。工具應用程序的標準功能。工具欄提供了對于應用程序中最常用的

44、菜單命令的快欄提供了對于應用程序中最常用的菜單命令的快速訪問。制作工具欄有兩種方法：一是手工制作，速訪問。制作工具欄有兩種方法：一是手工制作，即利用圖形框和命令按鈕，比較煩瑣；另一種方即利用圖形框和命令按鈕，比較煩瑣；另一種方法通過組合使用法通過組合使用ToolBar、ImageList控件，使得控件，使得工具欄制作與菜單制作一樣簡單易學。工具欄制作與菜單制作一樣簡單易學。 用手工方式制作工具欄的具體操作步驟如下：用手工方式制作工具欄的具體操作步驟如下： （1）在窗體中添加一個圖片框（作為工具按鈕）在窗體中添加一個圖片框（作為工具按鈕的容器），通過設置圖片框的的容器），通過設置圖片框的Alig

45、n屬性來控制工屬性來控制工具欄（圖片框）在窗體中的位置。當改變窗體的大具欄（圖片框）在窗體中的位置。當改變窗體的大小時，小時，Align屬性值非屬性值非0的圖片框會自動改變大小以的圖片框會自動改變大小以適應窗體的寬度或高度。適應窗體的寬度或高度。 （2）選定圖片框，在圖片框中添加任何想在工）選定圖片框，在圖片框中添加任何想在工具欄中顯示的控件，通常使用的控件有命令按鈕、具欄中顯示的控件，通常使用的控件有命令按鈕、圖形方式的選項按鈕、復選框按鈕和下拉列表框等。圖形方式的選項按鈕、復選框按鈕和下拉列表框等。 （3）設置控件的屬性。通常在工具按鈕上通過）設置控件的屬性。通常在工具按鈕上通過不同的圖像

46、來表示對應的功能，還可以設置按鈕的不同的圖像來表示對應的功能，還可以設置按鈕的ToolTipText屬性為工具按鈕添加工具提示。屬性為工具按鈕添加工具提示。圖圖4-13 帶工具欄的簡易文本編輯器帶工具欄的簡易文本編輯器 （4）編寫代碼。）編寫代碼。 由于工具按鈕通常用于提供對其他（菜單）命由于工具按鈕通常用于提供對其他（菜單）命令迅速快捷地訪問，所以一般都是在其令迅速快捷地訪問，所以一般都是在其Click事件事件代碼中調(diào)用對應的菜單命令。代碼中調(diào)用對應的菜單命令?！纠?-4】為例為例9-2中的簡易文本編輯器增加一個自中的簡易文本編輯器增加一個自定義的工具欄，如圖定義的工具欄，如圖9-13所示

47、。所示。在例在例9-2的基礎上作如下修改。的基礎上作如下修改。 （1）修改應用程序用戶界面。在窗體上增加）修改應用程序用戶界面。在窗體上增加一個圖片框一個圖片框Picture1，然后在圖片框中增加一個，然后在圖片框中增加一個命令按鈕數(shù)組命令按鈕數(shù)組Command1(0)Command1(2)和復和復選框數(shù)組選框數(shù)組Check1(0)Check1(2)。 （2）設置新增對象屬性，如表）設置新增對象屬性，如表9-7所示。所示。（3）修改及編寫程序代碼。）修改及編寫程序代碼。修改窗體的事件代碼如下：修改窗體的事件代碼如下：Private Sub Form_Resize() With Text1 Le

48、ft=0 Top=Picture1.Height Height=Form1.ScaleHeight-Picture1.Height Width=Form1.ScaleWidth End WithEnd Sub編寫命令按鈕數(shù)組編寫命令按鈕數(shù)組Command1()的的Click事件代碼如下：事件代碼如下：Private Sub Command1_Click(index As Integer) File_Click (index)End Sub編寫復選框數(shù)組編寫復選框數(shù)組Check1()的事件代碼如下：的事件代碼如下：Private Sub Check1_Click(index As Integer

49、) Edi_Click (index)End Sub9.2.1 任務一任務一 使用使用ToolBar控件控件 使用使用ToolBar控件和控件和ImageList控件來創(chuàng)建工具控件來創(chuàng)建工具欄非常容易且很方便。在使用這些控件前必須打欄非常容易且很方便。在使用這些控件前必須打開開“部件部件”對話框，選擇對話框，選擇Microsoft Windows Common Controls 6.0選項，將控件添加到工具中，選項，將控件添加到工具中，如圖如圖9-14所示。所示。圖圖9-14 添加控件到工具箱添加控件到工具箱 1ToolBar控件控件 控件的插入：在工具箱中選擇控件的插入：在工具箱中選擇Too

50、lBar控件，然控件，然后在窗體中畫出控件。后在窗體中畫出控件。 控件屬性的設置：控件屬性的設置： （1）通過設置）通過設置ToolBar的的Align屬性可以控制工具屬性可以控制工具欄在窗體中的位置。當改變窗體的大小時，欄在窗體中的位置。當改變窗體的大小時，Align屬屬性值非性值非0的的ToolBar控件會自動地改變大小以適應窗控件會自動地改變大小以適應窗體的寬度或高度。體的寬度或高度。 （2）右擊窗體上的）右擊窗體上的ToolBar控件，在彈出的快捷控件，在彈出的快捷菜單中選擇菜單中選擇“屬性（屬性（Properties）”命令或者選中窗命令或者選中窗體上的體上的ToolBar控件后在屬

51、性窗口單擊控件后在屬性窗口單擊“自定義自定義（Custom）”下拉列表框右側的下拉按鈕，都可以下拉列表框右側的下拉按鈕，都可以打開打開ToolBar的的“屬性屬性”對話框，如圖對話框，如圖9-15所示。所示。圖圖9-15 “屬性頁屬性頁”對話框?qū)υ捒?“通用通用”選項卡中的選項卡中的“圖像列表圖像列表”屬性用來與屬性用來與ImageList控件建立關聯(lián)（見圖控件建立關聯(lián)（見圖9-16），），“按鈕按鈕”選選項卡用來在項卡用來在ToolBar控件中添加按鈕（見圖控件中添加按鈕（見圖9-17）。）。圖圖9-16 與與ImageList控件建立關聯(lián)控件建立關聯(lián) 圖圖9-17 在在ToolBar中添加

52、按鈕中添加按鈕 “按鈕按鈕”選項卡的各項功能如下。選項卡的各項功能如下。 插入刪除按鈕：在按鈕集合中添加或刪除按鈕元素插入刪除按鈕：在按鈕集合中添加或刪除按鈕元素 索引和關鍵字：工具欄中的每個按鈕都有唯一的標索引和關鍵字：工具欄中的每個按鈕都有唯一的標識，即索引和關鍵字。索引是整型，關鍵字是字符串型，識，即索引和關鍵字。索引是整型，關鍵字是字符串型，訪問按鈕時可以引用二者之一。訪問按鈕時可以引用二者之一。 標題和描述：標題是顯示在按鈕上的文字，描述是標題和描述：標題是顯示在按鈕上的文字，描述是按鈕的說明信息。按鈕的說明信息。 值：決定按鈕的狀態(tài)，值：決定按鈕的狀態(tài)，0-tbrUnpressed

53、為彈起狀態(tài)，為彈起狀態(tài)，1-tbrPressed為按下狀態(tài)。為按下狀態(tài)。 樣式：決定按鈕的行為特點，并且將影響按鈕的功能，樣式：決定按鈕的行為特點，并且將影響按鈕的功能，如表如表9-8所示。所示。 寬度：當寬度：當Style屬性值為屬性值為4時，可設置按鈕的寬度。時，可設置按鈕的寬度。 圖像：按鈕上顯示的圖片在圖像：按鈕上顯示的圖片在ImageList控件中的編號控件中的編號工具提示文本：程序運行時，當鼠標指向按鈕時顯示的工具提示文本：程序運行時，當鼠標指向按鈕時顯示的說明性文字。說明性文字。2ImageList控件控件 工具欄（工具欄（ToolBar）本身沒有）本身沒有Picture屬性，不

54、能屬性，不能直接添加按鈕上顯示的圖片。直接添加按鈕上顯示的圖片。Visual Basic專門提供專門提供了圖像列表控件了圖像列表控件ImageList，此控件不單獨使用，專，此控件不單獨使用，專門為其他控件提供圖像庫，是一個圖像容器控件。門為其他控件提供圖像庫，是一個圖像容器控件。工具欄按鈕的圖像就是通過工具欄按鈕的圖像就是通過ToolBar控件從控件從ImageList的圖像庫中獲得的。的圖像庫中獲得的。控件的插入：控件的插入： 在在ToolBar控件所在的窗體中添加控件所在的窗體中添加ImageList控控件及其圖片，然后建立件及其圖片，然后建立ToolBar和和ImageList控件之間

55、控件之間的關聯(lián)，最后從的關聯(lián)，最后從ImageList控件的圖片庫中選擇需要控件的圖片庫中選擇需要的圖像加載到工具欄按鈕上。的圖像加載到工具欄按鈕上。 3創(chuàng)建工具欄的步驟創(chuàng)建工具欄的步驟 （1）有窗體中插入工具欄控件（如）有窗體中插入工具欄控件（如ToolBar1）和）和一個圖像列表控件（如一個圖像列表控件（如Imagelist1），并設置工具欄），并設置工具欄控件的控件的Align屬性。屬性。 （2）在）在Imagelist控件中添加所需的圖像?？丶刑砑铀璧膱D像。 （3）在）在ToolBar控件中創(chuàng)建按鈕（控件中創(chuàng)建按鈕（Button）對象。）對象。 （4）在工具欄（如）在工具欄（如To

56、olBar1）的）的ButtonClick事件事件中用中用Select Case語句對各按鈕進行相應的編程。語句對各按鈕進行相應的編程?！纠?-5】使用工具欄控件重新設計例使用工具欄控件重新設計例9-4中的簡易中的簡易文本編輯器，如圖文本編輯器，如圖9-18所示。所示。圖圖9-18 利用工具欄控件設計的帶工具欄的簡易文本編輯器利用工具欄控件設計的帶工具欄的簡易文本編輯器 在例在例4-2的基礎上進行操作。的基礎上進行操作。 （1）修改應用程序用戶界面。將窗體上的圖片框及其）修改應用程序用戶界面。將窗體上的圖片框及其中的命令按鈕及復選框刪除，再添加一個工具欄控件中的命令按鈕及復選框刪除，再添加一

57、個工具欄控件ToolBar1和一個圖像列表控件和一個圖像列表控件ImageList1。設置。設置ToolBar1的的Align屬性為屬性為1-cdlAligntop，如圖，如圖9-19所示。所示。 （2）通過）通過“屬性屬性”對話框設置工具欄控件與圖像列表對話框設置工具欄控件與圖像列表控件的屬性。先選中圖像列表控件控件的屬性。先選中圖像列表控件ImageList1并右擊，在并右擊，在彈出的快捷菜單中選擇彈出的快捷菜單中選擇“屬性屬性”命令即可打開命令即可打開“屬性頁屬性頁”對話框，切換到對話框，切換到“圖像圖像”選項卡，單擊選項卡，單擊“插入圖片插入圖片”按鈕，按鈕，并依次從并依次從commo

58、ngraphicbitmapstlbr_w95目錄中選取圖目錄中選取圖片文件片文件New.bmp、Open.bmp、Save.bmp、Cut.bmp、Copy.bmp、Paste.bmp，如圖，如圖9-20所示，單擊所示，單擊“確定確定”按按鈕關閉鈕關閉“屬性頁屬性頁”對話框。對話框。 圖圖9-19 添加工具欄控件添加工具欄控件 圖圖9-20 向圖像列表控件向圖像列表控件ImageList1中添加圖像中添加圖像 （3）選中工具欄控件）選中工具欄控件ToolBar1，打開，打開“屬性頁屬性頁”對話框。切換到對話框。切換到“通用通用”選項卡，將選項卡，將“圖像列表圖像列表”屬性改為屬性改為Imag

59、eList1，建立與圖像列表框的關聯(lián)。，建立與圖像列表框的關聯(lián)。切換到切換到“按鈕按鈕”選項卡，依次插入按鈕，如表選項卡，依次插入按鈕，如表9-9所示。單擊所示。單擊“確定確定”按鈕，關閉按鈕，關閉“屬性頁屬性頁”對話框。對話框。添加了工具欄的窗體如圖添加了工具欄的窗體如圖9-21所示。所示。圖圖9-21 向工具欄中添加按鈕向工具欄中添加按鈕 （4）修改及編寫程序代碼。）修改及編寫程序代碼。修改窗體的事件代碼如下：修改窗體的事件代碼如下：Private Sub Form_Resize() With Text1 Left=0 Top=Toolbar1.Height Height=Form1.Sc

60、aleHeight-Toolbar1.Height Width=Form1.ScaleWidth End WithEnd Sub編寫工具欄按鈕的事件代碼如下：編寫工具欄按鈕的事件代碼如下：Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) n=Button.index Select Case n Case 2,3,4 File_Click(n-2) Case 6,7,8 Edi_Click(n-6) End SelectEnd Sub4.2.2 任務二任務二 使用使用CoolBar控件控件 Visual Basic 6.0提供了功