實(shí)戰(zhàn)VisualBasicNet對(duì)話框

1、實(shí)戰(zhàn)Visual Basic .Net對(duì)話框?qū)υ捒蚝?前文介 紹的提示框一樣，是Widows系統(tǒng)中的一種用來(lái)和使用者實(shí)現(xiàn)交互的特殊窗口。在 Windows系統(tǒng)中，常見(jiàn)的對(duì)話框，根據(jù)使用方式和性質(zhì)一般分成以下六種類型：文件打開(kāi)對(duì)話框、文件保存對(duì)話框、字體選擇對(duì)話框、顏色選擇對(duì)話框和打印機(jī)設(shè)置對(duì)話框 和文件打印預(yù)覽對(duì)話框。至于這六個(gè)對(duì)話框的在Windows系統(tǒng)的表現(xiàn)形式和所起的具體作用，我想各位一定都很清楚了，這里也就不一一介紹了。下面就進(jìn)入本節(jié)的主要內(nèi)容，在 Visual Basic .NET中制作這六種對(duì)話框和處理這些對(duì)話框的注意事項(xiàng)和技巧。首先要明確的是 Visual Basic .NET語(yǔ)

2、言本身并沒(méi)有提供處理對(duì)話框的功能（這一點(diǎn)不像上一節(jié)中所講的提示框），所以VB.NET處理對(duì)話框就必須借助”外力”，而這種”外力"就 是.Net框架提供給所有開(kāi)發(fā).Net平臺(tái)應(yīng)用程序的一個(gè)公用的類庫(kù) -.Net FrameWork SDK。 在.Net FrameWork SDK 中的命名空間 System.Windows.Forms 中定義了六 個(gè)類： OpenFileDialog 類、SaveFileDialog 類、FontDialog 類、ColorDialog 類、PrintPreviewDialog 類和PrintDialog類。VB.NET就是使用上述六個(gè)類來(lái)處理與對(duì)話框

3、相關(guān)的操作的。其中VB.NET利用OpenFileDialog類來(lái)處理與文件選擇對(duì)話框相關(guān)操作；利用SaveFileDialog類處理和文件保存對(duì)話框相關(guān)操作；利用FontDialog類處理和字體選擇對(duì)話框相關(guān)操作；利用ColorDialog類處理和顏色選擇對(duì)話框相關(guān)操作；利用PrintPreviewDialog類處理和打印預(yù)覽對(duì)話框相關(guān)操作和利用PrintDialog類處理和打印機(jī)設(shè)置對(duì)話框相關(guān)操作。VB.NET在使用上述六種類來(lái)處理Windows系統(tǒng)常見(jiàn)的六種對(duì)話框時(shí)，其主要的步驟如下：1. 實(shí)例化上述類，即：創(chuàng)建上述類的實(shí)例。2. 初始化創(chuàng)建的實(shí)例，并顯示。3. 處理對(duì)話框返回的數(shù)據(jù)。下

4、面首先來(lái)介紹這六個(gè)類的組成結(jié)構(gòu)。 這六個(gè)類在結(jié)構(gòu)上有相似之處，表現(xiàn)在某些類有 很多名稱、作用相同的組成成員。 另外這六個(gè)類的方法結(jié)構(gòu)都比較簡(jiǎn)單，其中最為重要的方法是"ShowDialog"，其作用是都是顯示對(duì)話框。下面主要介紹六個(gè)類的屬性。一文件選擇對(duì)話框：在VB.NET中創(chuàng)建的文件選擇對(duì)話框其實(shí)就是Ope nF ileDialog類的實(shí)例。通過(guò)對(duì)設(shè)定OpenFileDialog類的屬性來(lái)定制文件選擇對(duì)話框的式樣和功能。OpenFileDialog類的主要屬性如表01:屬性說(shuō)明AddExte nsion該值指示如果用戶省略擴(kuò)展名對(duì)話框是否自動(dòng)在文件名中添加 擴(kuò)展名。Chec

5、kFileExists該值指示如果用戶指定不存在的文件名對(duì)話框是否顯示警告。CheckPathExists該值指示如果用戶指定不存在的路徑對(duì)話框是否顯示警告。DefaultExtP獲取或設(shè)置默認(rèn)文件擴(kuò)展名。Derefere nceLi nks該值指示對(duì)話框是否返回快捷方式引用的文件的位置或者是否 返回快捷方式FileName字符串，獲取或設(shè)置一個(gè)包含在文件對(duì)話框中選定的文件名的 字符串。FileNames字符串?dāng)?shù)組，獲取對(duì)話框中所有選定文件的文件名。Filter字付串，獲取或設(shè)置當(dāng)前文件名師選器字付串該字付串決疋對(duì) 話框的”另存為文件類型”或"文件類型"框中出現(xiàn)的選擇內(nèi)容。

6、FilterI ndex整型，獲取或設(shè)置文件對(duì)話框中當(dāng)前選定篩選器的索引。In itialDirectory字符串，獲取或設(shè)置文件對(duì)話框顯示的初始目錄。Multiselect布爾型，該值指示對(duì)話框是否允許選擇多個(gè)文件。Read On "Checked布爾型，該值指示是否選定只讀復(fù)選框。RestoreDirectory布爾型該值指示對(duì)話框在關(guān)閉前是否還原當(dāng)前目錄。ShowHelp布爾型，該值指示文件對(duì)話框中是否顯示"幫助"按鈕。ShowReadO nlyr布爾型，該值指示對(duì)話是否包含只讀復(fù)選框。Title字符串，獲取或設(shè)置文件對(duì)話框標(biāo)題。表01: OpenFileD

7、ialog類的主要屬性及其說(shuō)明VB.NET通過(guò)調(diào)用 OpenFileDialog類實(shí)例的ShowDialog方法顯示創(chuàng)建的實(shí)例，這樣一 個(gè)文件選擇對(duì)話框就顯示出來(lái)了。下列代碼的作用在 VB.NET中通過(guò)創(chuàng)建一個(gè)OpenFileDialog實(shí)例，并設(shè)定此實(shí)例的各個(gè) 屬性值，來(lái)定制一個(gè)可以選擇多個(gè)文件的文件選擇對(duì)話框，并且把使用此對(duì)話框選擇的多個(gè)文件名稱通過(guò)提示框顯示出來(lái)。請(qǐng)各位讀者注意具體的實(shí)現(xiàn)方法：Dim strFileName ( ) As String'定義一個(gè)字符串?dāng)?shù)組DimOpe nFileDialog1AsSystem.Wi ndows.Forms.Ope nFileDial

8、og= NewSystem.Wi ndows.Forms.Ope nFileDialog () 創(chuàng)建一個(gè) OpenFileDialog實(shí)例With Ope nFileDialog1.Filter = "Text files (*.txt)|*.txt|AII files (*.*)|*.*"'設(shè)定文件類型過(guò)濾條件為：文本類型和全部文件.FilterI ndex = 1'設(shè)定打開(kāi)文件對(duì)話框缺省的文件過(guò)濾條件ni tialDirectory = "C:"'設(shè)定打開(kāi)文件對(duì)話框缺省的目錄.Title ="打開(kāi)文件"&#

9、39;設(shè)定打開(kāi)文件對(duì)話框的標(biāo)題.Multiselect = True'設(shè)定可以選擇多個(gè)文件.Read On "Checked = False'設(shè)定選中”只讀”復(fù)選框.ShowReadO nly = True'設(shè)定顯示”只讀"復(fù)選框End With'設(shè)定打開(kāi)文件對(duì)話框的式樣和功能If Ope nFileDialog1.ShowDialog() = DialogResult.OK The n'顯示打開(kāi)文件對(duì)話框，并判斷單擊對(duì)話框中的”確定"按鈕strFileName = Ope nF ileDialog1.FileNamesDi

10、m s As Stri ngDim i As In tegerFor i = 0 To strFileName.Length - 1 s = s + strFileName( i ) + Chr( 10 ) + Chr( 13 )Next'處理打開(kāi)文件選擇框選擇的文件MessageBox.Show( s ,"選擇的文件名列表")End If圖01是上述代碼定制的打開(kāi)文件對(duì)話框的模樣：圖01:打開(kāi)文件對(duì)話框圖02是上述程序中以提示框顯示經(jīng)過(guò)圖01中所示的文件選擇對(duì)話框選擇的數(shù)據(jù)，即選擇的多個(gè)文件名稱：圖02:對(duì)圖01中選擇的數(shù)據(jù)處理后的界面 二文件保存對(duì)話框：VB.N

11、ET 中創(chuàng)建文件保存對(duì)話框是使用SaveFileDialog類，SaveFileDialog類的結(jié)構(gòu)OpenFileDialog類的結(jié)構(gòu)非常相似。表02是SaveFileDialog類的主要屬性及其說(shuō)明：屬性說(shuō)明AddExte nsion該值指示如果用戶省略擴(kuò)展名，對(duì)話框是否自動(dòng)在文件名中添 加擴(kuò)展名。CheckFileExists該值指示如果用戶指定不存在的文件名，對(duì)話框是否顯示警告。CheckPathExists亥值指示如果用戶指定不存在的路徑，對(duì)話框是否顯示警告。CreatePrompt該值指示如果用戶指定不存在的文件，對(duì)話框是否提示用戶允 許創(chuàng)建該文件。DefaultExt獲取或設(shè)置默

12、認(rèn)文件擴(kuò)展名。Derefere nceLi nks該值指示對(duì)話框是否返回快捷方式引用的文件的位置，或者是 否返回快捷方式FileName獲取或設(shè)置一個(gè)包含在文件對(duì)話框中選定的文件名的字符串。FileNames獲取對(duì)話框中所有選定文件的文件名。Filter獲取或設(shè)置當(dāng)前文件名師選器字付串，該字付串決疋對(duì)話框的另存為文件類型”或"文件類型”框中出現(xiàn)的選擇內(nèi)容。FilterI ndex獲取或設(shè)置文件對(duì)話框中當(dāng)前選定篩選器的索引。In itialDirectoryr獲取或設(shè)置文件對(duì)話框顯示的初始目錄。OverwritePrompt該值指示如果用戶指定已存在的文件名，”另存為”對(duì)話框是否 顯示

13、警告。RestoreDirectory:該值指示對(duì)話框在關(guān)閉前是否還原當(dāng)前目錄。ShowHelp該值指示文件對(duì)話框中是否顯示"幫助"按鈕。Title獲取或設(shè)置文件對(duì)話框標(biāo)題。表02： SaveFileDialog類的主要屬性及其說(shuō)明三字體選擇對(duì)話框：VB.NET中創(chuàng)建字體選擇對(duì)話框是通過(guò)FontDialog類，F(xiàn)ontDialog類結(jié)構(gòu)也不復(fù)雜，和上面介紹的二個(gè)類也有很多相似之處，具體如表03所示：屬性說(shuō)明AllowScriptCha nge指示用戶能否更改AllowSimulatio ns指示對(duì)話框是否允許圖形設(shè)備接口AllowVectorFo nts指示對(duì)話框是否允許選

14、擇矢量字體。AllowVerticalFo nts指示對(duì)話框是既顯示垂直字體又顯示水平字體，還是只顯示 水平字體。Color獲取或設(shè)置選定字體的顏色。FixedPitchO nly指示對(duì)話框是否只允許選擇固定間距字體。Font獲取或設(shè)置選定的字體。Fo ntMustExist指示對(duì)話框是否指定當(dāng)用戶試圖選擇不存在的字體或樣式時(shí) 的錯(cuò)誤條件。MaxSize獲取或設(shè)置用戶可選擇的最大磅值。Mi nSize獲取或設(shè)置用戶可選擇的最小磅值。ScriptsO nly示對(duì)話框是否允許為所有非指ShowApply指示對(duì)話框是否包含"應(yīng)用"按鈕。ShowColor指示對(duì)話框是否顯示顏色選擇

15、。ShowEffects指示對(duì)話框是否包含允許用戶指定刪除線、下劃線和文本顏 色選項(xiàng)的控件。ShowHelp指示對(duì)話框是否顯示"幫助"按鈕。表02： FontDialog類的主要屬性及其說(shuō)明四顏色選擇對(duì)話框：VB.NET中創(chuàng)建顏色選擇對(duì)話框是通過(guò)ColorDialog類，ColorDialog類結(jié)構(gòu)最為簡(jiǎn)單,具體如表04所示：屬性說(shuō)明AllowFullOpe n指示用戶是否可以使用該對(duì)話框定義自定義顏色。An yColor指示對(duì)話框是否顯示基本顏色集中可用的所有顏色。Color獲取或設(shè)置用戶選定的顏色。CustomColors獲取或設(shè)置對(duì)話框中顯示的自定義顏色集。FullO

16、pe n指示用于創(chuàng)建自定義顏色的控件在對(duì)話框打開(kāi)時(shí)是否可 見(jiàn)。ShowHelp指示在顏色對(duì)話框中是否顯示 "幫助"按鈕。SolidColorO nly指示對(duì)話框是否限制用戶只選擇純色。表04： ColorDialog類的常用屬性及其說(shuō)明五打印機(jī)設(shè)置對(duì)話框：VB.NET中創(chuàng)建打印機(jī)設(shè)置對(duì)話框是通過(guò)PrintDialog類，表05是PrintDialog類的常用屬性及其說(shuō)明：屬性說(shuō)明AllowPri ntToFile指示是否啟用"打印到文件"復(fù)選框。AllowSelecti on獲取或設(shè)定一個(gè)值，指示是否啟用了頁(yè)碼范圍選項(xiàng)按 鈕。AllowSomePages

17、指示是否啟用”頁(yè)"選項(xiàng)按鈕。Docume nt獲取或設(shè)置一個(gè)值，指示用于獲取Prin terSetti ngs獲取或設(shè)置該對(duì)話框要修改的Prin tToFile指示"打印到文件"復(fù)選框是否選中。ShowHelp指示是否顯示"幫助"按鈕。ShowNetwork指示是否顯示"網(wǎng)絡(luò)"按鈕。表05: PrintDialog類的常用屬性及其說(shuō)明六打印預(yù)覽對(duì)話框：VB.NET中創(chuàng)建打印機(jī)預(yù)覽對(duì)話框是通過(guò)PrintPreviewDialog類，打印機(jī)預(yù)覽對(duì)話框其實(shí)也可以看成是一個(gè)窗體，因?yàn)樗鼡碛凶鰹橐粋€(gè)窗 體所擁有的所有屬性，所以 Pri

18、ntPreviewDialog類是本文介紹的所有類中最為復(fù)雜的一個(gè)。表06是和打印預(yù)覽對(duì)話框最為相關(guān)的屬性及其說(shuō)明：屬性說(shuō)明AcceptButt on獲取或設(shè)置當(dāng)用戶按DataB indings為該控件獲取數(shù)據(jù)綁定。DialogResult獲取或設(shè)置窗體的對(duì)話框結(jié)果。Docume nt獲取或設(shè)置要預(yù)覽的文檔。En abled指示是否啟用該控件。FormBorderStyle獲取或設(shè)置窗體的邊框樣式。Height獲取或設(shè)置控件的高度。HelpButt on指示是否應(yīng)在窗體的標(biāo)題框中顯示 ”幫助"按鈕。Ico n獲取或設(shè)置窗體的圖標(biāo)。MaximizeBox指示是否在窗體的標(biāo)題欄中顯示最大

19、化按鈕。MaximumSize獲取或設(shè)置窗體可調(diào)整到的最大大小。Mini mizeBox指示是否在窗體的標(biāo)題欄中顯示最小化按鈕。Mi nim umSize獲取窗體可調(diào)整到的最小大小。Name獲取或設(shè)置控件的名稱。Own edForms獲取Show In Taskbar指示是否在Size獲取或設(shè)置窗體的大小。StartPositio n獲取或設(shè)置運(yùn)行時(shí)窗體的起始位置。Tabln dex獲取或設(shè)置在控件的容器的控件的TopMost指示窗體是否應(yīng)顯示為應(yīng)用程序的最頂層窗體。Visible指示該控件是否可見(jiàn)。Width獲取或設(shè)置控件的寬度。Win dowState獲取或設(shè)置窗體的窗口狀態(tài)。表05: P

20、rintPreviewDialog類的常用屬性及其說(shuō)明下列代碼在 VB.NET中定制一個(gè)打印預(yù)覽對(duì)話框：DimPrin tDocume nt1AsSystem.Drawi ng.Pri ntin g.Pri ntDocume nt= NewSystem.Drawing.Printing.PrintDocument ()創(chuàng)建一個(gè)打印文檔Dim Prin tPreviewDialog1 As Prin tPreviewDialog = New Prin tPreviewDialog ()With Prin tPreviewDialog1.MaximizeBox = False.Text =&quo

21、t;打印預(yù)覽窗口 ”End With'設(shè)定打印預(yù)覽窗口的屬性Prin tPreviewDialog1.Docume nt = Prin tDocume nt1PrintPreviewDialog1.ShowDialog ()圖03是上述代碼定制的打印預(yù)覽對(duì)話框的模樣：圖03:定制的打印預(yù)覽對(duì)話框七具體的使用方法：至此已經(jīng)介紹了這六個(gè)類的組成結(jié)構(gòu)和大致的用法，下面就通過(guò)編寫(xiě)一個(gè)完成的示例來(lái)更深入的掌握這 些類的使用方法。在下面介紹的示例中，將使用到前面介紹的四個(gè)類，這 個(gè)示例的功能是通過(guò)文件選擇對(duì)話框打開(kāi)文本文件，并通過(guò)文本框來(lái)顯示文本文件的內(nèi)容， 使用字體對(duì)話框來(lái)設(shè)定文本框中的字體和前

22、景色，使用顏色對(duì)話框來(lái)設(shè)定文本對(duì)話框的背景色。最后使用文件保存對(duì)話框把修改的文本框中的文字另存為一個(gè)文本文件。通過(guò)對(duì)這個(gè)示例，我們將更深入的掌握 現(xiàn)步驟：Visual Basic .Net中對(duì)話框的使用方法，以下是此示例的具體實(shí)1.啟動(dòng) Visual Studio .Net。2. 選擇菜單【文件】|【新建】|【項(xiàng)目】后，彈出【新建項(xiàng)目】對(duì)話框。3. 將【項(xiàng)目類型】設(shè)置為【Visual Basic項(xiàng)目】。4. 將【模板】設(shè)置為【W(wǎng)indows應(yīng)用程序】。5. 在【名稱】文本框中輸入【全面掌握對(duì)話框】。6. 在【位置】的文本框中輸入【 E:VS.NET項(xiàng)目】，然后單擊【確定】按鈕，這樣在 &quo

23、t;E:VS.NET項(xiàng)目”目錄中就產(chǎn)生了名稱為"全面掌握對(duì)話框”的文件夾，里面存放的是創(chuàng)建的 全面掌握對(duì)話框”的項(xiàng)目文件。7. 把Visual Studio .Net的當(dāng)前窗口切換到【Form1.vb （設(shè)計(jì)）】窗口，并從【工具箱】中的【W(wǎng)indows窗體組件】選項(xiàng)卡中按照如下順序往Form1窗體中拖入下列組件：一個(gè)TextBox組件，名稱為 TextBox1，用以顯示、編輯文本文件。四個(gè) Button組件，名稱分別為 Button1、Button2、Button3和Button4。程序中通過(guò)其 Click事件分別實(shí)現(xiàn)設(shè)定文本框的字體、顏色和讀取、保存文本等操作。一個(gè)SaveFile

24、Dialog組件，名稱為 SaveFileDialog1，用以創(chuàng)建文件保存對(duì)話框。一個(gè)OpenFileDialog組件，名稱為 OpenFileDialog1 ,用以創(chuàng)建文件打開(kāi)對(duì)話框。一個(gè)FontDialog組件，名稱為 FontDialog1，用以創(chuàng)建字體對(duì)話框。 一個(gè)ColorDialog組件，名稱為 ColorDialog，用以創(chuàng)建顏色對(duì)話框。8.在上述組件拖入窗體后，分別按照表07所示設(shè)定各組件的屬性：組件類型組件名稱屬性設(shè)置結(jié)果FormForm1Text全面掌握對(duì)話框MaximizeBoxFalseFormBorderStyleFixedS in gleButt onButt on

25、1Text打開(kāi)FlatStyleFlatButt onButt on2Text保存Butt on2FlatStyleFlatButt onButt on3Text字體FlatStyleFlatButt onButt on4Text顏色FlatStyleFlat表07:【全面掌握對(duì)話框】項(xiàng)目中各組件主要屬性值并按照?qǐng)D04所示排列窗體中的各組件:圖04:【全面掌握對(duì)話框】項(xiàng)目中各組件的排列順序9.把Visual Studio .Net的當(dāng)前窗口切換到 Forml.vb的代碼編輯窗口，并在Forml.vb文 件的頭部添加下列代碼，下列代碼是導(dǎo)入Forml.vb中使用的類所在的命名空間：Imports

26、 Syste m.IO10.在Form1.vb文件中的InitializeComponent過(guò)程之后添加下列代碼，下列代碼是在 Form1.vb 中定義 Button1 Button4 組件的 Click 事件：Private Sub Button1_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Han dles Butto n1.ClickDim strFileName As Stri ng'設(shè)定打開(kāi)文件對(duì)話框的屬性With Ope nFileDialog1.Filter = "T

27、ext files ( *.txt )|*.txt".Ini tialDirectory = "C:".Title ="打開(kāi)文件對(duì)話框”End With'以下是打開(kāi)文本文件，并通過(guò)文本框顯示出來(lái)If Ope nFileDialog1.ShowDialog ( ) = DialogResult.OK The nstrFileName = Ope nF ileDialog1.FileNameDim objReader As StreamReader = New StreamReader ( strFileName ,System.Text.E nco

28、di ng.Default)TextBox1.Text = objReader.ReadToE nd ()objReader.Close ()objReader = Noth ingEnd IfEnd SubPrivate Sub Button2_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs )Han dles Butto n2.ClickDim strFileName As Stri ng'設(shè)定文件保存對(duì)話框的屬性With SaveFileDialogl.DefaultExt = "t

29、xt".FileName = strFileName.Filter = "Text files ( *.txt )|*.txt".FilterI ndex = 1ni tialDirectory = "C:".OverwritePrompt = True.Title ="文件保存對(duì)話框”End With'以下是把文本框中的文字另保存為文本文件If SaveFileDialogl.ShowDialog ( ) = DialogResult.OK ThenstrFileName = SaveFileDialog1.FileNameDim objWriter As StreamWriter =New StreamWriter ( strFileName , False , System.Text.E ncodi ng.Default)objWrite