第5章 與用戶對(duì)話

1、第第5章章 與用戶對(duì)話與用戶對(duì)話w 第第9 9講：教材講：教材P89P89P99P99w 5.1 5.1 輸入對(duì)話框輸入對(duì)話框 w 5.2 5.2 消息對(duì)話框消息對(duì)話框 w 5.3 5.3 通用對(duì)話框通用對(duì)話框 w 第第1010講：教材講：教材P99P99100100w 5.4 5.4 自定義對(duì)話框自定義對(duì)話框 w 5.5 5.5 本章小結(jié)本章小結(jié)w 實(shí)訓(xùn)實(shí)訓(xùn)4 4：教材：教材P101P101w 上機(jī)實(shí)訓(xùn)上機(jī)實(shí)訓(xùn) 第第9 9講：教材講：教材P89P89P99P99內(nèi)容：內(nèi)容： 輸入對(duì)話框輸入對(duì)話框 消息框消息框1.通用對(duì)話框通用對(duì)話框同學(xué)們好，現(xiàn)在開(kāi)始上課！同學(xué)們好，現(xiàn)在開(kāi)始上課！5.1 5.

2、1 輸入對(duì)話框（輸入對(duì)話框（1 1） 利用輸入框函數(shù)利用輸入框函數(shù)InputBoxInputBox通過(guò)輸入對(duì)話框輸入通過(guò)輸入對(duì)話框輸入數(shù)據(jù)，只需一行代碼即可實(shí)現(xiàn)輸入窗體的功能。數(shù)據(jù)，只需一行代碼即可實(shí)現(xiàn)輸入窗體的功能。 格式：格式：InputBox（提示信息提示信息，對(duì)話框標(biāo)題，對(duì)話框標(biāo)題，默認(rèn)，默認(rèn)值值，X，Y） 該函數(shù)的功能是產(chǎn)生一個(gè)對(duì)話框，作為輸入數(shù)該函數(shù)的功能是產(chǎn)生一個(gè)對(duì)話框，作為輸入數(shù)據(jù)的界面，等待用戶輸入并返回所輸入的內(nèi)容。據(jù)的界面，等待用戶輸入并返回所輸入的內(nèi)容。 函數(shù)中各參數(shù)的作用如下：函數(shù)中各參數(shù)的作用如下： 5.1 5.1 輸入對(duì)話框（輸入對(duì)話框（2 2） 提示信息提示信息

3、：字符串表達(dá)式，在對(duì)話框內(nèi)顯示提示信息，：字符串表達(dá)式，在對(duì)話框內(nèi)顯示提示信息，最大長(zhǎng)度為最大長(zhǎng)度為10241024個(gè)字符。如果包含多行，可以在各行之間個(gè)字符。如果包含多行，可以在各行之間用回車(chē)符用回車(chē)符ChrChr( (1313) )、換行符換行符ChrChr( (1010) )或回車(chē)換行符的組合或回車(chē)換行符的組合ChrChr( (1313) ) & Chr & Chr( (1010) )來(lái)分隔，對(duì)應(yīng)的來(lái)分隔，對(duì)應(yīng)的VBVB常數(shù)分別為常數(shù)分別為vbCrvbCr、vbLfvbLf和和vbCrLfvbCrLf。 對(duì)話框標(biāo)題對(duì)話框標(biāo)題：字符串表達(dá)式，顯示在標(biāo)題欄中作為對(duì)：字符串表達(dá)

4、式，顯示在標(biāo)題欄中作為對(duì)話框的標(biāo)題。若省略，則默認(rèn)為當(dāng)前工程的名稱(chēng)。話框的標(biāo)題。若省略，則默認(rèn)為當(dāng)前工程的名稱(chēng)。 默認(rèn)值默認(rèn)值：字符串表達(dá)式，顯示在對(duì)話框的文本框中，：字符串表達(dá)式，顯示在對(duì)話框的文本框中，在沒(méi)有其他輸入時(shí)作為默認(rèn)輸入值使用。默認(rèn)為空。在沒(méi)有其他輸入時(shí)作為默認(rèn)輸入值使用。默認(rèn)為空。 X X、Y Y：均為數(shù)值表達(dá)式，分別指定對(duì)話框左邊和上邊均為數(shù)值表達(dá)式，分別指定對(duì)話框左邊和上邊與屏幕左邊和上邊的距離，單位為緹（與屏幕左邊和上邊的距離，單位為緹（twiptwip）。）。如果省略，如果省略，對(duì)話框在水平方向居中，垂直方向約為屏幕的上三分之一對(duì)話框在水平方向居中，垂直方向約為屏幕的上

5、三分之一處顯示。處顯示。X X和和Y Y應(yīng)成對(duì)出現(xiàn)，否則無(wú)效。應(yīng)成對(duì)出現(xiàn)，否則無(wú)效。 5.1 5.1 輸入對(duì)話框（輸入對(duì)話框（3 3） 說(shuō)明：說(shuō)明：（1 1）在對(duì)話框中，如果用戶選擇了【確定】按鈕，則）在對(duì)話框中，如果用戶選擇了【確定】按鈕，則InputBoxInputBox函數(shù)返回文本框中所有內(nèi)容；如果選擇了【取消】函數(shù)返回文本框中所有內(nèi)容；如果選擇了【取消】按鈕，則函數(shù)返回零長(zhǎng)度的字符串。按鈕，則函數(shù)返回零長(zhǎng)度的字符串。（2 2）除提示信息外，其他參數(shù)均為可選參數(shù)。如果指定）除提示信息外，其他參數(shù)均為可選參數(shù)。如果指定了后面的參數(shù)而省略前面的參數(shù)，則必須保留前面的逗號(hào)。了后面的參數(shù)而省略前

6、面的參數(shù)，則必須保留前面的逗號(hào)。例如：例如：strNo = InputBoxstrNo = InputBox( ( 輸入編號(hào)輸入編號(hào) ， ，001001) )。（3 3）使用）使用InputBoxInputBox函數(shù)一次只能輸入一個(gè)數(shù)據(jù)。如果要函數(shù)一次只能輸入一個(gè)數(shù)據(jù)。如果要輸入多個(gè)數(shù)據(jù)，則必須多次使用該函數(shù)。輸入多個(gè)數(shù)據(jù)，則必須多次使用該函數(shù)?！綪90P90例例5.15.1】通過(guò)通過(guò)InputBoxInputBox函數(shù)輸入兩個(gè)數(shù)字存入變量函數(shù)輸入兩個(gè)數(shù)字存入變量a a、b b，然后將其互換。然后將其互換。在窗體上添加一個(gè)命令按鈕，設(shè)在窗體上添加一個(gè)命令按鈕，設(shè)CaptionCaption為為

7、“輸入數(shù)字輸入數(shù)字”。按鈕單擊事件代碼如下：按鈕單擊事件代碼如下： Private Sub Command1_Click() Dim a, b, t Cls a = Val(InputBox(請(qǐng)輸入請(qǐng)輸入 a :, 輸入數(shù)字輸入數(shù)字) b = Val(InputBox(請(qǐng)輸入請(qǐng)輸入 b :, 輸入數(shù)字輸入數(shù)字) Print 交換前交換前: a =; a; , b =; b t = a: a = b: b = t 交換交換 Print 交換后交換后: a =; a; , b =; bEnd Sub運(yùn)行結(jié)果如圖運(yùn)行結(jié)果如圖5.1所示，左圖為所示，左圖為InputBox函數(shù)生成的對(duì)話框，右圖為窗體函

8、數(shù)生成的對(duì)話框，右圖為窗體顯示結(jié)果。顯示結(jié)果。 圖圖5.1 InputBox函數(shù)示例函數(shù)示例 單擊演示單擊演示(例例5.1）5.2 5.2 消息對(duì)話框消息對(duì)話框 w5.2.1 5.2.1 MsgBoxMsgBox函數(shù)函數(shù) w5.2.2 5.2.2 MsgBoxMsgBox語(yǔ)句語(yǔ)句 5.2.1 5.2.1 MsgBoxMsgBox函數(shù)函數(shù) 該函數(shù)能夠在對(duì)話框中顯示信息，等待用戶選擇按鈕，并返該函數(shù)能夠在對(duì)話框中顯示信息，等待用戶選擇按鈕，并返回一個(gè)整數(shù)指明用戶單擊了哪個(gè)按鈕。語(yǔ)法格式如下：回一個(gè)整數(shù)指明用戶單擊了哪個(gè)按鈕。語(yǔ)法格式如下：變量變量 = MsgBox（提示信息提示信息，按鈕，按鈕 ，

9、對(duì)話框標(biāo)題，對(duì)話框標(biāo)題參數(shù)說(shuō)明：參數(shù)說(shuō)明： 提示信息提示信息和和對(duì)話框標(biāo)題對(duì)話框標(biāo)題參數(shù)的作用與參數(shù)的作用與InputBoxInputBox函數(shù)的對(duì)應(yīng)函數(shù)的對(duì)應(yīng)參數(shù)相同。參數(shù)相同。 按鈕按鈕參數(shù)為數(shù)值表達(dá)式，是可選項(xiàng)，用來(lái)控制在對(duì)話框內(nèi)參數(shù)為數(shù)值表達(dá)式，是可選項(xiàng)，用來(lái)控制在對(duì)話框內(nèi)顯示的按鈕種類(lèi)和數(shù)量以及圖標(biāo)類(lèi)型。該參數(shù)的值由四類(lèi)數(shù)顯示的按鈕種類(lèi)和數(shù)量以及圖標(biāo)類(lèi)型。該參數(shù)的值由四類(lèi)數(shù)值相加產(chǎn)生，這四類(lèi)數(shù)值分別表示按鈕的類(lèi)型、顯示圖標(biāo)的值相加產(chǎn)生，這四類(lèi)數(shù)值分別表示按鈕的類(lèi)型、顯示圖標(biāo)的種類(lèi)、默認(rèn)按鈕的位置和消息框的強(qiáng)制返回特征，如表種類(lèi)、默認(rèn)按鈕的位置和消息框的強(qiáng)制返回特征，如表5.15.1所

10、示。所示。 表表5.1 “按鈕按鈕”參數(shù)的設(shè)置值及意義參數(shù)的設(shè)置值及意義 “按鈕按鈕”參數(shù)由上面四類(lèi)數(shù)值相加組成，其組成原則是：參數(shù)由上面四類(lèi)數(shù)值相加組成，其組成原則是：從每一類(lèi)中選擇一個(gè)值，把這幾個(gè)值加在一起就是該參數(shù)的值。從每一類(lèi)中選擇一個(gè)值，把這幾個(gè)值加在一起就是該參數(shù)的值。若省略某類(lèi)數(shù)值，則默認(rèn)該類(lèi)數(shù)值為若省略某類(lèi)數(shù)值，則默認(rèn)該類(lèi)數(shù)值為0。不同的組合會(huì)得到不。不同的組合會(huì)得到不同的結(jié)果，如果省略同的結(jié)果，如果省略“按鈕按鈕”參數(shù)，則只顯示【確定】按鈕且參數(shù)，則只顯示【確定】按鈕且無(wú)圖標(biāo)。例如，無(wú)圖標(biāo)。例如，“按鈕按鈕”參數(shù)被設(shè)為以下三種組合時(shí)，將顯示參數(shù)被設(shè)為以下三種組合時(shí)，將顯示圖圖

11、5.3所示的效果。所示的效果。 0+16+0+0=16 3+32+256+0=291 2+48+0+0=50 圖圖5.3 MsgBox函數(shù)函數(shù)“按鈕按鈕”參數(shù)示例參數(shù)示例 “按鈕按鈕”參數(shù)若采用參數(shù)若采用VB符號(hào)常量則更加直觀。例如：符號(hào)常量則更加直觀。例如： vbYesNo + vbQuestion MsgBox函數(shù)可以通過(guò)返回值判斷用戶選擇了哪一個(gè)按函數(shù)可以通過(guò)返回值判斷用戶選擇了哪一個(gè)按鈕，對(duì)應(yīng)情況如表鈕，對(duì)應(yīng)情況如表5.2所示。該返回值用來(lái)作為程序繼續(xù)執(zhí)所示。該返回值用來(lái)作為程序繼續(xù)執(zhí)行的依據(jù)，通常用選擇結(jié)構(gòu)根據(jù)返回值決定后面的操作。行的依據(jù)，通常用選擇結(jié)構(gòu)根據(jù)返回值決定后面的操作。

12、表表5.2 MsgBox函數(shù)的返回值函數(shù)的返回值 【P92P92例例5.25.2】用用MsgBoxMsgBox函數(shù)建立如圖函數(shù)建立如圖5.45.4所示的所示的“退出退出”對(duì)話對(duì)話框?？?。在例在例5.15.1的窗體中增加一個(gè)命令按鈕，設(shè)的窗體中增加一個(gè)命令按鈕，設(shè)CaptionCaption屬性為屬性為“退出退出”。在該按。在該按鈕的單擊事件中用鈕的單擊事件中用UnloadUnload語(yǔ)句卸載窗體：語(yǔ)句卸載窗體：Unload Me為窗體的為窗體的UnloadUnload事件編寫(xiě)如下代碼：事件編寫(xiě)如下代碼：Private Sub Form_Unload(Cancel As Integer) Dim

13、 MyExit As Integer MyExit = MsgBox(確實(shí)想退出嗎？確實(shí)想退出嗎？, _vbYesNo + vbQuestion _ + vbDefaultButton2, 退出退出) 默認(rèn)按鈕為【否】默認(rèn)按鈕為【否】 If MyExit = vbNo Then Cancel = 1 將將Cancel參數(shù)設(shè)為非零值可取消卸載參數(shù)設(shè)為非零值可取消卸載 End IfEnd Sub 程序運(yùn)行后單擊【退出】按鈕或窗體右上角的關(guān)閉程序運(yùn)行后單擊【退出】按鈕或窗體右上角的關(guān)閉按鈕時(shí)，將會(huì)彈出圖按鈕時(shí)，將會(huì)彈出圖5.4所示的對(duì)話框，此時(shí)若單擊所示的對(duì)話框，此時(shí)若單擊【是】按鈕則完成窗體卸載，

14、單擊【否】按鈕則取消【是】按鈕則完成窗體卸載，單擊【否】按鈕則取消卸載，返回主窗體。卸載，返回主窗體。 圖圖5.4 【退出】對(duì)話框【退出】對(duì)話框 單擊演示單擊演示(例例5.2）5.2.2 5.2.2 MsgBox MsgBox 語(yǔ)句語(yǔ)句MsgBoxMsgBox函數(shù)也可以寫(xiě)成語(yǔ)句形式，即：函數(shù)也可以寫(xiě)成語(yǔ)句形式，即：MsgBox 提示信息提示信息，按鈕類(lèi)型，按鈕類(lèi)型，對(duì)話框標(biāo)題，對(duì)話框標(biāo)題其中各參數(shù)的含義及作用與其中各參數(shù)的含義及作用與MsgBoxMsgBox函數(shù)相同。函數(shù)相同。MsgBoxMsgBox語(yǔ)句和語(yǔ)句和MsgBoxMsgBox函數(shù)實(shí)現(xiàn)的功能基本相同，只函數(shù)實(shí)現(xiàn)的功能基本相同，只是沒(méi)有

15、返回值，因而通常是在只需輸出信息而不必是沒(méi)有返回值，因而通常是在只需輸出信息而不必考慮用戶反應(yīng)的情況下使用?？紤]用戶反應(yīng)的情況下使用。5.3 5.3 通用對(duì)話框通用對(duì)話框 w5.3.1 5.3.1 通用對(duì)話框簡(jiǎn)介通用對(duì)話框簡(jiǎn)介 w5.3.2 5.3.2 文件對(duì)話框文件對(duì)話框w5.3.3 5.3.3 【顏色】對(duì)話框【顏色】對(duì)話框w5.3.4 5.3.4 【字體】對(duì)話框【字體】對(duì)話框w5.3.5 5.3.5 【打印】對(duì)話框【打印】對(duì)話框w5.3.6 5.3.6 【幫助】對(duì)話框【幫助】對(duì)話框 5.3.1 5.3.1 通用對(duì)話框簡(jiǎn)介（通用對(duì)話框簡(jiǎn)介（1 1） VB VB的通用對(duì)話框控件的通用對(duì)話框控件

16、CommonDialogCommonDialog提供了一組標(biāo)準(zhǔn)對(duì)話框提供了一組標(biāo)準(zhǔn)對(duì)話框界面，一個(gè)控件即可顯示六種對(duì)話框：打開(kāi)文件、保存文件、界面，一個(gè)控件即可顯示六種對(duì)話框：打開(kāi)文件、保存文件、選擇顏色、選擇字體、設(shè)置打印機(jī)以及幫助對(duì)話框。這些對(duì)選擇顏色、選擇字體、設(shè)置打印機(jī)以及幫助對(duì)話框。這些對(duì)話框僅用于返回用戶輸入、選擇或確認(rèn)的信息，不能真正實(shí)話框僅用于返回用戶輸入、選擇或確認(rèn)的信息，不能真正實(shí)現(xiàn)文件打開(kāi)和存儲(chǔ)以及顏色設(shè)置、字體設(shè)置等操作。這些功現(xiàn)文件打開(kāi)和存儲(chǔ)以及顏色設(shè)置、字體設(shè)置等操作。這些功能必須通過(guò)編寫(xiě)相應(yīng)的代碼才能實(shí)現(xiàn)。能必須通過(guò)編寫(xiě)相應(yīng)的代碼才能實(shí)現(xiàn)。 1. 1. 加載加載C

17、ommonDialogCommonDialog控件控件 CommonDialog CommonDialog控件是控件是ActiveXActiveX控件，標(biāo)準(zhǔn)工具箱中沒(méi)有該控件，標(biāo)準(zhǔn)工具箱中沒(méi)有該控件，使用時(shí)需要將其添加到工具箱。添加的方法是：選擇控件，使用時(shí)需要將其添加到工具箱。添加的方法是：選擇【工程】菜單中的【部件】命令，或者右擊工具箱，在快捷【工程】菜單中的【部件】命令，或者右擊工具箱，在快捷菜單中選擇【部件】命令，打開(kāi)如第菜單中選擇【部件】命令，打開(kāi)如第1 1章中圖章中圖1.101.10所示的所示的【 部 件 】 對(duì) 話 框 ， 在 【 控 件 】 選 項(xiàng) 卡 的 列 表 中 ， 將【

18、 部 件 】 對(duì) 話 框 ， 在 【 控 件 】 選 項(xiàng) 卡 的 列 表 中 ， 將Microsoft Common Dialog Control 6.0Microsoft Common Dialog Control 6.0前面的復(fù)選框選中，前面的復(fù)選框選中，單擊【確定】按鈕。單擊【確定】按鈕。 5.3.1 5.3.1 通用對(duì)話框簡(jiǎn)介（通用對(duì)話框簡(jiǎn)介（2 2） 2. 2. 常用方法與屬性常用方法與屬性 當(dāng)需要在程序中顯示通用對(duì)話框時(shí)，推薦使用當(dāng)需要在程序中顯示通用對(duì)話框時(shí)，推薦使用ShowXXShowXX方方法（法（XXXX表示對(duì)話框類(lèi)型），也可以為該控件的表示對(duì)話框類(lèi)型），也可以為該控件的A

19、ctionAction屬性賦屬性賦值。調(diào)用方法與設(shè)置屬性的對(duì)應(yīng)關(guān)系如表值。調(diào)用方法與設(shè)置屬性的對(duì)應(yīng)關(guān)系如表5.35.3所示。所示。 5.3.1 5.3.1 通用對(duì)話框簡(jiǎn)介（通用對(duì)話框簡(jiǎn)介（3 3） 除了除了ActionAction屬性外，通用對(duì)話框還具有以下主要的共同屬性：屬性外，通用對(duì)話框還具有以下主要的共同屬性： （1 1）CancelErrorCancelError屬性屬性 通用對(duì)話框內(nèi)有一個(gè)【取消】按鈕，用于向程序表示用戶想取消通用對(duì)話框內(nèi)有一個(gè)【取消】按鈕，用于向程序表示用戶想取消當(dāng)前的操作。當(dāng)當(dāng)前的操作。當(dāng)CancelErrorCancelError屬性設(shè)置為屬性設(shè)置為T(mén)rueTr

20、ue時(shí)，若用戶單擊【取消】時(shí)，若用戶單擊【取消】按鈕，通用對(duì)話框自動(dòng)將錯(cuò)誤對(duì)象（按鈕，通用對(duì)話框自動(dòng)將錯(cuò)誤對(duì)象（ErrErr，由由VBVB提供）的錯(cuò)誤號(hào)提供）的錯(cuò)誤號(hào)Err.NumberErr.Number設(shè)置為設(shè)置為3275532755（VBVB常數(shù)為常數(shù)為cdlCancelcdlCancel）供程序判斷，以便進(jìn)供程序判斷，以便進(jìn)行相應(yīng)的處理。若行相應(yīng)的處理。若CancelErrorCancelError屬性設(shè)置為屬性設(shè)置為FalseFalse，則單擊【取消】按則單擊【取消】按鈕時(shí)不產(chǎn)生錯(cuò)誤信息，無(wú)法判斷用戶是否單擊了【取消】按鈕。鈕時(shí)不產(chǎn)生錯(cuò)誤信息，無(wú)法判斷用戶是否單擊了【取消】按鈕。 （

21、2 2）DialogeTitleDialogeTitle屬性屬性 該屬性可由用戶自行設(shè)置對(duì)話框標(biāo)題欄上顯示的內(nèi)容，代替默認(rèn)該屬性可由用戶自行設(shè)置對(duì)話框標(biāo)題欄上顯示的內(nèi)容，代替默認(rèn)的對(duì)話框標(biāo)題。的對(duì)話框標(biāo)題。 （3 3）FlagsFlags屬性屬性 該屬性用于設(shè)置對(duì)話框的相關(guān)選項(xiàng)（各種具體對(duì)話框設(shè)置的選項(xiàng)該屬性用于設(shè)置對(duì)話框的相關(guān)選項(xiàng)（各種具體對(duì)話框設(shè)置的選項(xiàng)略有不同）。略有不同）。5.3.2 5.3.2 文件對(duì)話框文件對(duì)話框 （1 1） 文件對(duì)話框用于獲取文件名，有兩種類(lèi)型：文件對(duì)話框用于獲取文件名，有兩種類(lèi)型：“打開(kāi)打開(kāi)”和和“另存為另存為”對(duì)話框。在這兩種對(duì)話框窗口內(nèi)，可以遍歷磁對(duì)話框。在

22、這兩種對(duì)話框窗口內(nèi)，可以遍歷磁盤(pán)的整個(gè)目錄結(jié)構(gòu)，找到所需文件，并返回用戶選擇或輸盤(pán)的整個(gè)目錄結(jié)構(gòu)，找到所需文件，并返回用戶選擇或輸入的文件名。圖入的文件名。圖5.55.5為【打開(kāi)】對(duì)話框，為【打開(kāi)】對(duì)話框，“另存為另存為”對(duì)話框?qū)υ捒蚺c其相似，只是標(biāo)題和按鈕不同。與其相似，只是標(biāo)題和按鈕不同。 5.3.2 5.3.2 文件對(duì)話框文件對(duì)話框 （2 2） 使用使用“打開(kāi)打開(kāi)”和和“另存為另存為”對(duì)話框時(shí)需要設(shè)置的屬性主對(duì)話框時(shí)需要設(shè)置的屬性主要有以下幾種。要有以下幾種。 （1 1）FileNameFileName：值為字符串，用于設(shè)置或獲取用戶所選值為字符串，用于設(shè)置或獲取用戶所選的文件名（包括路

23、徑）。的文件名（包括路徑）。 （2 2）FileTitleFileTitle：文件標(biāo)題。設(shè)計(jì)時(shí)無(wú)效，運(yùn)行時(shí)只讀，文件標(biāo)題。設(shè)計(jì)時(shí)無(wú)效，運(yùn)行時(shí)只讀，返回不包含路徑的文件名。返回不包含路徑的文件名。 （3 3）FilterFilter：過(guò)濾器。用于過(guò)濾文件類(lèi)型，使文件列表過(guò)濾器。用于過(guò)濾文件類(lèi)型，使文件列表框中只顯示指定文件類(lèi)型的文件。該屬性的設(shè)置格式如下框中只顯示指定文件類(lèi)型的文件。該屬性的設(shè)置格式如下（其中豎線（其中豎線 | | 是必須要有的語(yǔ)法成分）：是必須要有的語(yǔ)法成分）：文件說(shuō)明文件說(shuō)明1 | 文件類(lèi)型文件類(lèi)型1 |文件說(shuō)明文件說(shuō)明2|文件類(lèi)型文件類(lèi)型2 5.3.2 5.3.2 文件對(duì)話

24、框文件對(duì)話框 （3 3） 例如，圖例如，圖5.55.5【文件類(lèi)型】下拉列表中有兩種文件類(lèi)型，【文件類(lèi)型】下拉列表中有兩種文件類(lèi)型，其其FilterFilter屬性設(shè)置為：屬性設(shè)置為：文本文件文本文件(*.txt)|*.txt|所有文件所有文件(*.*)|*.* （4 4）FilterIndexFilterIndex：過(guò)濾器索引?？芍付ā疚募?lèi)型】過(guò)濾器索引。可指定【文件類(lèi)型】列表框中的的默認(rèn)過(guò)濾器。當(dāng)使用列表框中的的默認(rèn)過(guò)濾器。當(dāng)使用FilteFilte屬性指定了多個(gè)過(guò)屬性指定了多個(gè)過(guò)濾器時(shí)，第一個(gè)過(guò)濾器的索引值為濾器時(shí)，第一個(gè)過(guò)濾器的索引值為1 1，第二個(gè)過(guò)濾器的索引，第二個(gè)過(guò)濾器的索引值為

25、值為2.2.。索引值。索引值0 0與與1 1等價(jià)。圖等價(jià)。圖5.55.5中中FilterIndex=0FilterIndex=0，默默認(rèn)顯示的是認(rèn)顯示的是“文本文件（文本文件（* *. .txttxt）”。 （5 5）InitDirInitDir：初始化路徑。用來(lái)指定文件對(duì)話框中的初始化路徑。用來(lái)指定文件對(duì)話框中的初始目錄。若顯示當(dāng)前目錄，則該屬性無(wú)須設(shè)置。初始目錄。若顯示當(dāng)前目錄，則該屬性無(wú)須設(shè)置。5.3.2 5.3.2 文件對(duì)話框文件對(duì)話框 （4 4） （6 6）DefaultExtDefaultExt：用于用于“另存為另存為”對(duì)話框，它對(duì)話框，它表示所存文件的默認(rèn)擴(kuò)展名。表示所存文件的默

26、認(rèn)擴(kuò)展名。 在上述屬性中，除在上述屬性中，除FileTitleFileTitle屬性外，其他屬性屬性外，其他屬性均可在屬性窗口和代碼中設(shè)置。此外，包括通用對(duì)均可在屬性窗口和代碼中設(shè)置。此外，包括通用對(duì)話框控件在內(nèi)的大多數(shù)話框控件在內(nèi)的大多數(shù)ActiveXActiveX控件都有一種稱(chēng)為控件都有一種稱(chēng)為“屬性頁(yè)屬性頁(yè)”的屬性設(shè)置方式，可以快速設(shè)置與控件的屬性設(shè)置方式，可以快速設(shè)置與控件功能有關(guān)的特殊屬性。右擊窗體上的通用對(duì)話框控功能有關(guān)的特殊屬性。右擊窗體上的通用對(duì)話框控件，選擇快捷菜單中的【屬性】命令，即可打開(kāi)如件，選擇快捷菜單中的【屬性】命令，即可打開(kāi)如圖圖5.65.6所示的【屬性頁(yè)】，對(duì)各種

27、對(duì)話框的特殊屬所示的【屬性頁(yè)】，對(duì)各種對(duì)話框的特殊屬性進(jìn)行設(shè)置。性進(jìn)行設(shè)置。 圖圖5.6 CommonDialog控件屬性頁(yè)控件屬性頁(yè) 【P95P95例例5.35.3】用命令按鈕的單擊事件顯示用命令按鈕的單擊事件顯示“打開(kāi)打開(kāi)”對(duì)話框，對(duì)話框，在對(duì)話框內(nèi)只顯示位圖文件，初始目錄為在對(duì)話框內(nèi)只顯示位圖文件，初始目錄為D:My PicturesD:My Pictures。當(dāng)當(dāng)在對(duì)話框中選定一個(gè)位圖文件后，單擊【打開(kāi)】按鈕則在標(biāo)簽在對(duì)話框中選定一個(gè)位圖文件后，單擊【打開(kāi)】按鈕則在標(biāo)簽上顯示所選的文件名，若單擊【取消】按鈕，則顯示上顯示所選的文件名，若單擊【取消】按鈕，則顯示“取消操取消操作作”。代碼

28、如下：。代碼如下：Private Sub Commandl_Click() On Error GoTo ErrCancel 設(shè)置出錯(cuò)處理語(yǔ)句設(shè)置出錯(cuò)處理語(yǔ)句 With CommonDialog1 .InitDir = D:My Pictures 設(shè)置初始目錄設(shè)置初始目錄 過(guò)濾文件類(lèi)型過(guò)濾文件類(lèi)型 .Filter = 位圖文件位圖文件(*.Bmp)|*.bmp .CancelError = True 控制取消按鈕控制取消按鈕 .ShowOpen 顯示【打開(kāi)】對(duì)話框顯示【打開(kāi)】對(duì)話框 顯示選擇的文件名顯示選擇的文件名 Label1.Caption = .FileName End With Exit

29、 Sub 正常退出本過(guò)程正常退出本過(guò)程ErrCancel: 以下為錯(cuò)誤處理程序段以下為錯(cuò)誤處理程序段 用戶單擊了【取消】按鈕用戶單擊了【取消】按鈕 If Err.Number = cdlCancel Then Label1.Caption = 取消操作取消操作 End IfEnd Sub 如果將上述代碼中的如果將上述代碼中的ShowOpen改為改為ShowSave即可顯示即可顯示【另存為】對(duì)話框。【另存為】對(duì)話框。 單擊演示單擊演示(例例5.3） 在例在例5.35.3的代碼中，的代碼中，On ErrorOn Error語(yǔ)句是第一次使用，語(yǔ)句是第一次使用，在此對(duì)它作簡(jiǎn)要說(shuō)明。在此對(duì)它作簡(jiǎn)要說(shuō)明。

30、On ErrorOn Error語(yǔ)句有多種語(yǔ)法格式，語(yǔ)句有多種語(yǔ)法格式，這里使用的是其格式之一：這里使用的是其格式之一： On Error GoTo 標(biāo)號(hào)標(biāo)號(hào) 該語(yǔ)句的作用是當(dāng)程序發(fā)生錯(cuò)誤時(shí)，跳轉(zhuǎn)到該語(yǔ)句的作用是當(dāng)程序發(fā)生錯(cuò)誤時(shí)，跳轉(zhuǎn)到“標(biāo)號(hào)標(biāo)號(hào)”處繼續(xù)執(zhí)行。在例處繼續(xù)執(zhí)行。在例5.35.3中，為了防止用戶單擊【取消】中，為了防止用戶單擊【取消】按鈕時(shí)仍在標(biāo)簽上顯示所選的文件名，所以將對(duì)話框按鈕時(shí)仍在標(biāo)簽上顯示所選的文件名，所以將對(duì)話框的的CancelErrorCancelError屬性設(shè)為屬性設(shè)為T(mén)rueTrue，即故意引發(fā)錯(cuò)誤，以即故意引發(fā)錯(cuò)誤，以便使程序轉(zhuǎn)到標(biāo)號(hào)便使程序轉(zhuǎn)到標(biāo)號(hào)“ErrC

31、ancelErrCancel：”處繼續(xù)執(zhí)行。當(dāng)處繼續(xù)執(zhí)行。當(dāng)使用標(biāo)號(hào)引導(dǎo)一段錯(cuò)誤處理代碼時(shí)，應(yīng)在標(biāo)號(hào)之前加使用標(biāo)號(hào)引導(dǎo)一段錯(cuò)誤處理代碼時(shí)，應(yīng)在標(biāo)號(hào)之前加入入 Exit Sub Exit Sub 語(yǔ)句，以防止程序未出錯(cuò)時(shí)也執(zhí)行錯(cuò)誤處理代碼。語(yǔ)句，以防止程序未出錯(cuò)時(shí)也執(zhí)行錯(cuò)誤處理代碼。 5.3.3 5.3.3 【顏色】對(duì)話框（顏色】對(duì)話框（1） 【顏色】對(duì)話框用于獲取用戶選擇或設(shè)置的顏色。調(diào)【顏色】對(duì)話框用于獲取用戶選擇或設(shè)置的顏色。調(diào)用通用對(duì)話框的用通用對(duì)話框的ShowColorShowColor方法時(shí)，顯示如圖方法時(shí)，顯示如圖5.75.7所示的所示的【顏色】對(duì)話框。在對(duì)話框的調(diào)色板中提供了【顏

32、色】對(duì)話框。在對(duì)話框的調(diào)色板中提供了4848種基本顏種基本顏色供選擇，還提供了自定義顏色供用戶自己調(diào)色。色供選擇，還提供了自定義顏色供用戶自己調(diào)色。 5.3.3 5.3.3 【顏色】對(duì)話框（【顏色】對(duì)話框（2） ColorColor屬性是【顏色】對(duì)話框最重要的屬性，它設(shè)置或?qū)傩允恰绢伾繉?duì)話框最重要的屬性，它設(shè)置或返回選定的顏色。該屬性為長(zhǎng)整型數(shù)據(jù)，有效范圍為返回選定的顏色。該屬性為長(zhǎng)整型數(shù)據(jù)，有效范圍為0 0& &HFFFFFFHFFFFFF（16,777,21516,777,215）。）。當(dāng)用戶在調(diào)色板中選中某種顏當(dāng)用戶在調(diào)色板中選中某種顏色時(shí)，系統(tǒng)將該顏色值賦給色時(shí)，系統(tǒng)

33、將該顏色值賦給ColorColor屬性。在代碼中可利用該屬性。在代碼中可利用該屬性為其他對(duì)象的顏色屬性賦值。例如，下面的代碼可以屬性為其他對(duì)象的顏色屬性賦值。例如，下面的代碼可以將用戶在將用戶在“顏色顏色”對(duì)話框中選定的顏色設(shè)置為文本框的背對(duì)話框中選定的顏色設(shè)置為文本框的背景色，并將文本框的前景色設(shè)為背景色的互補(bǔ)色。景色，并將文本框的前景色設(shè)為背景色的互補(bǔ)色。CommonDialog1.ShowColorText1.BackColor = CommonDialog1.ColorText1.ForeColor = &HFFFFFF - CommonDialog1.Color注：用十六進(jìn)制

34、數(shù)注：用十六進(jìn)制數(shù)& &HFFFFFFHFFFFFF減去某個(gè)顏色值即為該顏色的減去某個(gè)顏色值即為該顏色的互補(bǔ)色值?；パa(bǔ)色值。 5.3.4 5.3.4 【字體】對(duì)話框【字體】對(duì)話框 （1） 【字體】對(duì)【字體】對(duì)話框供用戶選擇話框供用戶選擇字體，可獲取用字體，可獲取用戶所選字體的名戶所選字體的名稱(chēng)、樣式、大小稱(chēng)、樣式、大小及效果。調(diào)用通及效果。調(diào)用通用 對(duì) 話 框 的用 對(duì) 話 框 的ShowFontShowFont方法時(shí)，方法時(shí)，顯示如圖顯示如圖5.85.8所所示的【字體】對(duì)示的【字體】對(duì)話框。話框。 圖圖5.8 【字體】對(duì)話框【字體】對(duì)話框 5.3.4 5.3.4 【字體】對(duì)話

35、框【字體】對(duì)話框 （2） 在使用在使用CommonDialogCommonDialog控件選擇字體之前，必控件選擇字體之前，必須設(shè)置須設(shè)置FlagsFlags屬性值。該屬性控制屬性值。該屬性控制CommonDialogCommonDialog控控件是否顯示屏幕字體、打印機(jī)字體或者兩者皆有。件是否顯示屏幕字體、打印機(jī)字體或者兩者皆有。如果未設(shè)置如果未設(shè)置FlagsFlags屬性值而直接打開(kāi)【字體】對(duì)話屬性值而直接打開(kāi)【字體】對(duì)話框，框，VBVB將顯示圖將顯示圖5.95.9所示的錯(cuò)誤提示。所示的錯(cuò)誤提示。 圖圖5.9 未設(shè)置未設(shè)置Flags屬性值的錯(cuò)誤提示屬性值的錯(cuò)誤提示5.3.4 5.3.4 【

36、字體】對(duì)話框【字體】對(duì)話框 （3）通用對(duì)話框用于字體操作時(shí)涉及到的重要屬性有：通用對(duì)話框用于字體操作時(shí)涉及到的重要屬性有：（1 1）FlagsFlags屬性：在【字體】對(duì)話框中常用的屬性：在【字體】對(duì)話框中常用的FlagsFlags屬性設(shè)置值如表屬性設(shè)置值如表5.45.4所示。其中，前三項(xiàng)必須所示。其中，前三項(xiàng)必須選擇其一才能防止圖選擇其一才能防止圖5.95.9所示的錯(cuò)誤。所示的錯(cuò)誤。 5.3.4 5.3.4 “字體字體”對(duì)話框?qū)υ捒?（4） ( (2 2) )FontFont屬性集：包括屬性集：包括FontNameFontName( (字體名字體名) )、FontSizeFontSize(

37、(字號(hào)字號(hào)) )、FontBoldFontBold0(0(粗體粗體) )、FontItalicFontItalic( (斜體斜體) )、FontStrikethruFontStrikethru( (刪除線刪除線) )和和FontUnderlineFontUnderline( (下劃線下劃線) )。 ( (3 3) ) ColorColor屬性：字體顏色。要使用該屬性必須使屬性：字體顏色。要使用該屬性必須使FlagsFlags屬性含有屬性含有cdlCFEffectscdlCFEffects值。值?！綪97P97例例5.45.4】用【字體】對(duì)話框設(shè)置文本框的字體，要求用【字體】對(duì)話框設(shè)置文本框的字

38、體，要求字體對(duì)話框內(nèi)出現(xiàn)【效果】選項(xiàng)（下劃線、刪除線和顏?zhàn)煮w對(duì)話框內(nèi)出現(xiàn)【效果】選項(xiàng)（下劃線、刪除線和顏色）。色）。 在窗體上放置通用對(duì)話框，文本框和命令按鈕。為按在窗體上放置通用對(duì)話框，文本框和命令按鈕。為按鈕單擊事件編寫(xiě)以下代碼：鈕單擊事件編寫(xiě)以下代碼： Private Sub Command1_Click() With CommonDialog1 .Flags = cdlCFBoth Or cdlCFEffects 設(shè)置設(shè)置Flags .FontName = 宋體宋體 設(shè)置對(duì)話框默認(rèn)字體設(shè)置對(duì)話框默認(rèn)字體 .ShowFont 顯示字體對(duì)話框顯示字體對(duì)話框 Text1.FontName =

39、 .FontName 設(shè)置文本框字體名設(shè)置文本框字體名 Text1.FontSize = .FontSize 設(shè)置字體大小設(shè)置字體大小 Text1.FontBold = .FontBold 設(shè)置粗體設(shè)置粗體 Text1.FontItalic = .FontItalic 設(shè)置斜體設(shè)置斜體 Text1.FontStrikethru = .FontStrikethru 設(shè)置刪除線設(shè)置刪除線 Text1.FontUnderline = .FontUnderline 設(shè)置下劃線設(shè)置下劃線 Text1.ForeColor = .Color 設(shè)置顏色設(shè)置顏色 End WithEnd Sub 單擊演示單擊演示

40、(例例5.4） 當(dāng)當(dāng)Flags=cdlCFBooth Or cdlCFEfects時(shí)，對(duì)話框如圖時(shí)，對(duì)話框如圖5.10所示，與圖所示，與圖5.8相比增加了【效果】選項(xiàng)。也可以用相比增加了【效果】選項(xiàng)。也可以用Flags=259表示該設(shè)置（表示該設(shè)置（256+3=259）。）。 圖圖5.10 用用Flags屬性加入【效果】選項(xiàng)屬性加入【效果】選項(xiàng) 5.3.5 5.3.5 【打印】對(duì)話框（【打印】對(duì)話框（1） 【打印】對(duì)話框如【打印】對(duì)話框如圖圖5.115.11所示，設(shè)計(jì)時(shí)可通過(guò)所示，設(shè)計(jì)時(shí)可通過(guò)圖圖5.125.12所示的【屬性頁(yè)】設(shè)置其屬性。運(yùn)行時(shí)該對(duì)話所示的【屬性頁(yè)】設(shè)置其屬性。運(yùn)行時(shí)該對(duì)話框

41、供用戶選擇打印機(jī)，設(shè)置打印參數(shù)（如打印范圍、框供用戶選擇打印機(jī)，設(shè)置打印參數(shù)（如打印范圍、份數(shù)等）。通過(guò)對(duì)話框中的【屬性】按鈕可設(shè)置打份數(shù)等）。通過(guò)對(duì)話框中的【屬性】按鈕可設(shè)置打印機(jī)的屬性。【打印】對(duì)話框并不能處理打印工作，印機(jī)的屬性?！敬蛴　繉?duì)話框并不能處理打印工作，只是一個(gè)供用戶選擇或設(shè)置打印參數(shù)的界面，所設(shè)只是一個(gè)供用戶選擇或設(shè)置打印參數(shù)的界面，所設(shè)參數(shù)存于各屬性中供編程使用。若要打印必須為參數(shù)存于各屬性中供編程使用。若要打印必須為PrinterPrinter對(duì)象（表示所安裝的默認(rèn)打印機(jī)）編寫(xiě)程對(duì)象（表示所安裝的默認(rèn)打印機(jī)）編寫(xiě)程序來(lái)實(shí)現(xiàn)。序來(lái)實(shí)現(xiàn)。5.3.5 5.3.5 【打印】對(duì)話框

42、（【打印】對(duì)話框（2）圖圖5.11 5.11 【打印】對(duì)話框【打印】對(duì)話框 圖圖5.12 5.12 【打印】對(duì)話框?qū)傩浴敬蛴　繉?duì)話框?qū)傩?5.3.5 5.3.5 【打印】對(duì)話框（【打印】對(duì)話框（3） 通用對(duì)話框用于打印操作時(shí)涉及到的重要屬性主通用對(duì)話框用于打印操作時(shí)涉及到的重要屬性主要有：要有：（1 1）CopiesCopies（副本）：指定打印份數(shù)。副本）：指定打印份數(shù)。（2 2）FromPageFromPage（起始頁(yè)）、起始頁(yè)）、ToPageToPage（終止頁(yè)）：終止頁(yè)）：打印的起始頁(yè)號(hào)和終止頁(yè)號(hào)。打印的起始頁(yè)號(hào)和終止頁(yè)號(hào)。（3 3）MinMin（最小值）、最小值）、MaxMax（最大

43、值）：打印的最最大值）：打印的最小頁(yè)數(shù)和最大頁(yè)數(shù)。小頁(yè)數(shù)和最大頁(yè)數(shù)。（ 4 4 ） O r i e n t a t i o nO r i e n t a t i o n （ 方 向 ） ： 打 印 方 向 。方 向 ） ： 打 印 方 向 。cdlPortraitcdlPortrait為縱向；為縱向；cdlLandscapecdlLandscape為橫向。為橫向。 【P98P98例例5.55.5】在例在例5.45.4中增加一個(gè)命令按鈕，調(diào)用【打印】中增加一個(gè)命令按鈕，調(diào)用【打印】對(duì)話框，打印文本框中的內(nèi)容。對(duì)話框，打印文本框中的內(nèi)容。調(diào)用調(diào)用PrinterPrinter對(duì)象的對(duì)象的PrintP

44、rint方法將要打印的內(nèi)容發(fā)送到打印機(jī)即方法將要打印的內(nèi)容發(fā)送到打印機(jī)即可實(shí)現(xiàn)打印。調(diào)用可實(shí)現(xiàn)打印。調(diào)用PrinterPrinter對(duì)象的對(duì)象的EndDocEndDoc方法可結(jié)束打印操作。方法可結(jié)束打印操作。代碼如下：代碼如下：Private Sub Command2_Click() Dim i As Integer CommonDialog1.ShowPrinter 顯示【打印】對(duì)話框顯示【打印】對(duì)話框 For i = 1 to CommonDialog1.Copies 按份數(shù)打印按份數(shù)打印 Printer.Print Text1.Text 打印文本框中的內(nèi)容打印文本框中的內(nèi)容 Next P

45、rinter.EndDoc 結(jié)束文檔打印結(jié)束文檔打印End Sub單擊演示單擊演示(例例5.5）5.3.6 5.3.6 【幫助】對(duì)話框【幫助】對(duì)話框 （1） CommonDialogCommonDialog控件的控件的ShowHelpShowHelp方法可調(diào)用方法可調(diào)用WindowsWindows的幫助引擎，并顯示由的幫助引擎，并顯示由HelpFileHelpFile屬性設(shè)定屬性設(shè)定的一個(gè)幫助文件。的一個(gè)幫助文件?！編椭繉?duì)話框涉及到的重要屬性有：【幫助】對(duì)話框涉及到的重要屬性有：（1 1）HelpFileHelpFile（幫助文件）：用于指定幫助文件幫助文件）：用于指定幫助文件的路徑及其文件

46、名稱(chēng)。的路徑及其文件名稱(chēng)。（2 2）HelpCommandHelpCommand（幫助命令）：用于返回或設(shè)置幫助命令）：用于返回或設(shè)置所需要的聯(lián)機(jī)幫助的類(lèi)型。所需要的聯(lián)機(jī)幫助的類(lèi)型。 5.3.6 5.3.6 【幫助】對(duì)話框【幫助】對(duì)話框 （2）注意：注意： 用于打開(kāi)【幫助】對(duì)話框的用于打開(kāi)【幫助】對(duì)話框的ShowHelpShowHelp方法僅支方法僅支持持. .hlphlp類(lèi)型的幫助文件，不能直接打開(kāi)類(lèi)型的幫助文件，不能直接打開(kāi). .chmchm類(lèi)型的類(lèi)型的幫助文件。該方法在幫助文件。該方法在Windows 98Windows 98中使用正常，而在中使用正常，而在Windows 2000Win

47、dows 2000及以上版本的操作系統(tǒng)中無(wú)法正常使及以上版本的操作系統(tǒng)中無(wú)法正常使用。用。本講到此結(jié)束，謝謝！下課。本講到此結(jié)束，謝謝！下課。第第1010講：教材講：教材P99P99100100內(nèi)容：內(nèi)容： 輸入對(duì)話框輸入對(duì)話框 消息框消息框1.通用對(duì)話框通用對(duì)話框同學(xué)們好，現(xiàn)在開(kāi)始上課！同學(xué)們好，現(xiàn)在開(kāi)始上課！5.4 5.4 自定義對(duì)話框（自定義對(duì)話框（1 1） 自定義對(duì)話框是根據(jù)實(shí)際應(yīng)用的需要設(shè)計(jì)的對(duì)自定義對(duì)話框是根據(jù)實(shí)際應(yīng)用的需要設(shè)計(jì)的對(duì)話 框 。 當(dāng)話 框 。 當(dāng) V BV B 所 提 供 的 通 用 對(duì) 話 框 控 件 以 及所 提 供 的 通 用 對(duì) 話 框 控 件 以 及Inpu

48、tBoxInputBox和和MsgBoxMsgBox函數(shù)不能滿足應(yīng)用程序的需求函數(shù)不能滿足應(yīng)用程序的需求時(shí)，就需要自制對(duì)話框。自定義對(duì)話框?qū)嶋H上是時(shí)，就需要自制對(duì)話框。自定義對(duì)話框?qū)嶋H上是一個(gè)含有若干控件的窗體，用以構(gòu)成用戶與系統(tǒng)一個(gè)含有若干控件的窗體，用以構(gòu)成用戶與系統(tǒng)對(duì)話的界面，通常將窗體的對(duì)話的界面，通常將窗體的BorderStyleBorderStyle屬性設(shè)為屬性設(shè)為3-3-Fixed DialogFixed Dialog或或1-1-Fixed SingleFixed Single，使其無(wú)最大使其無(wú)最大化和最小化按鈕，不能改變大小。在化和最小化按鈕，不能改變大小。在2.3.6 2.3

49、.6 小節(jié)小節(jié)例例2.72.7中的【關(guān)于】窗體就是一個(gè)自定義對(duì)話框。中的【關(guān)于】窗體就是一個(gè)自定義對(duì)話框。5.4 5.4 自定義對(duì)話框（自定義對(duì)話框（2 2） 下面再通過(guò)一個(gè)較實(shí)用的示例說(shuō)明自制對(duì)話框的下面再通過(guò)一個(gè)較實(shí)用的示例說(shuō)明自制對(duì)話框的創(chuàng)建過(guò)程，同時(shí)復(fù)習(xí)一下前面介紹的創(chuàng)建過(guò)程，同時(shí)復(fù)習(xí)一下前面介紹的MsgBoxMsgBox語(yǔ)句。語(yǔ)句?！綪99P99例例5.65.6】創(chuàng)建一個(gè)用戶登錄對(duì)話框，要求用創(chuàng)建一個(gè)用戶登錄對(duì)話框，要求用戶輸入用戶名和密碼。用戶名為戶輸入用戶名和密碼。用戶名為“admin”admin”，不區(qū)不區(qū)分大小寫(xiě)；密碼為分大小寫(xiě)；密碼為“12345”“12345”。若用戶名和

50、密碼輸。若用戶名和密碼輸入正確，單擊【確定】按鈕后顯示程序主窗體，入正確，單擊【確定】按鈕后顯示程序主窗體，否則提示用戶重新輸入。若錯(cuò)誤超過(guò)三次，結(jié)束否則提示用戶重新輸入。若錯(cuò)誤超過(guò)三次，結(jié)束運(yùn)行。運(yùn)行。 5.4 5.4 自定義對(duì)話框（自定義對(duì)話框（3 3） （1 1）設(shè)計(jì)界面及設(shè)置屬性）設(shè)計(jì)界面及設(shè)置屬性 新建工程，將窗體默認(rèn)名稱(chēng)新建工程，將窗體默認(rèn)名稱(chēng)Form1Form1改為改為frmLoginfrmLogin，設(shè)設(shè)BorderStyleBorderStyle屬性為屬性為3 3，CaptionCaption屬性為【登錄】。在窗體上屬性為【登錄】。在窗體上添加兩個(gè)文本框，名稱(chēng)分別為添加兩個(gè)文

51、本框，名稱(chēng)分別為txtUsertxtUser和和txtPasswordtxtPassword，TextText屬性均設(shè)為空。設(shè)屬性均設(shè)為空。設(shè)txtPasswordtxtPassword文本框的文本框的PasswordPassword屬屬性為性為“* *”。添加兩個(gè)標(biāo)簽，。添加兩個(gè)標(biāo)簽，CaptionCaption屬性分別為【用戶名】屬性分別為【用戶名】和【用戶密碼】。添加兩個(gè)命令按鈕，名稱(chēng)分別為和【用戶密碼】。添加兩個(gè)命令按鈕，名稱(chēng)分別為cmdOkcmdOk和和cmdExitcmdExit，CaptionCaption分別為【確定】、【退出】。設(shè)置【確分別為【確定】、【退出】。設(shè)置【確定】按

52、鈕定】按鈕Default=TrueDefault=True，【，【退出】按鈕退出】按鈕Cancel=TrueCancel=True。 添加一個(gè)窗體，名稱(chēng)為添加一個(gè)窗體，名稱(chēng)為frmMainfrmMain，設(shè)設(shè)CaptionCaption屬性為【主屬性為【主窗體】。在窗體上添加一個(gè)標(biāo)簽，設(shè)窗體】。在窗體上添加一個(gè)標(biāo)簽，設(shè)CaptionCaption屬性為【歡迎屬性為【歡迎進(jìn)入本系統(tǒng)】，字體為華文新魏，二號(hào)字。進(jìn)入本系統(tǒng)】，字體為華文新魏，二號(hào)字。 5.4 5.4 自定義對(duì)話框（自定義對(duì)話框（4 4） （2 2）編寫(xiě)代碼）編寫(xiě)代碼為為frmLoginfrmLogin窗體的【確定】按鈕的單擊事件編寫(xiě)以下代碼，窗體的【確定】按鈕的單擊事件編寫(xiě)以下代碼，進(jìn)行用戶登錄檢測(cè)：進(jìn)行用戶登錄檢測(cè)：Private Sub cmdOk_Click() Static intErr As Integer 靜態(tài)變量累加出錯(cuò)次數(shù)靜態(tài)變量累加出錯(cuò)次數(shù) Dim sUser As String Dim sPass As String 用戶名不區(qū)分大小寫(xiě)用戶名不區(qū)分大小寫(xiě) sUser = UCase$(Trim$(txtUser.Text) sPass = Trim