【正文】 。 ? 自定義對(duì)話框分為：模式對(duì)話框和無(wú)模式的對(duì)話框。 ? 要?jiǎng)?chuàng)建自定義對(duì)話框，可以從新窗體著手，或者自定義 ? 現(xiàn)成的對(duì)話框。如果重復(fù)過(guò)多，可以創(chuàng)建能在許多應(yīng)用程序 ? 中使用的對(duì)話框的集合。 99 ? 創(chuàng)建新的對(duì)話框方法具體步驟如下： ? 。 ? 。 ? 。 ? 。 ? 。 ? 碼。 ? 。 100 ? 例 93 設(shè)在主窗體 Form1的菜單中有一“數(shù)據(jù)輸入”菜單 ? 項(xiàng)，運(yùn)行時(shí)單擊該菜單項(xiàng)打開(kāi)一個(gè)模式對(duì)話框 Form2，對(duì)話 ? 框運(yùn)行結(jié)果如圖 95所示。在該對(duì)話框上建立 4個(gè)標(biāo)簽；建立 2 ? 個(gè)文本框，用于接收從鍵盤輸入的學(xué)號(hào)和姓名；建立 2個(gè)單 ? 選按鈕，用于選擇學(xué)生的性別；建立 3個(gè)命令按鈕，單擊“確 ? 定”按鈕將在 Label4標(biāo)簽處顯示輸入的內(nèi)容，單擊“取消”按鈕 ? 將清除所有輸入，單擊“退出”按鈕，卸載對(duì)話框返回主窗體 ? Form1中。 圖 95 自定義對(duì)話框 101 ? 對(duì)話框 Form2及各控件的屬性設(shè)置如表94所示。 表 94 對(duì)話框及各控件的屬性設(shè)置 控件 屬性項(xiàng) 屬性值 Form2 Caption 數(shù)據(jù)輸入 BorderStyle 1 ControlBox False MaxButton False MinButton False Label1 Caption 學(xué)號(hào)： Label2 Caption 姓名： Label3 Caption 性別： Label4 Caption 空 Text1 Text 空 Text2 Text 空 Option1 Caption 男 Value True Option2 Caption 女 Command1 Caption 確定 Default True Command2 Caption 取消 Cancel True Command3 Caption 退出 102 ? 窗體 Form1的“數(shù)據(jù)輸入”菜單項(xiàng)（設(shè)菜單控件名稱為 ? SJRL）的 Click事件過(guò)程中顯示對(duì)話框Form2的代碼如下： ? Private Sub SJRL_Click() ? 1 ? End Sub ? 對(duì)話框 Form2中各命令按鈕的 Click事件代碼如下： ? Private Sub Command1_Click() ? Dim Sex As String ? Sex = ? If = True Then Sex = ? If = True Then Sex = ? If = Or = Then ? MsgBox 請(qǐng)輸入學(xué)號(hào)和姓名 , , 警告 ? ? Else 103 ? = 學(xué)號(hào)： + + vbCrLf + 姓名： + + vbCrLf + 性別： + Sex ? End If ? End Sub ? Private Sub Command2_Click() ? = ? = ? = True ? = ? End Sub ? Private Sub Command3_Click() ? Unload Form2 ? End Sub 104 通用對(duì)話框 ? 話框 ， 利用這 ? 些對(duì)話框可以完成打開(kāi)文件 ， 保存文件 ，設(shè)置打印選項(xiàng) ， ? 以及選擇顏色和字體等操作 ， 通過(guò)運(yùn)行Windows幫助引擎 ? 控件還可以顯示幫助 。 由于這組對(duì)話框在應(yīng)用程序中經(jīng)常 ? 使用 ， 因此又稱為通用對(duì)話框 。 105 ? 1. 添加通用對(duì)話框控件 ? 通用對(duì)話框必須用 CommonDialog控件來(lái)創(chuàng)建，該控件 ? 屬于 ActiveX控件的一個(gè)組件，使用之前必須先添加到工具箱 ? 中，具體添加步驟如下： ? （ 1）選擇“工程”菜單中的“部件”命令，彈出“部件”對(duì)話框； ? （ 2）在“部件”對(duì)話框中，選擇“控件”標(biāo)簽； ? （ 3）在“控件”列表框中單擊“ Microsoft Common Dialog ? Control ”左邊的小方框，使方框中出現(xiàn)“ √”； ? （ 4）單擊“確定”按鈕。 ? 通用對(duì)話框控件 CommonDialog被添加到工具箱中如圖 ? 96所示。 圖 96 CommanDialog控件 106 ? 2. 通用對(duì)話框控件的方法 ? 使用 CommonDialog控件可以創(chuàng)建打開(kāi)文件對(duì)話框、保 ? 存文件對(duì)話框、顏色對(duì)話框、字體對(duì)話框、打印對(duì)話框和幫 ? 助對(duì)話框。 CommonDialog控件所顯示的對(duì)話框由控件的方 ? 法來(lái)確定，表 95列出了控件的顯示方法。應(yīng)用程序中調(diào)用這 ? 些顯示方法的一般格式是：控件名 .顯示方法。例如， 。 表 95 CommonDialog控件的顯示方法 方法 所顯示的對(duì)話框 ShowOpen 顯示“打開(kāi)”對(duì)話框 ShowSave 顯示“另存為”對(duì)話框 ShowColor 顯示“顏色”對(duì)話框 ShowFont 顯示“字體”對(duì)話框 ShowPrinter 顯示“打印”或“打印選項(xiàng)”對(duì)話框 ShowHelp 調(diào)用 Windows幫助引擎 107 ? 3. 通用對(duì)話框控件的屬性 ? （ 1） CommonDialog控件的公共屬性：Action、 ? CancelError、 Flags ? （ 2）“打開(kāi)” /“另存為”對(duì)話框使用的屬性： DialogTitle、 DefaultExt、FileName、 FileTitle、 Filter、 ? FilterIndex、 InitDir ? （ 3）“顏色”對(duì)話框使用的屬性：Color ? （ 4）“字體”對(duì)話框使用的屬性：Color、 FontName、 ? FontSize、 FontBold、 FontItalic、FontStrikethru、 ? FontUnderline、 Max、 Min ? （ 5）“打印”對(duì)話框使用的屬性：copies、 FromPage、 ? ToPage、 PrinterDefault、 Max、 Min ? （ 6）“幫助”對(duì)話框使用的屬性：HelpCommand、 ? HelpContextID、 HelpFile、 HelpKey 108 ? 4. 應(yīng)用舉例 ? CommonDialog控件在設(shè)計(jì)時(shí)是以圖標(biāo)的形式顯示在窗 ? 體中，該圖標(biāo)的大小不能改變，但在程序運(yùn)行時(shí)會(huì)被隱藏。 ? 例 94 設(shè)計(jì)一個(gè)工程，實(shí)現(xiàn)通用對(duì)話框的基本功能。 ? 首先，設(shè)計(jì)如圖 98所示窗體界面。在該窗體上建立 1個(gè) ? 文本框， 1個(gè)通用對(duì)話框控件， 6個(gè)命令按鈕，窗體及各控件 ? 的屬性設(shè)置如表 96所示。 圖 98 CommonDialog控件設(shè)計(jì)示例 109 表 96 窗體及各控件的屬性設(shè)置 控件 屬性項(xiàng) 屬性值 Form1 Caption 通用對(duì)話框設(shè)計(jì)示例 Text1 Text 空 MultiLine True ScrollBar 3 Command1 Caption 打開(kāi) Command2 Caption 保存 Command3 Caption 顏色 Command4 Caption 字體 Command5 Caption 打印 Command6 Caption 退出 110 ? 然后編寫各命令按鈕的 Click事件代碼如下： ? Private Sub Command1_Click() ? =True ? On Error GoTo Errhandler ? = 打開(kāi)文本文件 ? = ? = c:\windows ? = Text files(*.txt)|*.txt ? ? If Then ? = ? Open For Input As 1 ? Do While Not EOF(1) ? Line Input 1, S ? = + S + vbCrLf ? Loop ? Close 1 ? End If ? Errhandler: ? Exit Sub ? End Sub 111 ? Private Sub Command2_Click() ? = 保存文本文件 ? = 512 ? ? Open For Output As 1 ? For i = 1 To Len() ? Print 1, ? Next i ? Close 1 ? End Sub ? Private Sub Command3_Click() ? = 2 ? ? = ? End Sub 112 ? Private Sub Command4_Click() ? = cdlCFBoth Or cdlCFEffects ? = 宋體 ? With Text1 ? .FontName = ? .FontSize = ? .FontBold = ? .FontItalic = ? .FontStrikethru = ? .FontUnderline = ? .ForeColor = ? End With ? End Sub 113 ? Private Sub Command5_Click() ? =256 ? ? For i = 1 To ? ? Next i ? End Sub ? Private Sub Command6_Click() ? End ? End Sub 114 工具欄的設(shè)計(jì) ? 工具欄是 Windows應(yīng)用程序窗口的一個(gè)組成部分。通常 , ? 是將應(yīng)用程序中常用的菜單命令作成按鈕的形式放在工具欄 ? 中。 VB中制作工具欄有兩種方法：一種是手工制作；另一種 ? 是通過(guò) ToolBar、 ImageList控件制作。本節(jié)介紹后一種方法。 ? 由于 Toolbar、 ImageList控件都屬于Active控件，因此在 ? 使用之前，必須先添加到工具箱中，方法是： ? ⒈選擇“工程”菜單中的“部件”命令，彈出“部件”對(duì)話框； ? ⒉在“部件”對(duì)話框中，選擇“控件”標(biāo)簽； ? ⒊在“控件”列表框中選擇“ Microsoft Windows Common ? Control ” 左邊的小方框，使方框中出現(xiàn)“ √”； ? ⒋單擊“確定”按鈕。 115 ? Toolbar、 ImageList控件被添加到工具箱中如圖 914所 ? 示。工具欄由按鈕（ Buttons）對(duì)象組成，按鈕對(duì)象由 Toolbar ? 控件來(lái)創(chuàng)建，每個(gè)按鈕對(duì)象上可以是一個(gè)文本，也可以是一 ? 個(gè)圖像，該圖像由 ImageList控件來(lái)提供。 圖 914 Toolbar控件和 ImageList控件 116 ? 通過(guò) Toolbar、 ImageList控件建立工具欄的基本步驟： ? （ 1）繪制 Toolbar控件。如果工具欄中的按鈕要添加圖片，則轉(zhuǎn)（ 2），否則轉(zhuǎn)（ 4）。 ? （ 2）繪制 ImageList控件。 ? （ 3）在 ImageList控件中添加圖片。 ? （ 4）在 Toolbar控件中添加按鈕。 ? （ 5）編寫 Toolbar控件的事件代碼。 117