【正文】 菜單設(shè)計(jì) 應(yīng)用程序通過(guò)菜單為用戶提供一組命令 菜單一般分為兩種：即 下拉式菜單 和 彈出式菜單 下拉式菜單 1. 下拉式菜單基本結(jié)構(gòu)包括：頂層菜單、菜單項(xiàng)和子菜單 子菜單項(xiàng) 子菜單提示符 訪問(wèn)鍵 快捷鍵 分隔線 復(fù)選標(biāo)記 菜單項(xiàng) 頂層菜單 菜單編輯器 設(shè)計(jì)菜單的工具 啟動(dòng)菜單編輯器的方法 菜單編輯器分為上、下兩部分， 上半部分 用來(lái) 設(shè)置屬性 ，下半部分 是 菜單顯示區(qū) ，用來(lái)顯示用戶輸入的菜單內(nèi)容。內(nèi)縮符號(hào) (4個(gè)點(diǎn)“ 位數(shù)標(biāo)記 sel2 = 39。命題 按鈕單擊事件 Dim a As Long, b As Long If sel1 = 0 Or sel2 = Then MsgBox 先選擇運(yùn)算數(shù)的位數(shù)和運(yùn)算類型 Exit Sub End If a = sel1 + Int(9 * sel1 * Rnd) 39。答題 按鈕單擊事件 Dim r2 As Long If = Then MsgBox 請(qǐng)輸入答案 Exit Sub End If r2 = Val() 39。 舉例： =True 3. 使菜單項(xiàng)不可見 舉例： =True 彈出式菜單 彈出式菜單又稱為快捷菜單。 ［對(duì)象 ] PopupMenu 菜單名 [, 位置常數(shù) ][, 橫坐標(biāo) [, 縱坐標(biāo) ]]] 例 在例 ，把 “ 位數(shù) ” 菜單改為快捷菜單 (1)打開例 ，選定窗體，然后在菜單編輯器中將“位數(shù)”菜單標(biāo)題的“可見”框中的“ √”取消 (即不選中 ) (2)增加以下的 MouseUp事件過(guò)程代碼： Private Sub Form_MouseUp(Button As Integer, _ Shift As Integer, X As Single, Y As Single) If Button = 2 Then ?檢查是否右擊 ,擊左鍵為 1 PopupMenu mnu10 End If End Sub 程序運(yùn)行時(shí)，右擊窗體空白處，即會(huì)彈出快捷菜單，如圖 彈出式菜單 工具欄和狀態(tài)欄 分別通過(guò) Active X控件 ToolBar和 StatusBar來(lái)實(shí)現(xiàn) Active X控件簡(jiǎn)介 VB中使用的控件有三類： 標(biāo)準(zhǔn)控件、 ActiveX控件和可插入對(duì)象 (如 Word文檔、 Excel工作表等，可當(dāng)作控件使用 ) Active X控件是一段可重復(fù)使用的程序代碼和數(shù)據(jù)。 (4)在原有程序代碼的基礎(chǔ)上， 增加 以下的 ButtonClick事件過(guò)程 代碼 Private Sub Toolbar1_ButtonClick(ByVal Button As _ ) Select Case Case 1 sel2 = + Case 2 sel2 = Case 3 sel2 = * End Select End Sub 狀態(tài)欄 狀態(tài)欄 (StatusBar)通常位于窗體的底部，主要用于顯示應(yīng)用程序的各種狀態(tài)信息。 (8)要在運(yùn)行中使第 1個(gè)窗格顯示“正在運(yùn)行中”，可在 Form_Load()事件過(guò)程中加入如下代 (1)= 正在運(yùn)行中 運(yùn)行程序 窗體和大多數(shù)控件都能響應(yīng)鍵盤和鼠標(biāo)事件 鍵盤事件 有三種事件處理鍵盤操作，即 KeyPress、 KeyDown和KeyUp事件 1. KeyPress事件 2. KeyDown事件： 用戶按下鍵盤上某個(gè)鍵時(shí)觸發(fā)此事件 Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) Print ″ 按下鍵的代碼是 ″ ； KeyCode End Sub 參數(shù) KeyCode是一個(gè)按下鍵的代碼（不區(qū)分大小寫） 鍵盤與鼠標(biāo)事件 3. KeyUp事件： 用戶按下鍵盤上某個(gè)鍵后釋放時(shí)觸發(fā)此事件。它可用來(lái)控制在拖放操作完成時(shí)要進(jìn)行的處理。其事件過(guò)程的語(yǔ)法格式為： Private Sub 對(duì)象名 _DragOver(Source As Control, X As Single, _ Y As Single, State As Integer) State參數(shù)： 0 表示進(jìn)入，即源對(duì)象正進(jìn)入目標(biāo)對(duì)象內(nèi)； 1 表示離開，即源對(duì)象正在離開目標(biāo)對(duì)象； 2 表示跨越，即源對(duì)象在目標(biāo)范圍內(nèi)移動(dòng)位置 3. 方法 常用的有 Drag方法。啟動(dòng)“拖動(dòng)”操作 End Sub Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 2 180。在圖片框中顯示文本框中的選定內(nèi)容 End Sub Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then 180。 屬性設(shè)置可以在屬性窗口或程序代碼中進(jìn)行，也可以通過(guò)“屬性頁(yè)”對(duì)話框來(lái)設(shè)置 2．屬性頁(yè) 3．通用對(duì)話框的基本屬性和方法 (1)Name屬性 (2)Action屬性：該屬性直接決定打開哪種對(duì)話框 對(duì)話框類型 Action屬性值 無(wú)對(duì)話框 0 打開”對(duì)話框 1 ShowOpen “另存為”對(duì)話框 2 ShowSave “顏色”對(duì)話框 3 ShowColor “字體”對(duì)話框 4 ShowFont “打印”對(duì)話框 5 ShowPrinter “幫助”對(duì)話框 6 ShowHelp 例如，利用通用對(duì)話框 CommonDialog1產(chǎn)生一個(gè)“打開”對(duì)話框，可以執(zhí)行下列語(yǔ)句： =1 或 (3)DialogTitle屬性：該屬性用于設(shè)置對(duì)話框的標(biāo)題 (4)ConcelError屬性：該屬性表示用戶在使用對(duì)話框進(jìn)行對(duì)話時(shí)，單擊“取消”按鈕是否產(chǎn)生錯(cuò)誤信息 (5)通用對(duì)話框的方法 4. “打開”對(duì)話框 在程序中將通用對(duì)話框的 Action屬性設(shè)置為 1，或用ShowOpen方法打開，則彈出“打開文件”對(duì)話框 “打開”對(duì)話框的屬性： FileName、 FileTitle、 Filter、 FilterIndex、 IniDir 例 建立一個(gè) “ 打開文件 ” 的對(duì)話框 在窗體上添加一個(gè)通用對(duì)話框和一個(gè)“打開”命令按鈕，當(dāng)單擊“打開”按鈕時(shí)，就會(huì)彈出一個(gè)“打開文件”的對(duì)話框 (1) 把 CommonDialog控件添加到工具箱中。斜體 End Sub 8. “ 9. “幫助”對(duì)話框 自定義對(duì)話框 創(chuàng)建自定義對(duì)話框就是建立一個(gè)窗體，在窗體上根據(jù)需要放置控件，通過(guò)設(shè)置控件屬性值來(lái)定義窗體的外觀 因?yàn)閷?duì)話框沒有控制菜單框 (標(biāo)題欄左側(cè) )和最大化、最小化按鈕，不能改變其大小，所以應(yīng)設(shè)置以下對(duì)話框的屬性，見表 用窗體自定義對(duì)話框， 一般步驟 ： (1)向工程添加窗體 (2)在窗體上創(chuàng)建其他控件對(duì)象，定義對(duì)話框的外觀 (3)設(shè)置窗體和控體對(duì)象的屬性 (4)在代碼窗口中創(chuàng)建事件過(guò) 文件系統(tǒng)控件 VB工具箱中提供了三種文件系統(tǒng)控件： 驅(qū)動(dòng)器列表框(DriveListBox)、 文件夾列表框 (DirListBox)和 文件列表框(FileListBox)。 當(dāng) FileListBox沒有文件顯示時(shí) ListIndex屬性值為 1