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