第10章 菜單與工具欄

1、 菜單欄和工具欄的使用，為菜單欄和工具欄的使用，為WinowsWinows類的應(yīng)用程序增色不少；類的應(yīng)用程序增色不少； 也為用戶使用軟件提供了最大的便利條件。在也為用戶使用軟件提供了最大的便利條件。在VBVB中為應(yīng)用程序制中為應(yīng)用程序制 作菜單和工具欄非常方便，只有引用相應(yīng)的控件即可。作菜單和工具欄非常方便，只有引用相應(yīng)的控件即可。 10.110.1使用菜單使用菜單 10.2 10.2 使用工具欄使用工具欄 當(dāng)一個應(yīng)用軟件中有眾多可操作內(nèi)容時，用菜單可使程序界當(dāng)一個應(yīng)用軟件中有眾多可操作內(nèi)容時，用菜單可使程序界 面變得簡潔、操作方便而直觀。當(dāng)然，菜單的內(nèi)容依軟件的不同面變得簡潔、操作方便而直觀

2、。當(dāng)然，菜單的內(nèi)容依軟件的不同 而不同，但菜單的基本形式只有兩種：而不同，但菜單的基本形式只有兩種： 一、下拉式菜單一、下拉式菜單 二、彈出式菜單二、彈出式菜單 下拉式菜單通過左擊菜單項打開，分為主菜單（菜單欄）和子菜單下拉式菜單通過左擊菜單項打開，分為主菜單（菜單欄）和子菜單 （最深可達（最深可達5 5層）。在層）。在VBVB中各種菜單的設(shè)計全是借助菜單編輯器（控件）中各種菜單的設(shè)計全是借助菜單編輯器（控件） 來完成的。來完成的。 1 1菜單編輯器菜單編輯器 打開打開“菜單編輯器菜單編輯器”的三種方法：的三種方法： 右擊窗體的空白處，選擇右擊窗體的空白處，選擇“菜單編輯器菜單編輯器”； 單擊

3、工具欄中的單擊工具欄中的“菜單編輯器菜單編輯器”； 選擇選擇“工具工具”菜單中的菜單中的“菜單編輯器菜單編輯器”。 “菜單編輯器菜單編輯器”的構(gòu)成的構(gòu)成 屬性區(qū)：屬性區(qū)：1010個屬性個屬性 編輯區(qū)：編輯區(qū)： 7 7個按鈕個按鈕 列表區(qū)：列表區(qū)： 列出已建立的菜單內(nèi)容列出已建立的菜單內(nèi)容 1 1菜單編輯器菜單編輯器 “菜單編輯器菜單編輯器”控件的主要屬性控件的主要屬性 標題（標題（CaptionCaption）：設(shè)置菜單項的標題，當(dāng)標題是）：設(shè)置菜單項的標題，當(dāng)標題是 “ “”時，時， 菜單項是一條分割線；用菜單項是一條分割線；用“& &字母字母”的方式可設(shè)置菜單的熱鍵的方式可設(shè)置菜單的熱鍵

4、（運行時用（運行時用AltAlt字母擊活）。字母擊活）。 名稱（名稱（NameName）：設(shè)置菜單項的名稱，以便在程序中識別和引用。）：設(shè)置菜單項的名稱，以便在程序中識別和引用。 索引（索引（IndexIndex）：設(shè)置菜單控件數(shù)組的下標。）：設(shè)置菜單控件數(shù)組的下標。 快捷鍵（快捷鍵（ShortCutShortCut）：設(shè)置擊活該子菜單項的快捷鍵）：設(shè)置擊活該子菜單項的快捷鍵 復(fù)選（復(fù)選（CheckedChecked）：設(shè)置菜單項前是否有復(fù)選標記）：設(shè)置菜單項前是否有復(fù)選標記“”。 有效（有效（EnabledEnabled）：設(shè)置菜單項有效或無效。）：設(shè)置菜單項有效或無效。 可見（可見（Vis

5、ibleVisible）：設(shè)置菜單項是否可見。）：設(shè)置菜單項是否可見。 1 1菜單編輯器菜單編輯器 “菜單編輯器菜單編輯器”控件的編輯區(qū)控件的編輯區(qū) “ ”“ ”：把選定的菜單下移一個等級。共：把選定的菜單下移一個等級。共5 5個等級。個等級。 “ ”“ ”：把選定的菜單上移一個等級。：把選定的菜單上移一個等級。 “ ”“ ”：把選定的菜單項在同級菜單內(nèi)向上移動一個位置。：把選定的菜單項在同級菜單內(nèi)向上移動一個位置。 “ ”“ ”：把選定的菜單項在同級菜單內(nèi)向下移動一個位置。：把選定的菜單項在同級菜單內(nèi)向下移動一個位置。 “下一個下一個”：將焦點轉(zhuǎn)移到下一個菜單項。：將焦點轉(zhuǎn)移到下一個菜單項。

6、 “插入插入”：在列表框的當(dāng)前選定行上方插入一項。：在列表框的當(dāng)前選定行上方插入一項。 “刪除刪除”：刪除當(dāng)前選定項。：刪除當(dāng)前選定項。 “菜單編輯器菜單編輯器”控件的列表區(qū)控件的列表區(qū) 列表框顯示菜單項的分級列表。將子菜單項縮進以指出它們的分列表框顯示菜單項的分級列表。將子菜單項縮進以指出它們的分 級位置或等級。級位置或等級。 實例：制作一個菜單欄，控制文本框中的文字效果：主菜單有：字實例：制作一個菜單欄，控制文本框中的文字效果：主菜單有：字 體、字號、顏色、字型、關(guān)閉；除了關(guān)閉菜單項以外，其它菜單項中體、字號、顏色、字型、關(guān)閉；除了關(guān)閉菜單項以外，其它菜單項中 均有子菜單；相應(yīng)的效果應(yīng)在菜

7、單項中有復(fù)選標記！均有子菜單；相應(yīng)的效果應(yīng)在菜單項中有復(fù)選標記！ 2 2菜單控件數(shù)組菜單控件數(shù)組 作用：作用： 可動態(tài)增減控件（菜單）；可動態(tài)增減控件（菜單）； 簡化程序、縮減程序代碼。簡化程序、縮減程序代碼。 創(chuàng)建方法：創(chuàng)建方法： 在菜單編輯器中，給菜單項起同一個名字，并設(shè)置其下標即可。在菜單編輯器中，給菜單項起同一個名字，并設(shè)置其下標即可。 注意事項：注意事項： 同一個菜單控件數(shù)組中的各菜單項名稱必須相同；同一個菜單控件數(shù)組中的各菜單項名稱必須相同； 控件數(shù)組元素的下標必須是升序；控件數(shù)組元素的下標必須是升序； 控件數(shù)組元素必須是連續(xù)的且在相同的子菜單內(nèi)；控件數(shù)組元素必須是連續(xù)的且在相同的

8、子菜單內(nèi)； 實例：實例： 在例在例9-29-2（簡易文本編輯器）中，加入菜單，并增加（簡易文本編輯器）中，加入菜單，并增加“編輯編輯”功功 能。能。 3 3菜單項的可用與不可用菜單項的可用與不可用 菜單可用與否應(yīng)根據(jù)程序的運行狀態(tài)來定。當(dāng)條件不成熟菜單可用與否應(yīng)根據(jù)程序的運行狀態(tài)來定。當(dāng)條件不成熟 時，菜單項應(yīng)隱藏起來（時，菜單項應(yīng)隱藏起來（Visible=FalseVisible=False）或設(shè)置成灰色狀態(tài)）或設(shè)置成灰色狀態(tài) （Enabled=FalseEnabled=False）。當(dāng)條件成熟后，再將相應(yīng)的菜單項設(shè)置成）。當(dāng)條件成熟后，再將相應(yīng)的菜單項設(shè)置成 可見（可見（Visible=T

9、rueVisible=True）或可用（）或可用（Enabled=TrueEnabled=True）狀態(tài)。）狀態(tài)。 實例：實例： 控制例控制例9-29-2簡易文本編輯器中，編輯菜單的可用狀態(tài)。簡易文本編輯器中，編輯菜單的可用狀態(tài)。 彈出式菜單又稱為快捷菜單，是在右擊某一對象時彈出的。彈出式菜單又稱為快捷菜單，是在右擊某一對象時彈出的。 1 1制作方法：制作方法： 在某一個要彈出快捷菜單的對象的在某一個要彈出快捷菜單的對象的MouseDownMouseDown事件中，判斷事件中，判斷ButtonButton的值是否為的值是否為2 2 （右鍵），若是則用（右鍵），若是則用PopupMenuPopu

10、pMenu方法，具體格式為：方法，具體格式為： 2 2格式：格式： . . PopupMenu PopupMenu ，flagsflags ，x x ，y y ，BoldCommandBoldCommand 3 3說明：說明： 若打開的快捷菜單不是本窗體中的菜單時，需指明窗體名；若打開的快捷菜單不是本窗體中的菜單時，需指明窗體名； 彈出的菜單名，可以是隱藏的；彈出的菜單名，可以是隱藏的； FlagsFlags可取可取0 0、4 4、8 8，決定菜單出現(xiàn)的位置：右、中、左；默認值為，決定菜單出現(xiàn)的位置：右、中、左；默認值為0 0； X X，Y Y指明菜單彈出的位置（從窗體的原點算起）；指明菜單彈

11、出的位置（從窗體的原點算起）； BoldCommandBoldCommand指明需加粗的菜單項的名稱（只能有一項）；指明需加粗的菜單項的名稱（只能有一項）； 文本框右擊，彈出的是系統(tǒng)提供的菜單，左擊可自定義有關(guān)彈出式菜單；文本框右擊，彈出的是系統(tǒng)提供的菜單，左擊可自定義有關(guān)彈出式菜單； 同一個菜單可作為多個對象的快捷菜單。同一個菜單可作為多個對象的快捷菜單。 3 3實例：實例： Private Sub Form_MouseDown(Button As Integer, Shift As Private Sub Form_MouseDown(Button As Integer, Shift As

12、 Integer, X As Single, Y As Single)Integer, X As Single, Y As Single) If Button = 2 Then If Button = 2 Then Form1.PopupMenu EDIT, , 500, 500, EDI(3) Form1.PopupMenu EDIT, , 500, 500, EDI(3) End If End If End SubEnd Sub Private Sub Command1_MouseDown(Button As Integer, Shift As Private Sub Command1_M

13、ouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Integer, X As Single, Y As Single) If Button = 2 Then If Button = 2 Then Form1.PopupMenu EDIT, , , , EDI(3) Form1.PopupMenu EDIT, , , , EDI(3) End If End If End SubEnd Sub 一、用手工方式制作工具欄一、用手工方式制作工具欄 二、使用二、使用Toolbar控件和控件和ImageList控件

14、控件 1 1添加圖片框：添加圖片框： 在窗體中添加一個圖片框作為工具欄的容器，將其在窗體中添加一個圖片框作為工具欄的容器，將其AlignAlign屬性設(shè)為非屬性設(shè)為非0 0； 2 2添加工具控件：添加工具控件： 如：按鈕類（互不干涉的按鈕用如：按鈕類（互不干涉的按鈕用CommandButtonCommandButton、互斥的按鈕用、互斥的按鈕用 OptionButtonOptionButton、可以多選的用、可以多選的用CheckBoxCheckBox），列表類（），列表類（ListBoxListBox、ComboBoxComboBox、 DriveListBoxDriveListBox），

15、其它類（），其它類（TextBoxTextBox、ScrollBarScrollBar）。）。 3 3設(shè)置控件的屬性：設(shè)置控件的屬性： 如按鈕類的如按鈕類的StyleStyle、PicturePicture，及各個控件的，及各個控件的ToolTipTextToolTipText等。等。 4 4編寫代碼：編寫代碼： 可以直接寫事件代碼，但通常工具欄中的內(nèi)容是對菜單等其它命令的快捷可以直接寫事件代碼，但通常工具欄中的內(nèi)容是對菜單等其它命令的快捷 訪問，因此也可直接調(diào)用相應(yīng)的過程。訪問，因此也可直接調(diào)用相應(yīng)的過程。 5 5實例：實例： 在例在例9-29-2（簡易文本編輯器）中，加入工具欄（新建、打開

16、、保存、粗體、（簡易文本編輯器）中，加入工具欄（新建、打開、保存、粗體、 斜體、下劃線等）。斜體、下劃線等）。 1 1ImageListImageList控件控件 ImageListImageList控件是一個為其它控件提供圖像資料的資料中心，它可以為控件是一個為其它控件提供圖像資料的資料中心，它可以為 ToolBarToolBar等許多控件提供圖像，但它本身不能單獨使用。等許多控件提供圖像，但它本身不能單獨使用。 添加添加ImageListImageList控件控件 在部件對話框中，選擇在部件對話框中，選擇Microsoft Windows Common Control 6Microsoft

17、 Windows Common Control 60 0，并，并 點擊確定，此時工具箱中會出現(xiàn)一組共點擊確定，此時工具箱中會出現(xiàn)一組共9 9個控件。個控件。 給給ImageListImageList控件添加圖像控件添加圖像 設(shè)置圖像大小設(shè)置圖像大小 添加圖像添加圖像 可以單個添加，也可以一次加入多個或全部，不需要的再刪除?？梢詥蝹€添加，也可以一次加入多個或全部，不需要的再刪除。 設(shè)置關(guān)鍵字設(shè)置關(guān)鍵字KeyKey 2 2ToolBarToolBar控件簡介控件簡介 ToolBarToolBar即工具條控件，是即工具條控件，是WindowsWindows中最常用的控件之一，它為用戶提供了中最常用的

18、控件之一，它為用戶提供了 訪問程序的快捷方式，極大地方便了用戶。訪問程序的快捷方式，極大地方便了用戶。 使用方法：使用方法： 在在“通用通用”標簽中將圖像列表設(shè)置好，然后在標簽中將圖像列表設(shè)置好，然后在“按鈕按鈕”標簽中添加按鈕，標簽中添加按鈕， 設(shè)置其所要用到的圖像的序號或關(guān)鍵字，并輸入相應(yīng)的工具提示文本。設(shè)置其所要用到的圖像的序號或關(guān)鍵字，并輸入相應(yīng)的工具提示文本。 ToolsBarToolsBar控件的屬性控件的屬性 AlignAlign屬性：工具欄出現(xiàn)的位置。屬性：工具欄出現(xiàn)的位置。 ButtonButton屬性：引用工具條中的相應(yīng)按鈕。屬性：引用工具條中的相應(yīng)按鈕。 ShowTipsShowTips屬性：是否顯示工具提示。屬性：是否顯示工具提示。 ImageListImageList屬性：用來指明于此工具條相應(yīng)的屬性：用來指明于此工具條相應(yīng)的ImageListImageList控件的名稱?？丶拿Q。 WrappableWrappable屬性：決定當(dāng)窗口寬度小于按鈕總寬度時，按鈕是否自動換行顯示。屬性：決定當(dāng)窗