實戰(zhàn)VisualBasicNet對話框

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

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

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

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

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

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

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

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

9、39;設定打開文件對話框的標題.Multiselect = True'設定可以選擇多個文件.Read On "Checked = False'設定選中”只讀”復選框.ShowReadO nly = True'設定顯示”只讀"復選框End With'設定打開文件對話框的式樣和功能If Ope nFileDialog1.ShowDialog() = DialogResult.OK The n'顯示打開文件對話框，并判斷單擊對話框中的”確定"按鈕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'處理打開文件選擇框選擇的文件MessageBox.Show( s ,"選擇的文件名列表")End If圖01是上述代碼定制的打開文件對話框的模樣：圖01:打開文件對話框圖02是上述程序中以提示框顯示經過圖01中所示的文件選擇對話框選擇的數據，即選擇的多個文件名稱：圖02:對圖01中選擇的數據處理后的界面 二文件保存對話框：VB.N

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

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

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

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

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

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

17、指示是否啟用”頁"選項按鈕。Docume nt獲取或設置一個值，指示用于獲取Prin terSetti ngs獲取或設置該對話框要修改的Prin tToFile指示"打印到文件"復選框是否選中。ShowHelp指示是否顯示"幫助"按鈕。ShowNetwork指示是否顯示"網絡"按鈕。表05: PrintDialog類的常用屬性及其說明六打印預覽對話框：VB.NET中創(chuàng)建打印機預覽對話框是通過PrintPreviewDialog類，打印機預覽對話框其實也可以看成是一個窗體，因為它擁有做為一個窗 體所擁有的所有屬性，所以 Pri

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

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

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

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

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

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

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

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

26、 Syste m.IO10.在Form1.vb文件中的InitializeComponent過程之后添加下列代碼，下列代碼是在 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'設定打開文件對話框的屬性With Ope nFileDialog1.Filter = "T

27、ext files ( *.txt )|*.txt".Ini tialDirectory = "C:".Title ="打開文件對話框”End With'以下是打開文本文件，并通過文本框顯示出來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'設定文件保存對話框的屬性With SaveFileDialogl.DefaultExt = "t

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