實(shí)戰(zhàn)Visual Basic.Net對(duì)話(huà)框

2019-11-18 12:04:41

字體：大中小

供稿：網(wǎng)友

　　對(duì)話(huà)框和前文介紹的提示框一樣，是Widows系統(tǒng)中的一種用來(lái)和使用者實(shí)現(xiàn)交互的非凡窗口。在Windows系統(tǒng)中，常見(jiàn)的對(duì)話(huà)框，根據(jù)使用方式和性質(zhì)一般分成以下六種類(lèi)型：文件打開(kāi)對(duì)話(huà)框、文件保存對(duì)話(huà)框、字體選擇對(duì)話(huà)框、顏色選擇對(duì)話(huà)框和打印機(jī)設(shè)置對(duì)話(huà)框和文件打印預(yù)覽對(duì)話(huà)框。至于這六個(gè)對(duì)話(huà)框的在Windows系統(tǒng)的表現(xiàn)形式和所起的具體作用，我想各位一定都很清楚了，這里也就不一一介紹了。下面就進(jìn)入本節(jié)的主要內(nèi)容，在Visual Basic .NET中制作這六種對(duì)話(huà)框和處理這些對(duì)話(huà)框的注重事項(xiàng)和技巧。
　　
　　首先要明確的是Visual Basic .NET語(yǔ)言本身并沒(méi)有提供處理對(duì)話(huà)框的功能（這一點(diǎn)不像上一節(jié)中所講的提示框），所以VB.NET處理對(duì)話(huà)框就必須借助"外力"，而這種"外力"就是.Net框架提供給所有開(kāi)發(fā).Net平臺(tái)應(yīng)用程序的一個(gè)公用的類(lèi)庫(kù)--.Net FrameWork SDK。在.Net FrameWork SDK中的命名空間System.Windows.Forms中定義了六個(gè)類(lèi)：OpenFileDialog類(lèi)、SaveFileDialog類(lèi)、FontDialog類(lèi)、ColorDialog類(lèi)、PRintPreviewDialog類(lèi)和PrintDialog類(lèi)。VB.NET就是使用上述六個(gè)類(lèi)來(lái)處理與對(duì)話(huà)框相關(guān)的操作的。其中VB.NET利用OpenFileDialog類(lèi)來(lái)處理與文件選擇對(duì)話(huà)框相關(guān)操作；利用SaveFileDialog類(lèi)處理和文件保存對(duì)話(huà)框相關(guān)操作；利用FontDialog類(lèi)處理和字體選擇對(duì)話(huà)框相關(guān)操作；利用ColorDialog類(lèi)處理和顏色選擇對(duì)話(huà)框相關(guān)操作；利用PrintPreviewDialog類(lèi)處理和打印預(yù)覽對(duì)話(huà)框相關(guān)操作和利用PrintDialog類(lèi)處理和打印機(jī)設(shè)置對(duì)話(huà)框相關(guān)操作。
　　
　　VB.NET在使用上述六種類(lèi)來(lái)處理Windows系統(tǒng)常見(jiàn)的六種對(duì)話(huà)框時(shí)，其主要的步驟如下：
　　
　　1. 實(shí)例化上述類(lèi)，即：創(chuàng)建上述類(lèi)的實(shí)例。
　　
　　2. 初始化創(chuàng)建的實(shí)例，并顯示。
　　
　　3. 處理對(duì)話(huà)框返回的數(shù)據(jù)。
　　
　　下面首先來(lái)介紹這六個(gè)類(lèi)的組成結(jié)構(gòu)。這六個(gè)類(lèi)在結(jié)構(gòu)上有相似之處，表現(xiàn)在某些類(lèi)有很多名稱(chēng)、作用相同的組成成員。另外這六個(gè)類(lèi)的方法結(jié)構(gòu)都比較簡(jiǎn)單，其中最為重要的方法是"ShowDialog"，其作用是都是顯示對(duì)話(huà)框。下面主要介紹六個(gè)類(lèi)的屬性。
　　
　　一．文件選擇對(duì)話(huà)框：
　　在VB.NET中創(chuàng)建的文件選擇對(duì)話(huà)框其實(shí)就是OpenFileDialog類(lèi)的實(shí)例。通過(guò)對(duì)設(shè)定
　　OpenFileDialog類(lèi)的屬性來(lái)定制文件選擇對(duì)話(huà)框的式樣和功能。OpenFileDialog類(lèi)的主要屬性如表01：
　　　實(shí)戰(zhàn)Visual Basic.Net對(duì)話(huà)框（圖一）

實(shí)戰(zhàn)Visual Basic.Net對(duì)話(huà)框（圖一）

　　VB.NET通過(guò)調(diào)用OpenFileDialog類(lèi)實(shí)例的ShowDialog方法顯示創(chuàng)建的實(shí)例，這樣一個(gè)文件選擇對(duì)話(huà)框就顯示出來(lái)了。
　　
　　下列代碼的作用在VB.NET中通過(guò)創(chuàng)建一個(gè)OpenFileDialog實(shí)例，并設(shè)定此實(shí)例的各個(gè)屬性值，來(lái)定制一個(gè)可以選擇多個(gè)文件的文件選擇對(duì)話(huà)框，并且把使用此對(duì)話(huà)框選擇的多個(gè)文件名稱(chēng)通過(guò)提示框顯示出來(lái)。請(qǐng)各位讀者注重具體的實(shí)現(xiàn)方法：
　　
　　Dim strFileName ( ) As String
　　'定義一個(gè)字符串?dāng)?shù)組
　　Dim OpenFileDialog1 As System.Windows.Forms.OpenFileDialog = New System.Windows.Forms.OpenFileDialog ( )
　　'創(chuàng)建一個(gè)OpenFileDialog實(shí)例
　　With OpenFileDialog1
　　.Filter = "Text files (*.txt)*.txtAll files (*.*)*.*"
　　'設(shè)定文件類(lèi)型過(guò)濾條件為：文本類(lèi)型和全部文件
　　.FilterIndex = 1
　　'設(shè)定打開(kāi)文件對(duì)話(huà)框缺省的文件過(guò)濾條件
　　.InitialDirectory = "C:/"
　　'設(shè)定打開(kāi)文件對(duì)話(huà)框缺省的目錄
　　.Title = "打開(kāi)文件"
　　'設(shè)定打開(kāi)文件對(duì)話(huà)框的標(biāo)題
　　.Multiselect = True
　　'設(shè)定可以選擇多個(gè)文件
　　.ReadOnlyChecked = False
　　'設(shè)定選中"只讀"復(fù)選框
　　.ShowReadOnly = True
　　'設(shè)定顯示"只讀"復(fù)選框
　　End With
　　'設(shè)定打開(kāi)文件對(duì)話(huà)框的式樣和功能
　　If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
　　' 顯示打開(kāi)文件對(duì)話(huà)框，并判定單擊對(duì)話(huà)框中的"確定"按鈕
　　strFileName = OpenFileDialog1.FileNames
　　Dim s As String
　　Dim i As Integer
　　For 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ì)話(huà)框的模樣：
　　　實(shí)戰(zhàn)Visual Basic.Net對(duì)話(huà)框（圖二）

實(shí)戰(zhàn)Visual Basic.Net對(duì)話(huà)框（圖二）

　　圖01：打開(kāi)文件對(duì)話(huà)框
　　
　　圖02是上述程序中以提示框顯示經(jīng)過(guò)圖01中所示的文件選擇對(duì)話(huà)框選擇的數(shù)據(jù)，即選擇的多個(gè)文件名稱(chēng)：
　　　實(shí)戰(zhàn)Visual Basic.Net對(duì)話(huà)框（圖三）

實(shí)戰(zhàn)Visual Basic.Net對(duì)話(huà)框（圖三）

　　圖02：對(duì)圖01中選擇的數(shù)據(jù)處理后的界面
　　
　　二．文件保存對(duì)話(huà)框：
　　VB.NET中創(chuàng)建文件保存對(duì)話(huà)框是使用SaveFileDialog類(lèi)，SaveFileDialog類(lèi)的結(jié)構(gòu)OpenFileDialog類(lèi)的結(jié)構(gòu)非常相似。表02是SaveFileDialog類(lèi)的主要屬性及其說(shuō)明
　　　實(shí)戰(zhàn)Visual Basic.Net對(duì)話(huà)框（圖四）

實(shí)戰(zhàn)Visual Basic.Net對(duì)話(huà)框（圖四）

　　
　　三．字體選擇對(duì)話(huà)框：
　　VB.NET中創(chuàng)建字體選擇對(duì)話(huà)框是通過(guò)FontDialog類(lèi)，F(xiàn)ontDialog類(lèi)結(jié)構(gòu)也不復(fù)雜，和上面介紹的二個(gè)類(lèi)也有很多相似之處，具體如表03所示：
　　　實(shí)戰(zhàn)Visual Basic.Net對(duì)話(huà)框（圖五）

實(shí)戰(zhàn)Visual Basic.Net對(duì)話(huà)框（圖五）

　　
　　四．顏色選擇對(duì)話(huà)框：
　　VB.NET中創(chuàng)建顏色選擇對(duì)話(huà)框是通過(guò)ColorDialog類(lèi)，ColorDialog類(lèi)結(jié)構(gòu)最為簡(jiǎn)單，具體如表04所示：
　　
　　　實(shí)戰(zhàn)Visual Basic.Net對(duì)話(huà)框（圖六）

實(shí)戰(zhàn)Visual Basic.Net對(duì)話(huà)框（圖六）

　　
　　五．打印機(jī)設(shè)置對(duì)話(huà)框：
　　VB.NET中創(chuàng)建打印機(jī)設(shè)置對(duì)話(huà)框是通過(guò)PrintDialog類(lèi)，表05是PrintDialog類(lèi)的常用屬性及其說(shuō)明：
　　　實(shí)戰(zhàn)Visual Basic.Net對(duì)話(huà)框（圖七）

實(shí)戰(zhàn)Visual Basic.Net對(duì)話(huà)框（圖七）

　　
　　六．打印預(yù)覽對(duì)話(huà)框：
　　VB.NET中創(chuàng)建打印機(jī)預(yù)覽對(duì)話(huà)框是通過(guò)PrintPreviewDialog類(lèi)，打印機(jī)預(yù)覽對(duì)話(huà)框其實(shí)也可以看成是一個(gè)窗體，因?yàn)樗鼡碛凶鰹橐粋€(gè)窗體所擁有的所有屬性，所以PrintPreviewDialog類(lèi)是本文介紹的所有類(lèi)中最為復(fù)雜的一個(gè)。表06是和打印預(yù)覽對(duì)話(huà)框最為相關(guān)的屬性及其說(shuō)明：
　　　實(shí)戰(zhàn)Visual Basic.Net對(duì)話(huà)框（圖八）

實(shí)戰(zhàn)Visual Basic.Net對(duì)話(huà)框（圖八）

　　下列代碼在VB.NET中定制一個(gè)打印預(yù)覽對(duì)話(huà)框：
　　
　　Dim PrintDocument1 As System.Drawing.Printing.PrintDocument = New System.Drawing.Printing.PrintDocument ( )
　　'創(chuàng)建一個(gè)打印文檔
　　Dim PrintPreviewDialog1 As PrintPreviewDialog = New PrintPreviewDialog ( )
　　With PrintPreviewDialog1
　　.MaximizeBox = False
　　.Text = "打印預(yù)覽窗口"
　　End With
　　'設(shè)定打印預(yù)覽窗口的屬性
　　PrintPreviewDialog1.Document = PrintDocument1
　　PrintPreviewDialog1.ShowDialog ( )
　　
　　圖03是上述代碼定制的打印預(yù)覽對(duì)話(huà)框的模樣：
　　　實(shí)戰(zhàn)Visual Basic.Net對(duì)話(huà)框（圖九）

實(shí)戰(zhàn)Visual Basic.Net對(duì)話(huà)框（圖九）

　　圖03：定制的打印預(yù)覽對(duì)話(huà)框
　　
　　七．具體的使用方法：
　　至此已經(jīng)介紹了這六個(gè)類(lèi)的組成結(jié)構(gòu)和大致的用法，下面就通過(guò)編寫(xiě)一個(gè)完成的示例來(lái)更深入的把握這些類(lèi)的使用方法。在下面介紹的示例中，將使用到前面介紹的四個(gè)類(lèi)，這個(gè)示例的功能是通過(guò)文件選擇對(duì)話(huà)框打開(kāi)文本文件，并通過(guò)文本框來(lái)顯示文本文件的內(nèi)容，使用字體對(duì)話(huà)框來(lái)設(shè)定文本框中的字體和前景色，使用顏色對(duì)話(huà)框來(lái)設(shè)定文本對(duì)話(huà)框的背景色。最后使用文件保存對(duì)話(huà)框把修改的文本框中的文字另存為一個(gè)文本文件。通過(guò)對(duì)這個(gè)示例，我們將更深入的把握Visual Basic .Net中對(duì)話(huà)框的使用方法，以下是此示例的具體實(shí)現(xiàn)步驟：
　　
　　1. 啟動(dòng)Visual Studio .Net。
　　
　　2. 選擇菜單【文件】【新建】【項(xiàng)目】后，彈出【新建項(xiàng)目】對(duì)話(huà)框。
　　
　　3. 將【項(xiàng)目類(lèi)型】設(shè)置為【Visual Basic項(xiàng)目】。
　　
　　4. 將【模板】設(shè)置為【W(wǎng)indows應(yīng)用程序】。
　　
　　5. 在【名稱(chēng)】文本框中輸入【全面把握對(duì)話(huà)框】。
　　
　　6. 在【位置】的文本框中輸入【E:/VS.NET項(xiàng)目】，然后單擊【確定】按鈕，這樣在"E:/VS.NET項(xiàng)目"目錄中就產(chǎn)生了名稱(chēng)為"全面把握對(duì)話(huà)框"的文件夾，里面存放的是創(chuàng)建的"全面把握對(duì)話(huà)框"的項(xiàng)目文件。
　　
　　7. 把Visual Studio .Net的當(dāng)前窗口切換到【Form1.vb（設(shè)計(jì)）】窗口，并從【工具箱】中的【W(wǎng)indows窗體組件】選項(xiàng)卡中按照如下順序往Form1窗體中拖入下列組件：
　　
　　一個(gè)TextBox組件，名稱(chēng)為T(mén)extBox1，用以顯示、編輯文本文件。
　　四個(gè)Button組件，名稱(chēng)分別為Button1、Button2、Button3和Button4。程序中通過(guò)其Click事件分別實(shí)現(xiàn)設(shè)定文本框的字體、顏色和讀取、保存文本等操作。
　　一個(gè)SaveFileDialog組件，名稱(chēng)為SaveFileDialog1，用以創(chuàng)建文件保存對(duì)話(huà)框。
　　一個(gè)OpenFileDialog組件，名稱(chēng)為OpenFileDialog1，用以創(chuàng)建文件打開(kāi)對(duì)話(huà)框。
　　一個(gè)FontDialog組件，名稱(chēng)為FontDialog1，用以創(chuàng)建字體對(duì)話(huà)框。
　　一個(gè)ColorDialog組件，名稱(chēng)為ColorDialog，用以創(chuàng)建顏色對(duì)話(huà)框。
　　8. 在上述組件拖入窗體后，分別按照表07所示設(shè)定各組件的屬性
　　　實(shí)戰(zhàn)Visual Basic.Net對(duì)話(huà)框（圖十）