VBCommonDialog控件的使用

1、VB CommonDialog控件的使用使用Com mon Dialog控件Com mon Dialog控件提供諸如打開和保存文件、設(shè)置打印選項、選擇顏色和字體等 操做的一組標(biāo)準(zhǔn)對話框。運行Windows協(xié)助引擎時，控件還能夠顯示協(xié)助。CommonDialog 控件在 VisualBasic 和 MicrosoftWindows 動態(tài)連接庫 Commdlg.dll例程之間提供了接口。為了用該控件創(chuàng)建對話框，必須要求Commdlg.dll在MicrosoftWi ndows'System 目錄下。為了在應(yīng)用程序中使用Comm on Dialog控件，應(yīng)將其添加到窗體上并設(shè)置屬性。控件顯示

2、的對話由控件的方法決定。運行時，調(diào)用相應(yīng)方法后將顯示對話框或執(zhí)行協(xié)助引擎； 設(shè)想時在窗體上將 Com mon Dialog控件顯示成一個圖標(biāo)。此圖標(biāo)的大小不能改變。Com mon Dialog控件能夠顯示如下常用對話框：打開”另存為”顏色”字體”打印”要使用Com mon Dialog控件1. 若未添加CommonDialog控件，則應(yīng)從 工程"菜單中選定 部件”，將控件添加到 工具箱中。在標(biāo)記對話的控件"中找到并選定控件，然后單擊確定"按鈕。2. 單擊工具箱中的 "Com mon Dialog控件并在窗體上繪制該控件。在窗體上繪制CommonDialo

3、g控件時，控件將自動調(diào)整大小。象Timer控件一樣，CommonDialog控件在運行時不可見。3. 運行時，請適當(dāng)使用下表所列方法顯示需要的對話。方法顯喬的對話呂ShcAvCdcrShtAYFcnr打開顔色宇但ShcPi imeiShcvHdp打印謁用Windows “幫矣"顯示打開”和另存為”對話框有了打開”對話框就可指定驅(qū)動器、目錄、文件擴展名和文件名。另存為”對話框在外觀上與打開”對話框相同，只是對話框的標(biāo)題和文件名是暗淡的。運行時選定文件并關(guān)閉對話框后，可用 FileName屬性獲取選定的文件名。要顯示打開”對話框1. 指定在 文件類型”列表框中顯示的文件過濾器列表?？捎孟?/p>

4、列格式設(shè)置Filter屬性：descriptio n1|filter1|descriptio n2|filter2Description是列表框中顯示的字符串例如，"TextFiles(*.txt)" 。 Filter是實際的文件過濾器例如，"*.txt"。每個descriptionfilter設(shè)置間必須用管道符號分隔(|)。2. 用ShowOpen方法顯示對話框。選定文件后可用FileName屬性獲取選定文件的名稱。對所有公共對話框，當(dāng)CancelError屬性為True，而且用戶單擊了對話框的取消”按鈕時將生成一個錯誤。在顯示對話框時捕獲錯誤，以此檢

5、測能否按了取消”按鈕。下列代碼顯示 打開”對話框并以選定的文件名為打開文件過程的參數(shù)：PrivateSubm nuFileOpen_Click()'CancelError 為 True。On ErrorGoToErrHa ndler'設(shè)置過濾器。Commo nDialog1.Filter="AIIFiles(*.*)|*.*|Text_Files(*.txt)|*.txt|BatchFiles(*.bat)|*.bat"'指定缺省過濾器。Common Dialog1.FilterI ndex=2'顯示打開"對話框。Common Di

6、alog1.ShowOpe n'調(diào)用打開文件的過程。Ope nF ile(Commo nDialog1.FileName)ExitSubErrHa ndler:'用戶按取消”按鈕。ExitSubEndSub使用顏色”對話框可用 顏色”對話框在調(diào)色板中選擇顏色，或者創(chuàng)建并選定自定義顏色。運行時，選定顏色并關(guān)閉對話框后可用Color屬性獲取選定的顏色。LLQLLL 叫廠LLL 苦要顯示顏色"對話框1. 將 Com mon Dialog 控件的 Flags 屬性設(shè)置成 VisualBasic 常數(shù) cdICCRGBI nit。2. 用ShowColor方法顯示對話框。可用C

7、olor屬性獲取選定顏色的RGB值。單擊“Command1命令按鈕時，下列代碼將顯示顏色"對話框：PrivateSubComma nd1_Click()'將Cancel設(shè)置成True 。Common Dialog1.Ca ncelError=TrueOn ErrorGoToErrHa ndler'設(shè)置Flags屬性。Commo nDialog1.Flags=cdlCCRGBI nit'顯示顏色"對話框。Commo nDialog1.ShowColor'將窗體的背景顏色設(shè)置成選定的顏色。Form1.BackColor=Commo nDialog

8、1.ColorExitSubErrHa ndler:'用戶按了取消”按鈕。ExitSubEndSub使用字體”對話框字體”對話框中選定字字體”對話框根據(jù)大小、顏色、樣式選擇字體。用戶一旦在 體后，下列屬性就會包含有關(guān)用戶選項的消息。字萍字體U字體樣式g)大小Al ger 1 amAri «1Ar > al Bl &ckArial NarrowArttl RQw4*d MT J2drMegulBTBoldBold Italic示例廠冊10吃甘語系)：NESI GB2312廠in我做 觀色|謚3S 7.14樸字體”對話框要顯示 “字體 ”對話框1.將 Flags 屬

9、性設(shè)置為下述 VisualBasic 常數(shù)之一：cdlCFScreenFonts （屏幕字體）cdlCFPrinterFonts （打印機字體）cdlCFBoth （既能夠是屏幕字體又能夠是打印機字體）警告在顯示 “字體”對話框之前必須將 Flags 屬性設(shè)置為這些數(shù)值之一，否則將發(fā)生 字體不具有錯誤。2. 用 ShowFont 方法顯示對話框。下列代碼根據(jù)用戶在 “字體 ”對話框中的選擇來設(shè)置文本框的字體屬性：PrivateSubCommand1_Click（）'將 Cancel 設(shè)置成 True 。CommonDialog1.CancelError=TrueOnErrorGoToE

10、rrHandler' 設(shè)置 Flags 屬性。CommonDialog1.Flags=cdlCFBothOrcdlCFEffects' 顯示 “字體 ”對話框。CommonDialog1.ShowFont'根據(jù)用戶的選擇來設(shè)置文本屬性。Text1.Font.Name=CommonDialog1.FontNameText1.Font.Size=CommonDialog1.FontSizeText1.Font.Bold=CommonDialog1.FontBoldText1.Font.Italic=CommonDialog1.FontItalicText1.Font.Underline=Co