零點起飛學Visual Basic之信息對話框

1、第10章 信息對話框信息對話框是用來顯示或者接收信息的窗體。常見的信息對話框包括顯示信息窗體和接收信息窗體。信息對話框一般模式化顯示，用戶必須選擇或輸入信息方可繼續(xù)運行程序。學習本章，可以熟練掌握在程序開發(fā)中設計和使用各種信息對話框。10.1 什么是信息對話框Visual Basic開發(fā)應用程序中的重要組成部分是為用戶顯示信息和接收信息。信息對話框將提供顯示信息窗體和接收信息窗體。信息對話框是Visual Basic中內置標準對話框，使用方法與函數(shù)和過程類似。顯示信息對話框，如圖10.1所示。圖10.1 顯示信息對話框【示例10-1】 顯示最簡單的信息對話框。Msgbox 我是一個顯示信息對話

2、框說明：信息對話框還可以顯示一個圖標或多個選擇按鈕等待用戶選擇。提示用戶確認是否刪除文件窗體內有“警示”圖標和“是”、“否”兩個按鈕，如圖10.2所示。圖10.2 用戶選擇對話框信息對話框作用非常重要，但是作用相對有限。信息對話框可以顯示預定義信息和接收有限信息輸入。只能使用內置4種圖標和6種預定義按鈕。程序在模式化顯示信息對話框窗體時，處于等待狀態(tài)。只有當用戶作出選擇后方可繼續(xù)運行。10.2 顯 示 信 息顯示信息主要使用Msgbox()函數(shù)。本節(jié)介紹Msgbox()函數(shù)的用法。10.2.1 使用Msgbox()函數(shù)Msgbox()函數(shù)在對話框中顯示消息，等待用戶單擊按鈕，并返回一個整數(shù)值I

3、nteger告訴程序用戶所選擇按鈕。其標準語法如下：Msgbox(Prompt, Buttons , Title , Helpfile, ConText)參數(shù)說明：Prompt為必需項，格式為字符串表達式，表示顯示在對話框中的消息。Prompt的最大長度為1024個字符，由所用字符的寬度決定。如果Prompt的內容超過一行，則可以在每一行之間用回車符（Chr(13)）、換行符（Chr(10)）或是回車與換行符的組合（Chr(13)&Chr(10)）或常量（vbcrlf）將各行分隔開來。Buttons為可選項。返回值為數(shù)值表達式的總和，指定顯示按鈕的數(shù)目及形式、使用的圖標樣式、默認按鈕是什么以及

4、消息框的強制回應等。如果省略，則Buttons的默認值為0。Title為可選項。在對話框標題欄中顯示的字符串表達式。如果省略Title，則將應用程序名放在標題欄中。Helpfile為可選項。字符串表達式，識別用來向對話框提供上下文相關幫助的幫助文件。如果提供了幫助文件Helpfile，則也必須提供幫助上下文編號ConText。ConText為可選項。數(shù)值表達式，由幫助文件的作者指定給適當?shù)膸椭黝}的幫助上下文編號。如果提供了幫助上下文編號ConText，則也必須提供幫助文件Helpfile?！臼纠?0-2】 演示常見的幾種預定義信息對話框。（1）最簡單的Msgbox()函數(shù)只要包含提示信息文本

5、Prompt即可。如下所示：Dim smsg As Stringsmsg = 最簡單的信息對話框Msgbox smsg顯示提示信息（2）信息對話框窗體可以包含多個按鈕Buttons。如下所示：Dim smsg As Stringsmsg = 最簡單的信息對話框Msgbox smsg, vbYesNoCancel顯示提示信息和3個命令按鈕說明：該對話框顯示提示文本信息和3個CommandButton控件：“是”、“否”和“取消”按鈕。表10.1所列為Msgbox()函數(shù)預定義的按鈕類型和值。表10.1 Msgbox()函數(shù)按鈕常 數(shù)值描 述vbOKOnly0只顯示OK按鈕VbOKCancel1顯

6、示OK及Cancel按鈕VbAbortRetryIgnore2顯示Abort、Retry及Ignore按鈕VbYesNoCancel3顯示Yes、No及Cancel按鈕VbYesNo4顯示Yes及No按鈕VbRetryCancel5顯示Retry及Cancel按鈕（3）信息對話框窗體還可以包含預定義圖標。代碼如下：Dim smsg As Stringsmsg = 最簡單的信息對話框Msgbox smsg, vbExclamation + vbYesNo顯示提示信息、2個命令按鈕、一個警示圖標說明：該對話框顯示提示文本信息和警示圖標以及“是”、“否”兩個按鈕。表10.2中所列為Msgbox()函

7、數(shù)中預定義圖標類型和值。表10.2 Msgbox()函數(shù)預定義圖標常 數(shù)值描 述VbCritical16顯示Critical Message圖標VbQuestion32顯示W(wǎng)arning Query圖標VbExclamation48顯示W(wǎng)arning Message圖標VbInformation64顯示Information Message圖標（4）信息對話框窗體可以包含自定義標題。默認條件下為應用程序名稱。如下所示：Dim smsg As Stringsmsg = 最簡單的信息對話框Msgbox smsg, vbExclamation + vbYesNo,程序標題顯示提示標題注意：關于標題最

8、好在程序標準模塊中設定一個常量。在程序中直接調用該常量表示為程序名稱。（5）信息對話框可以使用常量來使用參數(shù)外，還可以使用組合值來表示參數(shù)。代碼如下：Dim smsg As Stringsmsg = 最簡單的信息對話框Msgbox smsg, 52,程序標題顯示一個警示圖標、2個命令按鈕說明：該對話框中52為常量VbExclamation的值48和常量VbYesNo的值4的總和。運行窗體如圖10.3所示。圖10.3 顯示信息對話框10.2.2 獲取Msgbox()函數(shù)返回值Msgbox()函數(shù)最重要作用是接受用戶選擇結果，將返回值賦予程序繼續(xù)運行。帶有返回值的Msgbox()函數(shù)與無返回值的M

9、sgbox()函數(shù)相比，參數(shù)必須用括號括起來。預定義返回值如表10.3所示。表10.3 Msgbox()函數(shù)返回值通常在應用程序中，使用Visual Basic預定義常量比數(shù)值要易于辨認。如果用戶在應用程序運行時選擇某個按鈕，可以在程序中使用這個信息。常 數(shù)值描 述vbOK1OK確認信息vbCancel2Cancel取消vbAbort3Abort終止vbRetry4Retry重試vbIgnore5Ignore忽略vbYes6Yes是vbNo7No否【示例10-3】 接收信息對話框返回值。代碼如下：01Dim smsg As String聲明變量02smsg = 最簡單的信息對話框賦予變量內容0

10、3If Msgbox(smsg, vbYesNo + vbQuestion, 程序標題) = vbYes Then04顯示Msgbox()函數(shù)命令按鈕、圖標05 Msgbox 您選擇了“是”按鈕返回值為vbyes06Else07 Msgbox 您選擇了“否”按鈕返回值為vbno08End If說明：程序運行時，當用戶選“是”按鈕，顯示信息“您選擇了“是”按鈕”；否則顯示信息“您選擇了“否”按鈕”。10.2.3 Msgbox()函數(shù)應用實例Msgbox()函數(shù)在Visual Basic應用程序中是非常重要的信息函數(shù)?！臼纠?0-4】 窗體只包含一個CommandButton控件，設置其Capti

11、on屬性為“退出”。當單擊該按鈕時，調用Msgbox()函數(shù)詢問用戶是否退出。如果用戶選擇“是”按鈕，退出程序；否則，顯示“程序繼續(xù)運行”。（1）新建一個工程，并新建一個窗體。（2）雙擊工具箱中的CommandButton圖標，自動在窗體中心添加一個CommandButton控件，設置Caption屬性為“退出”。雙擊該按鈕，彈出代碼編輯窗口。輸入以下代碼：（3）按下F5鍵運行程序。單擊“退出”按鈕，彈出信息對話框，等待用戶選擇。運行窗體如圖10.4所示。圖10.4 示例10-4的運行結果（4）運行結果隨用戶選擇的不同而不同。如果用戶選擇“是”按鈕，程序結束；否則，顯示信息“程序繼續(xù)運行”。1

12、0.3 輸 入 信 息在Visual Basic中使用InputBox()函數(shù)顯示提示信息，等待用戶輸入文本信息或按下按鈕，返回包含文本框內容的字符串。10.3.1 使用Inputbox()函數(shù)使用Msgbox()函數(shù)可以讓用戶選定指定結果。該函數(shù)只允許選擇不允許更改。用戶可能還需要輸入信息以響應程序運行，在Visual Basic中可以使用Inputbox()函數(shù)。Inputbox()函數(shù)在信息對話框來中顯示提示信息，等待用戶輸入正文或按下按鈕，返回包含文本框內容的字符串。其標準語法如下：Inputbox(Prompt, Title , Default , Xpos , Ypos , Hel

13、pfile, ConText)參數(shù)說明：Prompt為必需項。作為對話框消息出現(xiàn)的字符串表達式。Prompt的最大長度是1024個字符，由所用字符的寬度決定。如果Prompt包含多個行，則可在各行之間用回車符、換行符或回車換行符的組合或常量來分隔。Title為可選項。顯示對話框標題欄中的字符串表達式。如果省略Title，則把應用程序名放入標題欄中。Default為可選項。顯示文本框中的字符串表達式，在沒有其他輸入時作為默認值。如果省略Default，則文本框為空字符串。Xpos和Ypos為可選項。指定對話框的左邊、頂部與屏幕左邊、頂部的距離。如果省略，則對話框會在水平和垂直方向居中。Helpf

14、ile為可選項。字符串表達式，識別幫助文件，用該文件為對話框提供上下文相關的幫助。如果已提供Helpfile，則也必須提供ConText。Context為可選項。數(shù)值表達式，由幫助文件的作者指定給某個幫助主題的幫助上下文編號。如果已提供Context，則也必須要提供Helpfile?！臼纠?0-5】 Inputbox()函數(shù)顯示信息的幾種形式。（1）信息對話框Inputbox()函數(shù)最少要求為Prompt，如下所示：SResult=Inputbox(輸入信息)（2）信息對話框包含標題。如下所示：sResult = Inputbox(輸入信息, 信息標題)（3）信息對話框包含默認值。如下所示：s

15、Result = Inputbox(輸入信息, 信息, 默認字符串)（4）信息對話框指定屏幕顯示位置。如下所示：sResult = Inputbox(輸入信息, 信息, 默認字符串, 0, 0)運行窗體如圖10.5所示。圖10.5 示例10-5運行的結果注意：與Msgbox()函數(shù)略有不同，Inputbox()函數(shù)除了“確定”和“取消”兩個按鈕外沒有其他按鈕。10.3.2 獲取Inputbox()函數(shù)返回值信息對話框Inputbox()函數(shù)最多接收輸入255個字符。當用戶選擇“確定”按鈕時，函數(shù)返回文本框的字符串；否則返回一個空字符串，忽略文本框內的內容。當應用程序運行時接收Inputbox(

16、)函數(shù)輸入的數(shù)值，必須判斷返回值是否為程序所需數(shù)據(jù)。如果運行程序需要字符型數(shù)據(jù)，默認返回值為字符串?！臼纠?0-6】 演示使用Inputbox()函數(shù)接收輸入信息的兩種情況。（1）判斷返回值是否為空Len()函數(shù)。Len()函數(shù)用來判斷一個表達式長度，返回值為字符串長度。如果長度為零，則表明字符串為空。如下所示：If len(str)=0 then Print 空字符串（2）判斷返回值是否為數(shù)值Val()函數(shù)。Val()函數(shù)將表達式返回數(shù)值型。如果表達式包含數(shù)字或以數(shù)字開頭，函數(shù)返回此數(shù)值，否則返回值為0。If Val（str）=0 thenval()轉換函數(shù)，將字符轉換為數(shù)值 Msgbox

17、輸入字符不是數(shù)值不是數(shù)值顯示信息Else Msgbox 輸入字符為數(shù)值型數(shù)值型顯示信息End if10.3.3 Inputbox()函數(shù)應用實例【示例10-7】 程序窗體包含兩個文本框和兩個CommandButton控件。文本框用以顯示文本信息，具體內容請參見第11章。一個文本框顯示姓名，另一個文本框顯示年齡。一個CommandButton控件顯示Inputbox()函數(shù)，輸入“姓名”字符串顯示在“姓名”文本框。另一個CommandButton控件顯示Inputbox()函數(shù)，輸入“年齡”顯示在“年齡”文本框。（1）新建一個工程，并新建一個窗體。（2）雙擊工具箱中的Textbox圖標，自動在窗

18、體中心添加一個文本框Text1。再添加一個文本框Text2。默認屬性不變。（3）雙擊工具箱中的CommandButton圖標，自動在窗體中心添加一個CommandButton控件，設置Caption屬性為“輸入姓名”。再添加一個CommandButton控件，設置Caption屬性為“輸入年齡”，如圖10.6所示。圖10.6 設計窗體 （4）雙擊“輸入姓名”按鈕，彈出代碼編輯窗口。輸入以下代碼：說明：代碼Text1.Text中Text1為文本框名稱，Text為其屬性顯示文本信息。該代碼首先判斷Inputbox函數(shù)返回值長度是否為零。如果為零，彈出提示信息；否則在Text1文本框內顯示返回值。（

19、5）雙擊“輸入年齡”按鈕，彈出代碼編輯窗口。輸入以下代碼：說明：該段代碼首先判斷Inputbox()函數(shù)返回值長度是否為零。如果長度為零，彈出提示信息。通過val()函數(shù)繼續(xù)判斷返回值是否為數(shù)值。如果不是數(shù)值，彈出提示信息。最后將返回值賦予Text2文本框。（6）按下F5鍵運行程序。單擊“輸入姓名”按鈕，彈出Inputbox對話框。在對話框的文本框內輸入“張三”，單擊“確定”關閉對話框。窗體中Text1文本框顯示“張三”。單擊“輸入年齡”按鈕，彈出Inputbox對話框。在對話框的文本框內輸入“20”，單擊“確定”關閉對話框。窗體中Text2文本框顯示“20”。運行窗體如圖10.7所示。圖10

20、.7 示例10-7的運行結果（7）單擊“輸入姓名”按鈕，彈出Inputbox對話框。在對話框內不輸入任何信息，直接單擊“確定”關閉對話框，彈出提示信息對話框如圖10.8所示。單擊“輸入年齡”按鈕，彈出Inputbox對話框。在對話框的文本框內輸入abc，單擊“確定”關閉對話框，彈出提示信息對話框如圖10.9所示。圖10.8 提示信息窗體圖10.9 提示信息窗體10.4 內置信息對話框以上幾節(jié)介紹了信息對話框以及如何使用顯示信息和輸入信息對話框。本節(jié)介紹內置信息對話框Microsoft CommonDialog控件。該控件可以使用Windows用戶所熟悉的通用對話框，如選擇文件、選取字體和顏色以

21、及控制打印機。Visual Basic開發(fā)中易于創(chuàng)建和使用通用對話框。10.4.1 使用CommonDialog控件內置信息對話框CommonDialog控件可以訪問以下Windows標準對話框。打開（Open）對話框：允許用戶選取指定文件的名稱和位置。保存（Save）對話框：允許用戶指定用來保存內容的文件名和路徑。字體（Font）對話框：允許用戶選取系統(tǒng)字體并設置其屬性。顏色（Color）對話框：允許用戶在程序中選取標準顏色或指定顏色。打?。≒rint）對話框：允許用戶選取打印機并設置參數(shù)。幫助（Help）對話框：使用Windows幫助文件。內置信息對話框CommonDialog控件包含在V

22、isual Basic中，但不是工具箱中的標準控件。設置該控件需要手動從部件中添加。選擇“工程”|“部件”命令，彈出“部件”對話框。選擇“Microsoft Common Dialog Control 6.0”復選框，單擊“確定”按鈕，如圖10.10所示。圖10.10 “部件”對話框CommonDialog控件在工具箱中顯示為圖標。該圖標的大小不能改變。其使用方法與其他控件一樣。具體內容請參見第11章中有關控件的使用方法。在窗體中添加CommonDialog控件時，雙擊工具箱中的CommonDialog圖標，即可自動在窗體中添加。其圖標設計模式下可見，運行時不可見。使用CommonDialog

23、控件最簡單方法莫過于使用其屬性對話框。右擊窗體中的CommonDialog控件圖標，彈出“屬性頁”對話框。用戶可以在5個選項卡上輸入各種相關信息，如圖10.11所示。圖10.11 CommonDialog屬性窗體CommonDialog控件所顯示的對話框由控件的方法確定。在運行時，當相應的方法被調用時，將顯示一個對話框或是執(zhí)行幫助引擎。主要方法如表10.4所示。表10.4 CommonDialog控件主要方法以下幾節(jié)分別介紹CommonDialog控件創(chuàng)建的各種類型對話框。方 法所顯示的對話框ShowOpen顯示“打開”對話框ShowSave顯示“另存為”對話框ShowColor顯示“顏色”對

24、話框ShowFont顯示“字體”對話框ShowPrinter顯示“打印”或“打印選項”對話框ShowHelp調用Windows幫助引擎10.4.2 構建文件對話框CommonDialog控件最重要的用途之一就是選取指定文件名。該對話框可以用于兩種模式：打開（Open）和保存（Save as）文件。打開文件模式允許用戶指定程序要選定的文件名稱和位置。保存文件模式可以允許用戶指定保存文件的名稱和位置。1使用文件對話框打開文件應使用CommonDialog控件的ShowOpen()方法。通過指定的名稱和方法來使用打開文件對話框。【示例10-8】 使用打開文件對話框，代碼如下：CommonDialog

25、1.ShowOpenMsgbox 您選擇的文件為： & CommonDialog1.說明：CommonDialog1為控件名稱。該代碼彈出一個“打開”對話框，如圖10.12所示。選擇指定文件后，自動顯示文件路徑和名稱信息。圖10.12 “打開”對話框保存文件應使用CommonDialog控件的Showsave()方法。通過指定的名稱和方法來使用保存文件對話框?！臼纠?0-9】 打開保存文件對話框，代碼如下：CommonDialog1.ShowSaveMsgbox 您保存的文件為： & CommonDialog1.說明：該代碼彈出一個“另保存”文件對話框，如圖10.13所示。選擇指定文件后，顯示

26、文件名稱和路徑信息。圖10.13 “另存為”對話框該對話框并不能真正打開或保存文件，只能獲得文件名稱和路徑。用戶應在程序中編寫相應代碼處理打開和保存文件名稱和路徑。2打開和保存對話框打開對話框和保存對話框如圖10.12和圖10.13所示。包括控件如下：磁盤和目錄列表：顯示當前路徑文件夾。文件和目錄列表：顯示下一級文件夾和文件。文件名文本框：用戶可以選擇指定文件或手工輸入文件名。類型：用戶選取顯示文件類型。3主要屬性（1）Filter屬性使用CommonDialog控件的Filter屬性可選定特殊類型文件。其標準語法如下：object.Filter = dEscription1 |filter1

27、 |dEscription2 |filter2.參數(shù)說明：Object為必需項，表示對象名稱。Filter為必需項，表示對象屬性名稱。Description1|filter1為必需項，Description1為表達式描述和filter1過濾表達式。二者之間必須包括一條短豎線。如“所有文本文件（*.*）|*.*”。如果有其他文件格式，中間必須同樣添加一條短豎線以示過濾器表達式?！臼纠?0-10】 演示Filter屬性的使用，代碼如下：CommonDialog1.filter=所有word文件（*.Doc）|*.Doc|所有rtf文件（*.rtf）|*.rtf說明：該語句自動過濾顯示文件格式為.D

28、oc和.rtf文件。（2）Flags屬性flags屬性可以使用預定義常量?！臼纠?0-11】演示Flags屬性的使用，代碼如下：CommonDialog1.flags=cdlOFNReaDonly說明：該代碼常量彈出“打開”/“保存”對話框時，只讀復選框初始化為選定。該標志也指示對話框關閉時只讀復選框的狀態(tài)。（3）Initdir屬性Initdir屬性顯示指定目錄?！臼纠?0-12】 演示Initdir屬性的使用，代碼如下：CommonDialog1.initdir=c:Windows說明：該代碼在彈出“打開”/“保存”對話框時，自動打開指定目錄c盤Windows目錄?！臼纠?0-13】 演示打

29、開一個文件和保存一個文件。（1）新建一個工程，并新建一個窗體。（2）雙擊工具箱中的Textbox圖標，自動在窗體中心添加一個文本框Text1，屬性為默認值。（3）雙擊工具箱中的CommandButton圖標，自動在窗體中心添加一個CommandButton控件，設置Caption屬性為“打開文件”。在窗體中心再添加一個CommandButton控件，設置其Caption設置為“保存文件”，如圖10.14所示。圖10.14 設計窗體（4）雙擊“打開文件”按鈕，彈出代碼編輯窗口，輸入以下代碼：說明：該代碼設置初始路徑為“C:Windows”，彈出“打開”文件對話框。（5）雙擊“保存文件”按鈕，彈出

30、代碼編輯窗口，輸入以下代碼：說明：該代碼設置初始路徑為“C:Windows”，過濾顯示文件為.Doc文件和.rtf文件，彈出保存文件對話框。（6）按下F5鍵運行程序。單擊“打開文件”按鈕，彈出“打開”對話框，如圖10.15所示。在對話框內選擇任意文件，單擊“打開”按鈕，關閉對話框。窗體中Text1文本框顯示選擇文件的路徑和名稱，如圖10.16所示。圖10.15 “打開”對話框圖10.16 保存文件對話框（7）單擊“保存文件”按鈕，彈出保存文件對話框，如圖10.17所示。在對話框內選擇任意文件，單擊“確定”按鈕關閉對話框。窗體中Text1文本框顯示選擇文件的路徑和名稱。圖10.17 保存文件對話

31、框10.4.3 構建字體對話框CommonDialog控件調用“字體”對話框將彈出一個顯示當前字體屬性的對話框，允許返回用戶選擇的字體屬性，如圖10.18所示。使用CommonDialog控件處理字體對話框必須設置Flags屬性值。該屬性將通知CommonDialog控件使用屏幕字體、打印機字體，還是二者都顯示。其屬性常量如表10.5所示。表10.5 字體flags常量字 體 設 置數(shù) 值常 量屏幕字體1cdlCFScreenFonts打印機字體2cdlCFPrinterFonts二者都設置3cdlCFBoth圖10.18 “字體”對話框表10.6列表顯示了所有“字體”對話框中屬性及其說明。表

32、10.6 字體對話框屬性說明程序中調用“字體”對話框需要使用showFont方法。屬 性解 釋說 明Color顏色返回選定字體的顏色。如要使用這個屬性，必須先將Flags屬性設置為cdlCFEffectsFontBold粗體返回是否選定了粗體FontItalic斜體返回是否選定了斜體FontStrikethru刪除線返回是否選定刪除線。如要使用這個屬性，必須先將Flags屬性設置為 cdlCFEffectsFontUnderline下劃線返回是否選定下劃線。如要使用這個屬性，必須先將Flags屬性設置為 cdlCFEffectsFontName字體名稱返回選定字體的名稱FontSize字體大小

33、返回選定字體的大小【示例10-14】 演示該方法的使用，代碼如下：CommonDialog1.showFont使用CommonDialog控件的ShowFont方法可顯示“字體”對話框?！白煮w”對話框用于通過指定字體、大小、顏色、樣式選擇字體列表中的一種字體?！臼纠?0-15】 程序更改字體名稱和大小。（1）新建一個工程，并新建一個窗體。（2）雙擊工具箱中的label圖標，自動在窗體中心添加一個標簽控件label1，其Caption文本為“演示字體”。（3）雙擊工具箱中的CommandButton圖標，自動在窗體中心添加一個CommandButton控件，設置Caption設置為“選擇字體”。

34、（4）雙擊“選擇字體”按鈕，彈出代碼編輯窗口，輸入以下代碼：說明：該代碼將彈出“字體”對話框，并將選定的字體名稱和大小賦予標簽控件label1的顯示文字信息。（5）按下F5鍵運行程序。單擊“選擇字體”按鈕，彈出“字體”對話框。在對話框內選擇“黑體”，大小為“三號”，如圖10.19所示。單擊“確定”按鈕關閉對話框。窗體中l(wèi)abel1控件文本字體為“黑體三號字”，如圖10.20所示。圖10.19 “字體”對話框圖10.20 示例10-15的運行結果10.4.4 構建顏色對話框通過使用CommonDialog控件的ShowColor方法可顯示“顏色”對話框?！邦伾睂υ捒蛴靡詮恼{色板選擇顏色，或是生

35、成和選擇自定義顏色，如圖10.21所示。圖10.21 “顏色”對話框使用CommonDialog控件處理“顏色”對話框必須設置Flags屬性值。該屬性將通知CommonDialog控件使用何種類型顏色。通常情況下，將其設定為CdlccRGBInit即可。其屬性常量如表10.7所示。表10.7 “顏色”對話框flags屬性說明表10.8列表列出了Visual Basic中常使用的顏色常量數(shù)值和說明。常 數(shù)值說 明cdlCCFullOpen&H2顯示全部的對話框，包括定義自定義顏色部分cdlCCShowHelpButton&H8使對話框顯示幫助按鈕cdlCCPreventFullOpen&H4使定

36、義自定義顏色按鈕無效并防止定義自定義顏色cdlCCRGBInit&H1為對話框設置初始顏色值表10.8 常見顏色常量說明注意：使用“顏色”對話框時最好使用系統(tǒng)自帶的易記通用的常數(shù)數(shù)值。如vbblue常量表明藍色比&HFF0000容易記住和使用。常 數(shù)值說 明vbBlack&H0黑色vbRed&HFF紅色vbGreen&HFF00綠色vbYellow&HFFFF黃色vbBlue&HFF0000藍色vbMagenta&HFF00FF洋紅vbCyan&HFFFF00青色vbWhite&HFFFFFF白色【示例10-16】 演示如何設置標簽控件背景顏色。操作過程如下所示。（1）新建一個工程，并新建一個

37、窗體。（2）雙擊工具箱中的label圖標，自動在窗體中心添加一個標簽控件label1，設置Caption屬性為“我的背景顏色會變”。（3）雙擊工具箱中的CommandButton圖標，自動在窗體中心添加一個CommandButton控件，設置Caption屬性為“選擇顏色”。（4）雙擊“選擇顏色”按鈕，彈出代碼編輯窗口，輸入以下代碼：說明：該代碼彈出“顏色”對話框，用戶指定標簽控件label1的背景顏色為“顏色”對話框選定的顏色。（5）按下F5鍵運行程序。單擊“選擇顏色”按鈕，彈出“顏色”對話框。在對話框內選擇綠色圖標。運行窗體如圖10.22所示。圖10.22 示例10-16的運行結果10.4

38、.5 構建打印對話框通過使用CommonDialog控件的ShowPrinter方法可顯示“打印”對話框?！按蛴　睂υ捒蚩捎糜谥付ù蛴≥敵龇绞??？梢灾付ū淮蛴№摰姆秶?、打印質量、打印的份數(shù)等。該對話框還包含當前安裝的打印機的信息，并允許配置或重新安裝默認打印機，如圖10.23所示。圖10.23 “打印”對話框注意：這個對話框并不給打印機傳送數(shù)據(jù)，只是指定希望打印數(shù)據(jù)的情況。如果PrinterDefault屬性為True，可以使用Printer對象按選定的格式打印數(shù)據(jù)。表10.9列出了“打印”對話框中包含的屬性及其說明。表10.9 “打印”對話框屬性說明屬 性決 定Copies打印的份數(shù)FromPag