VB對話框的功能

1、 3/3VB對話框的功能 CommonDialog 控件提供一組標準的操作對話框，進行諸如打開和保存文件，設(shè)置打印選項，以及選擇顏色和字體等操作。通過運行 Windows 幫助引擎控件還能顯示幫助。 CommonDialog 控件在 Visual Basic 和 Microsoft Windows 動態(tài)連接庫 Commdlg.dll 例程之間提供了接口。為了用該控件創(chuàng)建對話框，必須要求 Commdlg.dll 在 Microsoft Windows System 目錄下。 為了在應用程序中使用 CommonDialog 控件，應將其添加到窗體上并設(shè)置屬性?？丶@示的對話由控件的方法決定。運行時

2、，調(diào)用相應方法后將顯示對話框或執(zhí)行幫助引擎；設(shè)計時在窗體上將 CommonDialog 控件顯示成一個圖標。此圖標的大小不能改變。 CommonDialog 控件可以顯示如下常用對話框： “打開” “另存為” “顏色” “字體” “打印” 注意無法指定對話框顯示在什么地方。 要使用 CommonDialog 控件 若未添加 CommonDialog 控件，則應從“工程”菜單中選定“部件”，將控件添加到工具箱中。在標記對話的“控件”中找到并選定控件，然后單擊“確定”按鈕。 單擊工具箱中的“CommonDialog”控件并在窗體上繪制該控件。 在窗體上繪制 CommonDialog 控件時，控件將

3、自動調(diào)整大小。象Timer 控件一樣，CommonDialog 控件在運行時不可見。 運行時，請適當使用下表所列方法顯示需要的對話。方法顯示的對話 ShowOpen 打開 ShowSave 另存為 ShowColor 顏色 ShowFont 字體 ShowPrinter 打印 ShowHelp 調(diào)用 Windows“幫助” 示例代碼： 下例顯示“打開”對話框然后在信息框中顯示所選的文件名： Private Sub Command1_Click() 設(shè)置“CancelError”為 True CommonDialog1.CancelError = True On Error GoTo ErrHa

4、ndler 設(shè)置標志 CommonDialog1.Flags = cdlOFNHideReadOnly 設(shè)置過濾器 CommonDialog1.Filter = All Files (*.*)|*.*|Text Files & _ (*.txt)|*.txt|Batch Files (*.bat)|*.bat 指定缺省的過濾器 CommonDialog1.FilterIndex = 2 顯示“打開”對話框 CommonDialog1.ShowOpen 顯示選定文件的名字 MsgBox CommonDialog1.filename Exit Sub ErrHandler： 用戶按了“取消”按鈕

5、Exit Sub End Sub 下例顯示“打印”對話框。 Private Sub Command1_Click() Dim BeginPage, EndPage, NumCopies, i 設(shè)置“取消”為 True CommonDialog1.CancelError = True On Error GoTo ErrHandler 顯示“打印”對話框 CommonDialog1.ShowPrinter 從該對話框取得選定的值 BeginPage = CommonDialog1.FromPage EndPage = CommonDialog1.ToPage NumCopies = CommonD

6、ialog1.Copies For i = 1 To NumCopies 此處放置將數(shù)據(jù)發(fā)送到打印機的代碼 Next i Exit Sub ErrHandler： 用戶按了“取消”按鈕 Exit Sub End Sub 下面的示例顯示“顏色”對話框并設(shè)置窗體的 BackColor 為選定的顏色： Private Sub Command1_Click() 設(shè)置“取消”為True CommonDialog1.CancelError = True On Error GoTo ErrHandler 設(shè)置 Flags 屬性 CommonDialog1.Flags = cdlCCRGBInit 顯示“顏色

7、”對話框 CommonDialog1.ShowColor 設(shè)置窗體的背景顏色為選定的顏色 Form1.BackColor = CommonDialog1.Color Exit Sub ErrHandler： 用戶按了“取消”按鈕 End Sub 下面的示例顯示“字體”對話框，將文本框中的字體屬性設(shè)置為所選定的： Private Sub Command1_Click() 設(shè)置“取消”為 True CommonDialog1.CancelError = True On Error GoTo ErrHandler 設(shè)置 Flags 屬性 CommonDialog1.Flags = cdlCFEffe

8、cts Or cdlCFBoth 顯示“字體”對話框 CommonDialog1.ShowFont http:/./doc/a563e3778e9951e79b892717.html = CommonDialog1.FontName Text1.Font.Size = CommonDialog1.FontSize Text1.Font.Bold = CommonDialog1.FontBold Text1.Font.Italic = CommonDialog1.FontItalic Text1.Font.Underline = CommonDialog1.FontUnderline Text1.FontSt