CommonDialog 控制項
CommonDialog 控制項提供一組標準的對話方塊,可以用來進行諸如開啟或儲存檔案、設定列印選項、以及選擇顏色或字型等作業。透過執行 Windows 說明引擎控制項,還能顯示說明。
語法
CommonDialog
請注意
CommonDialog 控制項在 Visual Basic 和 Microsoft Windows 動態連結程式庫 Commdlg.dll 程式之間提供了一個介面。為了用這個控制項建立一個對話方塊,Commdlg.dll 必須位於 Microsoft Windows 的 SYSTEM 目錄下。
『對話方塊(CommonDialog)』控制項並不在預設之工具箱內,需在功能表『專案』之「設定使用元件...」選項之顯示視窗中勾選 "Microsoft Common Dialog Control 6.0 (SP?)" 方得加入工具箱中。
若無"Microsoft Common Dialog Control 6.0 (SP?)"選項,則點下「瀏覽...」按鈕,選取檔案 COMDLG32.OCX。
在應用程式中要使用 CommonDialog 控制項,可將其加入到表單中並設定其屬性。由控制項的方法來決定,顯示哪一種對話方塊。在訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。,當啟動適當的方法時,便會顯示一個對話方塊或執行說明引擎;在訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。,CommonDialog 控制項是以圖示的型式顯示在表單中。該圖示的大小是無法改變的。
使用下列指定的方法,CommonDialog 控制項能夠顯示相對應的對話方塊。
方法 | 所顯示的對話方塊 |
訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。 | 訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。 |
訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。 | 訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。 |
訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。 | 顯示「色彩」對話方塊 |
訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。 | 顯示「字型」對話方塊 |
訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。 | 顯示「列印」或「列印選項」對話方塊 |
訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。 | 啟動 Windows 說明引擎 |
CommonDialog 控制項會自動地在對話方塊的介面上提供內文感應說明,只要按一下:
- 標題列中的「這是什麼?」說明按鈕,然後往您想瞭解更多資訊的項目按一下。
- 將滑鼠放在想進一步瞭解更多資訊的項目上,按一下右鍵,然後在所顯示的內容功能表中選擇「這是什麼?」指令。
作業系統會提供顯示在 Windows 說明中文字的彈出式視窗。也可以透過設定 訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。,在帶有 CommonDialog 控制項的對話方塊中顯示「說明」按鈕;但是,在這種情況下您必須提供說明主題。
附註 您無法指定將對話方塊顯示在什麼地方。
更進一步的資訊 想看看各對話方塊的說明主題,按一下「請參閱」。
CommonDialog 控制項方法範例
本範例使用 訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。和 訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。、訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。、訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。、訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。、訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。 和 訪客無法瀏覽此圖片或連結,請先 註冊 或 登入會員 。 等方法,顯示通用型對話方塊。如果您想測試這個範例,就將程式碼貼上到表單的宣告部份,該表單帶有 CommandButton、OptionButton (設定該選項按鈕的 Index 屬性為 0)、以及 CommonDialog 控制項。按 F5 鍵,為所要的通用型對話方塊選擇選項按鈕,再選取指令按鈕。
Private Sub Form_Paint () Static FlagFormPainted As Integer
' 當第一次表單重繪時, If FlagFormPainted <> True Then For i = 1 To 5 Load Option1(i)
' 給陣列新增 5 個選項按鈕 Option1(i).Top = Option1(i - 1).Top + 350 Option1(i).Visible = True Next i Option1(0).Caption = "Open"
' 在每個選項按鈕上放置標題 Option1(1).Caption = "Save" Option1(2).Caption = "Color" Option1(3).Caption = "Font" Option1(4).Caption = "Printer" Option1(5).Caption = "Help" Command1.Caption = "Show Dlg"
' 標籤指令按鈕 FlagFormPainted = True
' 表單重繪完畢 End IfEnd SubPrivate Sub Command1_Click () If Option1(0).Value Then
' 如果選擇「開啟舊檔」選項, CommonDialog1.ShowOpen
' 顯示「開啟舊檔」通用型對話方塊。 ElseIf Option1(1).Value Then
' 否則, CommonDialog1.ShowSave
' 顯示「另存新檔」通用型對話方塊。 ElseIf Option1(2).Value Then
' 否則, CommonDialog1.ShowColor
' 顯示「色彩」通用型對話方塊。 ElseIf Option1(3).Value Then
' 否則, CommonDialog1.Flags = cdlCFBoth
' 在使用ShowFont 方法之前, ' 必須將 cdlCFBoth、 ' cdlCFPrinterFonts、 ' 或 cdlCFScreenFonts ' 設定給 flags 屬性。 CommonDialog1.ShowFont
' 顯示「字型」通用型對話方塊。 ElseIf Option1(4).Value Then
' 或, CommonDialog1.ShowPrinter
' 顯示「列印」通用型對話方塊。 ElseIf Option1(5).Value Then
' 或 CommonDialog1.HelpFile = "VB5.hlp" CommonDialog1.HelpCommand = cdlHelpContents CommonDialog1.ShowHelp
' 顯示「 Visual Basic 說明目錄主題」。 End IfEnd Sub