【正文】 2022/2/16 清華大學(xué)出版社 1 Visual Basic 程序設(shè)計(jì)與實(shí)訓(xùn)教程 (下 ) 2022/2/16 清華大學(xué)出版社 2 第 8章 菜單 菜單編輯器 下拉式菜單 彈出式菜單 菜單定制 2022/2/16 清華大學(xué)出版社 3 【 目的要求 】 1. 掌握下拉式菜單的建立方法 2. 掌握彈出式菜單的建立方法 3. 掌握簡單的菜單編程 4. 掌握菜單的控制方法 【 重點(diǎn) 】 、彈出式菜單的創(chuàng)建方法 【 難點(diǎn) 】 在實(shí)際編程中對菜單的控制 2022/2/16 清華大學(xué)出版社 4 菜單編輯器 在應(yīng)用程序窗口中加入菜單不僅可以方便用戶的使用，并可以避免由于誤操作而帶來的嚴(yán)重后果。利用 Visual Basic所提供的 【 菜單編輯器 】 可以非常方便地建立菜單。下圖是一個(gè)典型的菜單。 主菜單 菜單標(biāo)題 菜單項(xiàng) 分隔條 快捷鍵 熱鍵 2022/2/16 清華大學(xué)出版社 5 8. 1 菜單編輯器 1. 打開 【 菜單編輯器 】 通過以下四種方法可以打開 【 菜單編輯器 】 ： （ 1） 在 【 工具 】 菜單中選擇 【 菜單編輯器 】 選項(xiàng)。 （ 2） 在工具欄上單擊 【 菜單編輯器 】 按鈕。 （ 3） 在當(dāng)前窗體上單擊鼠標(biāo)右鍵，將彈出一個(gè)快捷菜單，然后選擇【 菜單編輯器 】 選項(xiàng)。 （ 4）在當(dāng)前窗體上使用熱鍵“ Ctrl + E‖。 2022/2/16 清華大學(xué)出版社 6 2. 【 菜單編輯器 】 的結(jié)構(gòu) 【 菜單編輯器 】 主要分為三個(gè)部分，即數(shù)據(jù)區(qū)、編輯區(qū)和菜單項(xiàng)顯示區(qū)。 數(shù)據(jù)區(qū) 編輯區(qū) 菜單項(xiàng)顯示區(qū) 2022/2/16 清華大學(xué)出版社 7 下拉式菜單 圖 圖 2022/2/16 清華大學(xué)出版社 8 【 例 】 設(shè)計(jì)一個(gè)如圖 ，屬性設(shè)置如下表 標(biāo)題（ P） 名稱（ M） 內(nèi)縮符號 快捷鍵 編輯（ amp。E） mnuEdit 無 (None) 剪切 mnuEditCut … . Ctrl+X 復(fù)制 mnuEditCopy … . Ctrl+C 粘貼 mnuEditPaste … . Ctrl+V 清除 mnuEditClear … . (None) mnuEditBar … . (None) 退出（ amp。X） mnuEditExit … . (None) 2022/2/16 清華大學(xué)出版社 9 在菜單編輯器中建立 【 例 】 所述菜單 2022/2/16 清華大學(xué)出版社 10 彈出式菜單 建立彈出式菜單通常有兩步： 首先用菜單編輯器建立菜單 然后在有關(guān)的控件對象的某個(gè)事件中用 PopupMenu方法彈出顯示。 第一步的操作與下拉式菜單基本相同，如果彈出式菜單不需要在頂級菜單處顯示，則把菜單項(xiàng)（頂級菜單）的 “ 可見 ” 屬性設(shè)置為 False（即不選中），如果彈出式菜單需要在頂級菜單處顯示，則菜單項(xiàng)（頂級菜單）的 “ 可見 ” 屬性設(shè)置為 True（即選中）不變，如 【 例 】 ，效果見圖 。 2022/2/16 清華大學(xué)出版社 11 PopupMenu方法的格式為： [對象 .]PopupMenu 菜單名 [,flags [,x [,y [,BoldCommand]]]] 說明： (1) 對象：即窗體名，省略該項(xiàng)將打開當(dāng)前窗體的菜單。 (2) 菜單名：是指通過菜單編輯器設(shè)計(jì)的菜單 (至少有一個(gè)子菜單項(xiàng) )的名稱。 (3) Flags：為一些常量數(shù)值的設(shè)置，包含位置及行為兩個(gè)指定值，如書中表 。兩個(gè)常數(shù)可以相加或以 or相連。 (4) X和 Y：用來指定彈出式菜單顯示位置的橫坐標(biāo) (X)和縱坐標(biāo) (Y)。如果省略，則彈出式菜單在鼠標(biāo)光標(biāo)的當(dāng)前位置顯示。 (5) BoldCommand：指定在顯示的彈出式菜單中想以粗體字體出現(xiàn)的菜單項(xiàng)的名稱。在彈出式菜單中只能有一個(gè)菜單項(xiàng)被加粗。 2022/2/16 清華大學(xué)出版社 12 如在窗體上要通過單擊鼠標(biāo)右鍵顯示 【 例 】 中的菜單mnuEdit，則在窗體的 MouseDown事件中可進(jìn)行如下編程： Private Sub Form_MouseDown(Button As Integer, Shift As Integer,_ X As Single, Y As Single) If Button = 2 Then PopupMenu mnuEdit End If End Sub 2022/2/16 清華大學(xué)出版社 13 在應(yīng)用程序中，菜單項(xiàng)的作用可能會(huì)因?yàn)閳?zhí)行條件的變化而發(fā)生一些相應(yīng)的改變。這就涉及到菜單的控制問題。比如菜單項(xiàng)的有效性控制、菜單項(xiàng)的刪減等。 1. 使菜單命令有效或無效 菜單中的某些菜單項(xiàng)能根據(jù)執(zhí)行條件的不同進(jìn)行動(dòng)態(tài)變化，即當(dāng)條件滿足時(shí)可以執(zhí)行，否則不能執(zhí)行。 下列語句可使 【 例 】 中的 “ 粘貼 ” 菜單項(xiàng)失效： = False 菜單項(xiàng)失效將使得該菜單項(xiàng)及其所有子菜單都失效。 菜單定制 2022/2/16 清華大學(xué)出版社 14 下列語句可隱藏 【 例 】 中的 “ 清除 ” 菜單項(xiàng)： mnuEditClear. Visible = False 2. 隱藏或顯示菜單項(xiàng) 3. 菜單項(xiàng)的復(fù)選標(biāo)記 所謂菜單項(xiàng)的復(fù)選標(biāo)記 ， 就是在菜單項(xiàng)前加上一個(gè) “ √ ” ， 它有兩個(gè)作用：一是可以明顯地表示當(dāng)前某個(gè) （ 或某些 ） 命令狀態(tài)是 “ On‖或 “ Off‖；二是可以表示當(dāng)前選擇的是哪個(gè)菜單項(xiàng) 。如圖 “ 清除 ” 菜單項(xiàng) 。 下列語句可使 【 例 】 中的 “ 清除 ” 菜單項(xiàng)加上一個(gè) “ √ ” ： = True 2022/2/16 清華大學(xué)出版社 15 Visual Basic將菜單項(xiàng)視為控件，因此就可以運(yùn)用控件數(shù)組來管理菜單項(xiàng)，即菜單控件數(shù)組。應(yīng)用菜單控件數(shù)組的好處主要有兩個(gè)： ? 用于動(dòng)態(tài)增刪菜單項(xiàng) ? 簡化編程，用一段過程代碼處理多個(gè)菜單項(xiàng) 菜單控件數(shù)組的建立方法：在菜單編輯器中對菜單項(xiàng)的“索引”項(xiàng)設(shè)置為非空的數(shù)值（一般從 0開始）。 4. 創(chuàng)建菜單控件數(shù)組 2022/2/16 清華大學(xué)出版社 16 【 例題 】 建立一個(gè)如圖所示的菜單，用戶可以通過選擇菜單中的菜單項(xiàng)改變文本框中內(nèi)容的外觀。 2022/2/16 清華大學(xué)出版社 17 設(shè)計(jì)步驟如下。 （ 1）建立控件 在窗體上添加一個(gè)文本框，將它的 Text屬性置為空。 （ 2）設(shè)計(jì)菜單 在窗體設(shè)計(jì)狀態(tài)下選擇“工具”菜單下的“菜單編輯器”命令，調(diào)出菜單設(shè)計(jì)窗口。在菜單設(shè)計(jì)窗口中，按下表設(shè)計(jì)菜單項(xiàng)。 2022/2/16 清華大學(xué)出版社 18 2022/2/16 清華大學(xué)出版社 19 （ 3）把代碼連接到菜單上 在窗體窗口單擊菜單標(biāo)題，然后在下拉菜單中單擊要連接代碼的菜單項(xiàng)，在屏幕上就會(huì)出現(xiàn)代碼窗口，并自動(dòng)給出事件過程的頭尾語句。只要在頭尾語句間輸入代碼即可 。 程序如下： Private Sub ht_Click() = End Sub Private Sub HWCY_Click() 39。華文彩云 = End Sub Private Sub st_Click() = End Sub 2022/2/16 清華大學(xué)出版社 20 Private Sub ct_Click() = Not End Sub Private Sub xt_Click() = Not End Sub Private Sub er_Click() = 20 End Sub Private Sub ss_Click() = 30 End Sub 如何使用控件數(shù)組完成該例題 ? 2022/2/16 清華大學(xué)出版社 21 【 例 】 我們將上面立體中的“字體”菜單的內(nèi)容作為彈出式菜單。 (首先將“字體”菜單的 Visibled屬性設(shè)置為 False) Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu zt End If End Sub 注意 :在實(shí)際操作中彈出式菜單的執(zhí)行 ,每次右擊鼠標(biāo)時(shí) ,彈出的都是系統(tǒng)菜單 ,如何解決這個(gè)問題呢 ? 2022/2/16 清華大學(xué)出版社 22 在運(yùn)行時(shí)增減菜單項(xiàng)，首先要建立菜單控件數(shù)組，然后在程序代碼中用 Load 方法增加菜單項(xiàng)，用 UnLoad方法刪除菜單項(xiàng)。 如本章 【 例 】 5. 在運(yùn)行時(shí)增減菜單項(xiàng) (一般了解 ) 2022/2/16 清華大學(xué)出版社 23 第 9章 高級界面設(shè)計(jì) 添加高級控件 圖像列表控件 工具欄控件 狀態(tài)欄控件 公用對話框 圖形控件 MDI窗體 2022/2/16 清華大學(xué)出版社 24 【 目的要求 】 ； Imagelist控件的設(shè)置方法； 、 狀態(tài)欄的手工設(shè)置方法； MDI窗體的應(yīng)用； VB的繪圖功能 。 【 重點(diǎn) 】 掌握 MDI窗體的應(yīng)用； 2022/2/16 清華大學(xué)出版社 25 添加高級控件 右擊工具箱面板，從彈出的菜單中選擇 【 部件 】 菜單項(xiàng)，或單擊 【 工程 】 菜單中的 【 部件 】菜單項(xiàng)，此是時(shí)出現(xiàn)如圖 93的所示的 【 部件 】 對話框，用鼠標(biāo)單擊 Microsoft Windows Common Controls 選框，單擊 【 確定 】 按鈕，部件被添加到 【 工具箱 】 面板上，如圖 94所示，共有 9個(gè)控件添加到【 工具箱 】 中。用戶可將新增的控件按鈕拖至 【 高級控件 】 選項(xiàng)卡中。 2022/2/16 清華大學(xué)出版社 26 圖像列表控件 (ImageList ) Imagelist常用屬性 : 屬 性 功 能 BackColor 讀取或設(shè)置本控件的背景顏色 ImageHeight 讀取或設(shè)置本控件包含的 ListImage對象的高度 ImageWidth 讀取或設(shè)置本控件包含的 ListImage對象的寬度 Index 控件數(shù)組下標(biāo) ListImages 指向本控件所包含的 ListImage對象的集合 圖像列表框控件 （ ImageList） 用于保存許多圖像 ， 以供其他控件使用 ， 如狀態(tài)欄 （ StatusBar） 和工具欄 （ ToolBar） 控件 。 其中的各個(gè)圖像可以作為 ListImage對象來接受訪問 ， 或者所有的圖像可作為一個(gè) ListImages集合來接受訪問 。 2022/2/16 清華大學(xué)出版社 27 ListImage對象的屬性 （ 一般 了解 ） ListImage對象產(chǎn)生一個(gè)將成為 ListImages集合部分的圖像。其屬性如表所示。 屬 性 功 能 Index 產(chǎn)生控件數(shù)組 Key 讀取或設(shè)置用于在一個(gè)集合中識別一個(gè)對象的串字符 Picture 返回或設(shè)置將顯示在控件中的圖片 2022/2/16 清華大學(xué)出版社 28 ListImages集合的屬性和方法 Imagelist控件的 ListImages屬性是一個(gè) 集合對象，它具有下面的屬性： 方法 功 能 Add 向本集合添加一個(gè) ColumnHeader對象 Clear 清除本集合中所有 ColumnHeader對象 Item 訪問本集合中一個(gè)指定的 ColumnHeader對象 Remove 從本集合中刪除一個(gè) ColumnHeader對象 Imagelist控件的屬性 【 例 】 建立一個(gè)應(yīng)用程序，向窗體添加圖像列表控件。該控件只在設(shè)計(jì)狀態(tài)下可見，運(yùn)行時(shí)不可見。 2022/2/16 清華大學(xué)出版社 29 工具欄控件 工具欄控件（ Toolbar）用來在窗體上產(chǎn)生具有很多按鈕對象的工具欄，按鈕上可以顯示文字、圖形或兩者兼有，可用該控件生成如 Word那樣的工具欄。 工具欄控件屬性和事件 屬 性 功 能 Align 讀出或設(shè)置對象在窗體中的顯示位置。它有 5個(gè)值可供選擇，用來設(shè)置工具欄放置在窗體的上部、下部、左邊或右邊等 Buttons 訪問本控件中使用的 Button對象的集合 ImageList 讀出和設(shè)置與本控件相關(guān)聯(lián)的 ImageList控件。該屬性被設(shè)置后，可以向工具