【正文】 環(huán)境下，幾乎所有應(yīng)用程序都是通過菜單和工具欄實(shí)現(xiàn)操作，為用戶提供運(yùn)行命令的快捷方式。本章包括： ? 菜單欄 ? 彈出式菜單 ? 工具欄 VB從入門到實(shí)踐 菜單欄 菜單是用戶界面中的重要組成部分。在程序中加入菜單可以便于用戶使用。用戶對應(yīng)用文檔的許多操作命令都可以從菜單開始。 VB從入門到實(shí)踐 創(chuàng)建菜單 1．菜單模板向?qū)? VB從入門到實(shí)踐 創(chuàng)建菜單 2．菜單編輯器 VB從入門到實(shí)踐 修改菜單 在應(yīng)用程序開發(fā)中，開發(fā)人員可能需要定制或者修改編輯好的菜單。用“菜單編輯器”可以輕而易舉完成修改任務(wù)。 1．分隔菜單項(xiàng) VB從入門到實(shí)踐 修改菜單 2．設(shè)置訪問鍵和快捷鍵 菜單項(xiàng) 快捷鍵 說明 文件 |新建 Ctrl+N 新建一個(gè)文件 文件 |打開 Ctrl+O 打開對話框，用戶打開一個(gè)文件 文件 |保存 Ctrl+S 保存一個(gè)文件 文件 |打印 Ctrl+P 打印文件 編輯 |復(fù)制 Ctrl+C 復(fù)制 編輯 |粘貼 Ctrl+V 粘貼 編輯 |剪切 Ctrl+X 剪切 VB從入門到實(shí)踐 多級(jí)菜單 技巧： Visual Basic允許菜單層級(jí)達(dá)到 6級(jí)，但在實(shí)際應(yīng)用中避免太多層級(jí)出現(xiàn)，應(yīng)限制在 23級(jí)。 VB從入門到實(shí)踐 編寫代碼 1．編寫菜單執(zhí)行代碼 2．代碼編寫菜單屬性 VB從入門到實(shí)踐 菜單欄實(shí)例 1．標(biāo)準(zhǔn)菜單 2．多級(jí)菜單 VB從入門到實(shí)踐 彈出式菜單 彈出式菜單是獨(dú)立于菜單欄顯示在窗體上的浮動(dòng)菜單。在窗體上顯示的項(xiàng)目取決于鼠標(biāo)右鍵指針?biāo)幬恢?。通常用于對窗體中特定區(qū)域操作或選項(xiàng)進(jìn)行操作，又被稱為上下文菜單，具有使用方便、靈活性較強(qiáng)的特點(diǎn)。 VB從入門到實(shí)踐 創(chuàng)建彈出式菜單 創(chuàng)建彈出式菜單與創(chuàng)建標(biāo)準(zhǔn)菜單方法相同，采用菜單模板或“菜單編輯器”均可以創(chuàng)建彈出式菜單。注意彈出式菜單應(yīng)隱藏起來，避免顯示在菜單欄上。 注意：隱藏菜單既可以為彈出式菜單，也可以稱為標(biāo)準(zhǔn)菜單欄的一部分。 VB從入門到實(shí)踐 使用彈出式菜單 彈出式菜單建立后，需要在特定條件下使其顯示在窗體上。該方法可以應(yīng)用于窗體任何位置，但是多數(shù)情況下響應(yīng)鼠標(biāo)單擊右鍵。 menuName,Flags,X,Y,Boldmand 功能 定位常量 數(shù)值 說明 指定菜單位置 VbPopupMenuLeftAlign 0 默認(rèn)。 X坐標(biāo)定義該彈出式菜單的左邊界 VbPopupMenuCenterAlign 4 指定 X坐標(biāo)為中心 VbPopupMenuRightAlign 8 X坐標(biāo)定義該彈出式菜單的右邊界 定義菜單行為 VbPopupMenuLeftButton 0 單擊左鍵顯示彈出式菜單 VbPopupMenuRightButton 8 單擊右鍵顯示彈出式菜單 VB從入門到實(shí)踐 彈出式菜單實(shí)例 【 示例 913】 創(chuàng)建彈出式菜單。 VB從入門到實(shí)踐 工具欄 工具欄（ Toolbox）通常包含對應(yīng)應(yīng)用程序菜單命令的按鈕，進(jìn)一步便捷應(yīng)用程序命令的使用。工具欄采用圖標(biāo)按鈕形式來顯示相應(yīng)的功能。本小節(jié)將介紹如何創(chuàng)建工具欄以及編寫程序響應(yīng)工具欄事件。 VB從入門到實(shí)踐 工具欄簡介 工具欄通常包含一些帶有圖標(biāo)的按鈕，通常與菜單命令相對應(yīng)，提供了快速訪問應(yīng)用程序常用功能的簡便方法。 VB從入門到實(shí)踐 創(chuàng)建工具欄 創(chuàng)建工具欄需要多個(gè)控件：工具欄控件（ Toolbox控件）和ImageList控件。 ImageList控件包括其他控件需要使用的圖片集（詳見 ）。 VB從入門到實(shí)踐 添加圖標(biāo) 工具欄控件添加到窗體后，需要將要顯示在工具欄上的圖像添加到“圖像列表” ImageList控件中。 VB從入門到實(shí)踐 添加按鈕 工具欄控件中添加按鈕要在“工具欄” |“按鈕”選項(xiàng)卡中設(shè)置，包括“插入按鈕”、“刪除按鈕”兩個(gè)按鈕和“標(biāo)題”、“關(guān)鍵字”、“樣式”、“圖像”等幾個(gè)屬性。 VB從入門到實(shí)踐 編寫代碼 通過以上小節(jié)所述步驟，已經(jīng)創(chuàng)建一個(gè)完整“工具欄”框架。必須為其添加代碼執(zhí)行功能。通過“工具欄”自身ButtonClick事件可以為其編寫代碼。通過“關(guān)鍵字”屬性來判斷按鈕是否被單擊。 （ 1）雙擊窗體上的“工具欄”控件，彈出代碼編輯窗口。 （ 2）選擇對象為“ toolbar1”，過程為“ buttonClick”。輸入需要運(yùn)行代碼。 （ 3）關(guān)閉代碼編輯窗口。至此編寫代碼結(jié)束。 VB從入門到實(shí)踐 自定義工具欄 工具欄控件允許用戶按照自己的喜好定制工具欄。用戶定制工具欄必須設(shè)置 Allowcustomize屬性為 True，用戶可以雙擊工具欄訪問自定義工具欄對話框。 VB從入門到實(shí)踐 工具欄實(shí)例 【 示例 917】 綜合以上所述方法創(chuàng)建一個(gè)窗體實(shí)例，包括一個(gè)標(biāo)準(zhǔn)菜單和標(biāo)準(zhǔn)工具欄。 VB從入門到實(shí)踐 本章實(shí)例 本章實(shí)例包括創(chuàng)建標(biāo)準(zhǔn)菜單、彈出式菜單、工具欄三項(xiàng)內(nèi)容，并編寫運(yùn)行代碼控制菜單和工具欄顯示。 【 實(shí)例 91】使用“菜單編輯器”創(chuàng)建一個(gè)標(biāo)準(zhǔn)菜單、工具欄、彈出式菜單。 圖 運(yùn)行窗體 VB從入門到實(shí)踐 常見問題及解答 1．設(shè)計(jì)菜單有沒有簡單快捷的方法？ 2．可以自由設(shè)置自定義快捷鍵？ 3． Visual Basic中是否包含工具欄中常用圖標(biāo)？ VB從入門到實(shí)踐 小結(jié) 本章介紹了菜單欄、彈出式菜單、工具欄的創(chuàng)建方法，以及如何編程實(shí)現(xiàn)運(yùn)行代碼功能。本章重點(diǎn)難點(diǎn)包括：如何為菜單、工具欄編寫代碼。 Visual Basic程序中菜單和工具欄是實(shí)現(xiàn)程序功能的重要組成部分，為菜單和工具欄編寫代碼需要結(jié)合實(shí)例多分析實(shí)踐。 VB從入門到實(shí)踐 第 10章 信息對話框 信息對話框用來顯示或者接受信息的窗體。常見的信息對話框包括顯示信息和接受信息窗體。信息對話框一般模式化顯示，用戶必須選擇或輸入信息方可繼續(xù)運(yùn)行程序。本章內(nèi)容主要包括： ? 顯示信息對話框 ? 輸入信息對話框 ? 內(nèi)置信息對話框 ? 自定義對話框 VB從入門到實(shí)踐 信息對話框簡介 Visual Basic開發(fā)應(yīng)用程序中重要組成部分是為用戶顯示信息和接受信息。信息對話框?qū)⑻峁╋@示信息窗體和接受信息窗體。信息對話框是 Visual Basic中內(nèi)置標(biāo)準(zhǔn)對話框，使用方法與函數(shù)和過程類似。 Msgbox “一個(gè)顯示信息對話框” VB從入門到實(shí)踐 顯示信息 顯示信息主要使用 Msgbox函數(shù)。本節(jié)介紹 Msgbox函數(shù)的用法。 VB從入門到實(shí)踐 使用 Msgbox函數(shù) Msgbox函數(shù)在對話框中顯示消息，等待用戶單擊按鈕，并返回一個(gè)整數(shù)值 Integer告訴程序用戶所選擇按鈕。 Msgbox(Prompt[, Buttons] [, Title] [, Helpfile, ConText]) VB從入門到實(shí)踐 從 Msgbox函數(shù)返回值 Msgbox函數(shù)最重要作用是接受用戶選擇結(jié)果，將返回值賦予程序繼續(xù)運(yùn)行。帶有返回值的 Msgbox函數(shù)與無返回值相比，參數(shù)必須用括號(hào)括起來。 常數(shù) 值 描述 vbOK 1 OK確認(rèn)信息 vbCancel 2 Cancel取消 vbAbort 3 Abort終止 vbRetry 4 Retry重試 vbIgnore 5 Ignore忽略 vbYes 6 Yes是 vbNo 7 No否 VB從入門到實(shí)踐 Msgbox函數(shù)實(shí)例 Msgbox函數(shù)在 Visual Basic應(yīng)用程序中是非常重要的信息函數(shù)。 【 示例 104】 窗體只包含一個(gè) CommandButton控件，設(shè)置其 Caption屬性為“退出”。當(dāng)單擊該按鈕時(shí)，調(diào)用 Msgbox函數(shù)詢問用戶是否退出，如果用戶選擇“是”按鈕，退出程序；否則，顯示“程序繼續(xù)運(yùn)行”。 If Msgbox(smsg, vbYesNo + vbQuestion, 退出提示 ) = vbYes Then End ?結(jié)束程序 Else Msgbox 程序繼續(xù)運(yùn)行 ?顯示信息 End If VB從入門到實(shí)踐 輸入信息 在 Visual Basic中使用 InputBox函數(shù)顯示提示信息，等待用戶輸入文本信息或按下按鈕，返回包含文本框內(nèi)容的字符串。 VB從入門到實(shí)踐 使用 Inputbox函數(shù) 使用 Msgbox函數(shù)可以讓用戶選定指定結(jié)果。該函數(shù)只允許選擇不允許更改。用戶可能還需要輸入信息以響應(yīng)程序運(yùn)行，在 Visual Basic中可以使用 Inputbox函數(shù)。Inputbox函數(shù)在信息對話框來中顯示提示信息，等待用戶輸入正文或按下按鈕，返回包含文本框內(nèi)容的字符串。 Inputbox(Prompt[, Title] [, Default] [, Xpos] [, Ypos] [, Helpfile, ConText]) VB從入門到實(shí)踐 從 Inputbox函數(shù)返回值 信息對話框 Inputbox函數(shù)接受輸入最多 255個(gè)字符。當(dāng)用戶選擇“確定”按鈕時(shí)，函數(shù)返回文本框的字符串；否則返回一個(gè)空字符串，忽略文本框內(nèi)的內(nèi)容。應(yīng)用程序運(yùn)行時(shí)接受 Inputbox函數(shù)輸入的數(shù)值，必須判斷返回值是否為程序所需數(shù)據(jù)。如果運(yùn)行程序需要字符型數(shù)據(jù)，默認(rèn)返回值為字符串。 VB從入門到實(shí)踐 Inputbox函數(shù)實(shí)例 【 示例 107】 程序窗體包含兩個(gè)文本框和兩個(gè)CommandButton控件。一個(gè)文本框顯示姓名，另一個(gè)文本框顯示年齡。一個(gè) CommandButton控件顯示 Inputbox函數(shù)，輸入“姓名”字符串顯示在“姓名”文本框。另一個(gè) CommandButton控件顯示 Inputbox函數(shù)，輸入“年齡”顯示在“年齡”文本框。 VB從入門到實(shí)踐 內(nèi)置信息對話框 以上幾節(jié)介紹了信息對話框以及如何使用顯示信息和輸入信息對話框。本節(jié)介紹內(nèi)置信息對話框 Microsoft CommonDialog控件。該控件可以使用 Windows用戶所熟悉的通用對話框。 Visual Basic開發(fā)中易于創(chuàng)建和使用通用對話框。 VB從入門到實(shí)踐 使用 CommonDialog控件 內(nèi)置信息對話框 CommonDialog控件可以訪問以下 Windows標(biāo)準(zhǔn)對話框： ? 打開 Open對話框：允許用戶選取指定文件的名稱和位置。 ? 保存 Save對話框：允許用戶指定用來保存內(nèi)容的文件名和路徑。 ? 字體 Font對話框：允許用戶選取系統(tǒng)字體并設(shè)置其屬性。 ? 顏色 Color對話框：允許用戶在程序中選取標(biāo)準(zhǔn)顏色或指定顏色。 ? 打印 Print對話框：允許用戶選取打印機(jī)并設(shè)置參數(shù)。 ? 幫助 help對話框：使用 Windows幫助文件。 VB從入門到實(shí)踐 使用 CommonDialog控件 VB從入門到實(shí)踐 文件 File對話框 1．使用文件對話框 2．“打開”和“保存”對話框 3．主要屬性 [= dEscription1 |filter1 |dEscription2 |filter2...] VB從入門到實(shí)踐 字體 Font對話框 CommonDialog控件調(diào)用“字體”對話框?qū)棾鲆粋€(gè)顯示當(dāng)前字體屬性的對話框，允許返回用戶選擇的字體屬性。 字體設(shè)置 數(shù)值 常量 屏幕字體 1 cdlCFScreenFonts 打印機(jī)字體 2 cdlCFPrinterFonts 二者都設(shè)置 3 cdlCFBoth VB從入門到實(shí)踐 字體 Font對話框 屬性 解釋 說明 Color 顏色 返回選定字體的顏色。如要使用這個(gè)屬性，必須先將Flags屬性設(shè)置為 cdlCFEffects。 FontBold 粗體 返回是否選定了粗體。 FontItalic 斜體 返回是否選定了斜體。 FontStrikethru 刪除線 返回是否選定刪除線。如要使用這個(gè)屬性，必須先將Flags屬性設(shè)置為 cdlCFEffects。 FontUnderline 下劃線 返回是否選定下劃線。如要使用這個(gè)屬性，必須先將Flags屬性設(shè)置為 cdlCFEffects。 FontName 字體名稱 返回選定字體的名稱。 FontSize 字體大小 返回選定字體的大小。 VB從入門到實(shí)踐 顏色 Color對話框 通過使用 CommonDialog控件的 ShowColor方法可顯示“顏色”對話框?！邦伾睂υ捒蛴靡詮恼{(diào)色板選擇顏色，或是生成和選擇自定義顏色。 常數(shù) 值 說明 cdlCCFullOpen amp。H2 顯示全部的對話框