1、菜單和對話框,第七章,回顧,使用過程和函數(shù) 說明程序中過程和函數(shù)的作用范圍 使用參數(shù)和在函數(shù)及過程中傳遞參數(shù)的規(guī)則 使用 Visual Basic 支持的內部函數(shù) 使用 SUB MAIN 過程,本章目標,設計菜單和編寫菜單代碼 設計和使用窗口中的彈出菜單 解釋和使用系統(tǒng)對話框輸入數(shù)據 解釋和使用對話框控件 設計和使用自定義對話框,菜單的必要性,應用程序可以執(zhí)行多種任務 為了使用戶可以高效地使用應用程序，它必須具備下列功能： 通知用戶可用的任務 向用戶提供指定所要執(zhí)行的任務的方法 菜單提供了一種便捷統(tǒng)一的方法，將不同的命令分組排列，使用戶可以方便地訪問,菜單示例,標題欄,主菜單選項,菜單欄,子菜

2、單選項,菜單的元素,菜單欄顯示在窗體標題欄的正下方，包含一個或多個菜單選項 每個菜單選項下可能會顯示一個或多個選項 菜單欄上的選項是主菜單選項 位于主菜單選項下方的選項稱為子選項 顯示在菜單欄上的菜單選項都分別表明了它們所提供的操作的種類 常見的種類文件，編輯，視圖，窗口，幫助等,菜單編輯器,菜單控件屬性,菜單控件列表框,菜單編輯器選項 2- 1,標題 名稱 快捷鍵 復選 有效 顯示窗口列表 （此處請實際操作）,菜單編輯器選項 2-2,右箭頭 左箭頭 上箭頭 下箭頭 菜單列表 下一個 插入 刪除 （此處請實際操作）,編寫菜單事件代碼,與菜單項相關聯(lián)的 Click 事件用于定義在選擇該菜單項時必

3、定會觸發(fā)的操作 通常，Click 事件用于根據選定的菜單選項加載或卸載應用程序中的窗體 也可以使用 Click 事件啟用或禁用特定的菜單選項,Click 事件示例 2-1,Private Sub mnuNew_Click() Load frmnew End Sub,Click事件通常用于根據選定的菜單選項加載或卸載應用程序中的窗體,Click 事件示例 2-2,使用Click事件啟用或禁用特定的菜單選項,Private Sub mnuNew_Click() mnuOpen.Enabled = False mnuSave.Enabled = True mnuPrint.Enabled = Tru

4、e mnuClose.Enabled = True mnuExit.Enabled = False End Sub,菜單項的屬性,Visible 指定在運行時用戶是否可以看到該菜單項 Enabled 指定用戶在運行時是否可以使用該菜單項 Checked 決定是否在菜單項的旁邊顯示復選標記 Index 可以創(chuàng)建一個菜單項數(shù)組,彈出菜單,可以使用快捷菜單或彈出菜單來訪問常用的命令 彈出菜單是用戶單擊鼠標右鍵時，在光標位置顯示的菜單 彈出菜單是一種普通菜單，它的不同之處在于它不會固定到窗體,激活彈出菜單的示例,Private Sub Form_MouseDown(Button As Integer,

5、 Shift As Integer, X As Single, Y As Single) If Button = vbRightButton Then PopupMenu mnuEdit End If End Sub,創(chuàng)建彈出菜單需要兩個步驟： 1.使用菜單編輯器創(chuàng)建菜單 2.使用 PopupMenu 方法激活菜單,動態(tài)菜單,動態(tài)菜單是可以在運行時更改的菜單 使用動態(tài)菜單可以在運行時添加或刪除特定的菜單命令 創(chuàng)建動態(tài)菜單 需要先創(chuàng)建一個菜單項控件數(shù)組 將菜單選項添加到編輯器時，將菜單項的“索引”屬性設置為 0 此后，所有要添加到控件數(shù)組的菜單項都必須具有相同的名稱和不同的索引值 （演示如何設置

6、空間數(shù)組）,加載和卸載菜單項,Load 命令用于將項加載到數(shù)組 Load 命令必須與控件數(shù)組名稱和要添加的元素的索引一起使用 Unload 命令用于刪除數(shù)組的元素 要使用此命令，同樣需要指定控件數(shù)組名稱和要刪除的元素的索引,Visual Basic 中的對話框,對話框是包含控件的臨時窗口 用于向用戶顯示信息和消息 接受用戶信息的方法,對話框的特征,對話框通常沒有菜單 不能調整對話框的大小 對話框很少用作應用程序的主界面 對話框主要用于顯示信息或在執(zhí)行某個特定操作時獲取用戶輸入,對話框類型,通用對話框 通用對話框是系統(tǒng)預定義的對話框，它用于規(guī)范用戶執(zhí)行許多應用程序中常見的復雜操作的方法 通用對話

7、框的示例有“顏色”、“打開”、“另存為”和“打印”對話框 自定義對話框 為了滿足應用程序的需求而由程序員設計的對話框,演示,演示常見的通用對話框,系統(tǒng)定義的 InputBox(),輸入框是由系統(tǒng)定義的對話框，包含一個信息提示、一個文本框以及兩個命令按鈕“確定”和“取消” 對話框等待用戶輸入文本或單擊按鈕，然后返回文本框的內容 輸入框在應用程序要求用戶提供一個輸入時，非常有用,在程序中使用 InputBox( ),Dim num as integer num=inputbox(“請輸入定購數(shù)量”,”定購狀態(tài)”),輸入對話框格式,Inputbox(prompt ,title ,default ,x

8、pos ,ypos) Prompt :對話框中出現(xiàn)的文本。 Title: 對話框的標題 Default : 指定輸入對話框的文本框中顯示的默認值 Xpos:指定對話框的左邊與屏幕左邊的水平距離 省略則對話框會在水平方向居中 Ypos:指定對話框的上邊與屏幕上邊的垂直距離 省略則對話框會在屏幕垂直方向距下邊大約三分之一的位置,通用對話框控件,Visual Basic 提供的通用對話框適用于下列操作： 打開一個文件 保存一個文件 打印 設置字體 設置顏色 顯示幫助,添加通用對話框控件,自定義對話框,自定義對話框是由用戶根據需求自定義的對話框 控制用戶登錄應用程序的登錄屏幕就是這類對話框的一個很好的

9、示例,Commondialog控件對話框,有關屬性,Filename : 返回或設置所選文件的路徑和文件名 Fiter : 文件類型過濾器 Cancelerror : 返回一個值：當選取“取消”按鈕時是否出錯； Defaultext: 用來指定文件的擴展名。 Dialogtitle : 設置對話框標題 Filetitle :返回或設置所選文件的路徑和文件名(沒有路徑） Initdir :返回或設置文件目錄,字體對話框的flags 屬性,模式對話框,有模式對話框在顯示時，不允許用戶執(zhí)行任何操作 例如，如果對話框要求用戶在切換到其他窗體或對話框前單擊“確定”或“取消”，則此對話框為有模式對話框 Visual Basic 中的“關于”對話框是有模式對話框 顯示重要消息的對話框總應當是模式的,無模式對話框,無模式對話框允許用戶在不關閉該對話框的情況下，在對話框和其他窗體間切換 允許用戶在顯示對話框時，在當前應用程序中繼續(xù)進行其他工作 “查找” 對話框就是一個無模式對話框的示例,模式屬性,Object.show style Eg: Form1.show vbmodal 模式對話框顯示 Form1.show vbmodeless 無模式對話框顯示,總結