第11章 對話框設(shè)計

1、11.1 用窗體定制對話框11.2 通用對話框順序結(jié)構(gòu)第11章 對話框設(shè)計11.1 用窗體定制對話框用窗體定制對話框用窗體作為對話框比較自由，可根據(jù)需要在窗體對話框中添加任何控件，以接收輸入信息或顯示消息。通過設(shè)置窗體和控件對象的屬性來定義對話框的外觀，編寫代碼來組織控件之間的邏輯關(guān)系，以實現(xiàn)所需要的功能。 11.1.1 創(chuàng)建窗體對話框創(chuàng)建窗體對話框 創(chuàng)建一個窗體對話框和一般窗體的建立方法完全一樣，可按下面步驟：（1）打開“工程”菜單，單擊“添加窗體”，在彈出的“添加窗體”對話框中選擇“對話框”或者是“窗體”，點擊“打開”新建一個窗體對象。（2）按需要定制窗體的外觀。即向窗體中添加所需的控件。

2、對于要求輸入的對話框，應(yīng)至少放置一個文本框用于接收數(shù)據(jù)。 （3）設(shè)置窗體或控件對象的屬性。 （4）編寫事件過程，組織各對象之間的關(guān)系。 11.1.2 顯示窗體對話框顯示窗體對話框 對話框就是窗體，因此可以象窗體一樣進行顯示。 顯示或關(guān)閉窗體對話框有多種方法，相關(guān)語句、方法和屬性如下：（1）Load語句：Load 窗體對象名 將窗體裝入內(nèi)存，但不顯示。（2）UnLoad語句：UnLoad 窗體對象名 將窗體從內(nèi)存中卸載。（3）Show方法：窗體對象名.Show vbModal 顯示已裝載或未裝載的窗體。雖然Show方法也能裝載窗體，但預(yù)先用Load語句裝入更好，這樣可以提高程序的反應(yīng)速度。（4）

3、Hide方法：窗體對象名.Hide 將窗體從屏幕上隱去。（5）Visible屬性： 窗體對象名.Visible = True 顯示已裝載的窗體。 窗體對象名.Visible = False 將窗體從屏幕上隱去。 對話框有兩種類型，即模式對話框和無模式對話框。 模式對話框：在可以繼續(xù)操作應(yīng)用程序的其他部分之前，必須被關(guān)閉（隱藏或卸載）。 無模式對話框：允許在對話框與其他窗體之間轉(zhuǎn)移焦點而不用關(guān)閉對話框。當(dāng)對話框正在顯示時，可以在當(dāng)前應(yīng)用程序的其他地方繼續(xù)工作，無模式對話框較少使用。 11.1.2 顯示窗體對話框顯示窗體對話框 【例例11-111-1】建立一個通過輸入磁盤上的路徑及可執(zhí)行文件名執(zhí)行

4、指定程序的對話框，并且能夠控制運行后對話框的風(fēng)格。 (1) 設(shè)計界面如圖所示： (2) 設(shè)置對話框邊界風(fēng)格：11.1.2 顯示窗體對話框顯示窗體對話框 屬性屬性值NameRunformCaption運行ControlBoxTrueBorderStyle3-Fixed DialogMaxButtonFalseMinButtonFalse11.1.2 顯示窗體對話框顯示窗體對話框 (3)設(shè)置控件屬性 :控件Name屬性Caption屬性Text屬性文本框Rtext無空白標(biāo)簽Label1文件名無框架Frame1選項無單選按鈕1Noption常規(guī)無單選按鈕2Maxoption最大化無單選按鈕3Mino

5、ption最小化無命令按鈕Cmdrun運行無(4) 編寫代碼如下：Private Sub Cmdrun_Click() Dim Retval As String On Error GoTo ERRORHANDLER If NOption Then Retval = Shell(RText.Text, 1) If MaxOption Then Retval = Shell(RText.Text, 3) If MinOption Then Retval = Shell(RText.Text, 2) Exit SubERRORHANDLER: MsgBox (不能運行該程序) Resume Next

6、End Sub 11.1.2 顯示窗體對話框顯示窗體對話框 11.2 通用對話框通用對話框VB提供的CommonDialog（公共對話框）控件可以在窗體上創(chuàng)建6種標(biāo)準(zhǔn)對話框，它們分別為打開（Open）、另存為（Save AS）、顏色（Color）、字體（Font）、打?。≒rinter）和幫助（Help）。CommonDialog是ActiveX控件，在使用之前需要先將其添加到控件工具箱中。打開“工程”|“部件”，在“部件”對話框中，選中“Microsoft Common Dialog Control 6.0”（不同系統(tǒng)，版本會不同），點擊確定即可將CommonDialog控件添加到控件工具箱

7、中。如圖所示：1CommonDialog控件的基本屬性 CommonDialog控件的基本屬性主要有：(1) Action屬性：該屬性決定打開何種類型的標(biāo)準(zhǔn)對話框，取值如下表所示。該屬性不能在屬性窗口內(nèi)設(shè)置，只能在程序中賦值。11.2 通用對話框通用對話框Action屬性值描 述0沒有操作（無對話框顯示）1顯示“打開”對話框2顯示“另存為”對話框3顯示“顏色”對話框4顯示“字體”對話框5顯示“打印”對話框6顯示“幫助”對話框 （2）Name屬性：CommonDialog控件的名稱屬性。 （3）DialogTitle屬性：標(biāo)題屬性，用于設(shè)置通用對話框標(biāo)題文本。 （4）CancelError屬性：

8、設(shè)置選取“取消”按鈕時是否產(chǎn)生出錯信息。默認值為False，當(dāng)該屬性設(shè)置為 True 時，無論何時選取“取消”按鈕，均產(chǎn)生 32755 (cdlCancel) 號錯誤。對話框打開后，為了防止用戶沒有輸入任何信息便使用取消操作，則可用此屬性設(shè)置出錯警告。 （5）Flags屬性：用于設(shè)置對話框外觀及工作方式。對于每種對話框都有許多不同的設(shè)置值。 11.2 通用對話框通用對話框 11.2 通用對話框通用對話框 2. CommonDialog控件的方法在程序中要使用CommonDialog控件的標(biāo)準(zhǔn)對話框，除了使用CommonDialog控件的Action屬性設(shè)置對話框的類型外，還可以使用Common

9、Dialog控件的方法。這些方法如下表所示：方方 法法 所顯示的對話框所顯示的對話框ShowOpen顯示“打開”對話框ShowSave顯示“另存為”對話框ShowColor顯示“顏色”對話框ShowFont顯示“字體”對話框ShowPrinter顯示“打印”或“打印選項”對話框ShowHelp調(diào)用 Windows 幫助引擎11.2.1 打開對話框打開對話框 在程序運行時，CommonDialog控件的Action屬性為1或者是調(diào)用了它的ShowOpen方法，系統(tǒng)就會彈出“打開”對話框，如圖所示。 對于“打開”對話框，常用的屬性如下： CancelError：返回或設(shè)置一個值，該值指示當(dāng)選取“取

10、消”按鈕時是否出錯。 DefaultExt：用于設(shè)置或返回對話框缺省的文件擴展名。該屬性值是一個文件擴展名字符串，如”*.txt”、”*.doc”等。當(dāng)保存一個沒有指定擴展名的文件時，系統(tǒng)自動加缺省擴展名。 DialogTitle：返回或設(shè)置對話框的標(biāo)題。 Filename：返回或設(shè)置用戶所選擇的文件的完整路徑和文件名稱。 FileTitle：返回用戶選擇文件的文件名稱，包括擴展名，但不包括路徑。 Filter：設(shè)置或返回在對話框的文件類型列表框中顯示的文件匹配表達式。語法格式為：對象名.Filter = “描述字符串1 | 匹配表達式1 | 描述字符串2 |匹配表達式2” FilterInd

11、ex：返回或設(shè)置“打開”或“另存為”對話框中一個缺省的過濾器。 Flags：返回或設(shè)置標(biāo)志選項。 InitDir：返回或設(shè)置初始目錄。 MaxFileSize：返回或設(shè)置使用 CommonDialog 控件時，被打開的文件名的最大尺寸。 11.2.1 打開對話框打開對話框 【例【例11-211-2】用命令按鈕的Click事件顯示文件打開對話框，在對話框內(nèi)只允許顯示文本文件，初始目錄為 C:Windows。當(dāng)選定一個文本文件后，單擊“打開”按鈕，在標(biāo)簽上顯示所選擇的文件名稱，若單擊“取消”按鈕，則顯示“放棄操作”。 在窗體上加入名為CommonDialog1的通用對話框、名為Command1的命

12、令按鈕和名為Label1的標(biāo)簽，在命令按鈕的Click事件中編程： Private Sub Command1_Click() On Error GoTo nofile 設(shè)置錯誤陷阱 CommonDialog1.InitDir = C:Windows 設(shè)置初始目錄 CommonDialog1.Filter = 文本文件|*.txt 過濾文件類型 CommonDialog1.CancelError = True 控制取消按鈕 以上三行代碼可在設(shè)計時直接設(shè)置 CommonDialog1.ShowOpen 或用Action=1顯示文件打開對話框 Label1.Caption = CommonDialo

13、g1.FileName 顯示選擇的文件名 Exit Sub 正常退出本過程 nofile: 以下為錯誤處理 If Err.Number = 32755 Then 單擊取消按鈕 Label1.Caption = 放棄操作 Else Label1.Caption = 其他錯誤 End If End Sub 11.2.1 打開對話框打開對話框 11.2.2 另存為對話框另存為對話框 程序運行時，CommonDialog控件的Action屬性為2或者是調(diào)用了它的ShowSave方法，系統(tǒng)就會彈出“另存為”對話框，它為用戶在存儲文件時提供了一個標(biāo)準(zhǔn)的用戶界面。實際上“另存為”對話框和“打開”對話框除了標(biāo)

14、題欄上的文字不同之外，其它內(nèi)容與用法均相同，如圖所示：【例【例11-311-3】編寫一個應(yīng)用程序，當(dāng)點擊“另存為”對話框中的“另存為”按鈕(Command1)時，將文本框（Text1）里的內(nèi)容寫入一個文本文件。程序界面如圖所示。 程序代碼如下： Private Sub Command1_Click() CommonDialog1.Filter = 文本文件|*.txt|所有文件|*.* CommonDialog1.FileName = * .txt CommonDialog1.DefaultExt = txt CommonDialog1.Action = 2 Open CommonDialog

15、1.FileName For Output As #1 Print #1, Text1.Text Close #1 End Sub 11.2.2 另存為對話框另存為對話框 11.2.3 顏色對話框顏色對話框 程序運行時，CommonDialog控件的Action屬性為3或者是調(diào)用了它的ShowColor方法，系統(tǒng)就會彈出“顏色”對話框，它為用戶提供顏色的選擇，如圖所示。 顏色對話框除有通用對話框的基本屬性外，還有一個重要的屬性就是Color，它用來返回或設(shè)置用戶指定的顏色值。 【例【例11-411-4】編寫一個應(yīng)用程序，用“顏色”對話框設(shè)置一個文本框的背景顏色。程序設(shè)計界面和運行界面如圖所示。

16、 11.2.3 顏色對話框顏色對話框 程序代碼如下：Private Sub Command1_Click()CommonDialog1.Action = 3Text1.BackColor = CommonDialog1.ColorEnd Sub11.2.4 字體對話框字體對話框 程序運行時，CommonDialog控件的Action屬性為4或者是調(diào)用了它的ShowFont方法，系統(tǒng)就會彈出“字體”對話框。如圖所示：持的字體；cdlCFScreenFonts（1）：使對話框只列出系統(tǒng)支持的屏幕字體。如果不設(shè)置Flags屬性，將會顯示一個信息框，提示沒有安裝的字體，并產(chǎn)生一個運行錯誤。 在使用Sh

17、owFont方法前，必須先設(shè)置CommonDialog控件的Flags屬性為下列三個常數(shù)或值中的一個：cdlCFBoth（3）：使對話框列出可用的打印機和屏幕字體；cdlCFPrinterFonts（2）：使對話框只列出由 hDC 屬性指定的打印機支 【例【例11-511-5】編寫一個應(yīng)用程序，用“字體”對話框設(shè)置文本框（Text1）中文字的字體。程序設(shè)計界面如圖所示。程序代碼如下：Private Sub Command1_Click() CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects CommonDialog1.Action = 4 Text1

18、.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize Text1.FontStrikethru = CommonDialog1.FontStrikethru Text1.FontUnderline = CommonDialog1.FontUnderlineEnd Sub11.2.4 字體對話框字體對話框 11.2.5 打印對話框打印對

19、話框 程序運行時，CommonDialog控件的Action屬性為5或者是調(diào)用了它的ShowPrinter方法，系統(tǒng)就會彈出“打印”對話框，它為用戶一個選擇打印參數(shù)的界面，如圖所示。 對于“打印”對話框，除了基本屬性外還有幾個重要屬性： Copies：返回或設(shè)置需要打印的份數(shù)。 Max、Min：返回或設(shè)置打印范圍允許的最大和最小值。FromPage、ToPage：返回或設(shè)置起始頁（From）和終止（To）頁文本框的值。當(dāng) cdlPDPageNums標(biāo)志被設(shè)置時才有效。 例例11-611-6編寫一個應(yīng)用程序，用“打印機”對話框打印文本框（Text1）的內(nèi)容。程序界面如圖11-15所示。 程序代碼

20、如下：Private Sub Command1_Click()CommonDialog1.Action = 5For i = 1 To CommonDialog1.CopiesPrinter.Print Text1.TextNext iEnd Sub11.2.5 打印對話框打印對話框 11.2.6 幫助對話框幫助對話框 程序運行時，CommonDialog控件的Action屬性為6或者是調(diào)用了它的ShowHelp方法，系統(tǒng)就會彈出“幫助”對話框，它可以為用戶制作應(yīng)用程序的聯(lián)機幫助。使用ShowHelp方法前，必須將CommonDialog控件的HelpFile和HelpCommand屬性設(shè)置為

21、其相應(yīng)的一個常數(shù)或值。否則，Winhlp32.exe就不能顯示幫助文件。 對于“幫助”對話框，有以下幾個重要屬性： HelpCommand：返回或設(shè)置需要的聯(lián)機幫助的類型。 HelpFile：確定 Microsoft Windows Help 文件的路徑和文件名，應(yīng)用程序使用這個文件顯示 Help 或聯(lián)機文檔。 HelpKey：返回或設(shè)置標(biāo)識請求的幫助主題的關(guān)鍵字。 HelpContext：返回或設(shè)置請求的幫助主題的上下文 ID。 11.3 綜合應(yīng)用程序設(shè)計綜合應(yīng)用程序設(shè)計 例例11-711-7 模擬Windows中的寫字板的功能，編寫一個簡易的文本編輯器。它具有新建、打開、編輯、保存、另存為

22、等，以及設(shè)置字體、字號、顏色、對齊方式等功能。該編輯的文件格式為RTF文件(*.rtf)或者文本文件(*.txt)。在用戶界面中，添加如下控件：工具欄ToolBar1，狀態(tài)欄StatusBar1，RTF文本框RichTextBox1，通用對話框CommonDialog1，圖象列表ImageList1，定時器Timer1，菜單欄。設(shè)計界面如圖 所示：注意：界面中RTF文本框RichTextBox控件，類似于通用對話框控件CommonDialog一樣，需要手工地添加到工具箱后才能使用。方法是打開“工程”|“部件”，在“部件”對話框中，選中“Microsoft Rich Textbox Contro

23、l 6.0(SP4)”，點擊“確定”即可將RTF文本框控件添加到控件工具箱中。 步驟一步驟一：菜單欄的屬性設(shè)置：在菜單編輯器中設(shè)置如下表所示的各個菜單項和屬性值。11.3 綜合應(yīng)用程序設(shè)計綜合應(yīng)用程序設(shè)計 標(biāo)題（Caption）名稱（Name）說明文件File主菜單項新建New菜單項1打開Open菜單項2保存Save菜單項3另存為SaveAs菜單項4退出Quit菜單項5標(biāo)題（Caption）名稱（Name）說明格式Format主菜單項字體Font菜單項1顏色Color菜單項2對齊方式Alignment菜單項3左對齊LeftAlignment子菜單項1居中對齊CenterAlignment子菜單項2右對齊RightAlignment子菜單項3文件菜單屬性設(shè)置文件菜單屬性設(shè)置格式菜單屬性設(shè)置格式菜單屬性設(shè)置步驟二步驟二：圖像列表的屬性設(shè)置：右鍵