实战Visual Basic.Net对话框

对话框和前文介绍的提示框一样，是Widows系统中的一种用来和使用者实现交互的特殊窗口。在Windows系统中，常见的对话框，根据使用方式和性质一般分成以下六种类型：文件打开对话框、文件保存对话框、字体选择对话框、颜色选择对话框和打印机设置对话框和文件打印预览对话框。至于这六个对话框的在Windows系统的表现形式和所起的具体作用，我想各位一定都很清楚了，这里也就不一一介绍了。下面就进入本节的主要内容，在Visual Basic .NET中制作这六种对话框和处理这些对话框的注意事项和技巧。

　　首先要明确的是Visual Basic .NET语言本身并没有提供处理对话框的功能（这一点不像上一节中所讲的提示框），所以VB.NET处理对话框就必须借助"外力"，而这种"外力"就是.Net框架提供给所有开发.Net平台应用程序的一个公用的类库--.Net FrameWork SDK。在.Net FrameWork SDK中的命名空间System.Windows.Forms中定义了六个类：OpenFileDialog类、SaveFileDialog类、FontDialog类、ColorDialog类、PrintPreviewDialog类和PrintDialog类。VB.NET就是使用上述六个类来处理与对话框相关的操作的。其中VB.NET利用OpenFileDialog类来处理与文件选择对话框相关操作；利用SaveFileDialog类处理和文件保存对话框相关操作；利用FontDialog类处理和字体选择对话框相关操作；利用ColorDialog类处理和颜色选择对话框相关操作；利用PrintPreviewDialog类处理和打印预览对话框相关操作和利用PrintDialog类处理和打印机设置对话框相关操作。

　　VB.NET在使用上述六种类来处理Windows系统常见的六种对话框时，其主要的步骤如下：

　　1. 实例化上述类，即：创建上述类的实例。

　　2. 初始化创建的实例，并显示。

　　3. 处理对话框返回的数据。

　　下面首先来介绍这六个类的组成结构。这六个类在结构上有相似之处，表现在某些类有很多名称、作用相同的组成成员。另外这六个类的方法结构都比较简单，其中最为重要的方法是"ShowDialog"，其作用是都是显示对话框。下面主要介绍六个类的属性。

　　一．文件选择对话框：

　　在VB.NET中创建的文件选择对话框其实就是OpenFileDialog类的实例。通过对设定
OpenFileDialog类的属性来定制文件选择对话框的式样和功能。OpenFileDialog类的主要属性如表01：

属性	说明
AddExtension	该值指示如果用户省略扩展名对话框是否自动在文件名中添加扩展名。
CheckFileExists	该值指示如果用户指定不存在的文件名对话框是否显示警告。
CheckPathExists	该值指示如果用户指定不存在的路径对话框是否显示警告。
DefaultExt	获取或设置默认文件扩展名。
DereferenceLinks	该值指示对话框是否返回快捷方式引用的文件的位置或者是否返回快捷方式
FileName	字符串，获取或设置一个包含在文件对话框中选定的文件名的字符串。
FileNames	字符串数组，获取对话框中所有选定文件的文件名。
Filter	字符串，获取或设置当前文件名筛选器字符串该字符串决定对话框的"另存为文件类型"或"文件类型"框中出现的选择内容。
FilterIndex	整型，获取或设置文件对话框中当前选定筛选器的索引。
InitialDirectory	字符串，获取或设置文件对话框显示的初始目录。
Multiselect	布尔型，该值指示对话框是否允许选择多个文件。
ReadOnlyChecked	布尔型，该值指示是否选定只读复选框。
RestoreDirectory	布尔型该值指示对话框在关闭前是否还原当前目录。
ShowHelp	布尔型，该值指示文件对话框中是否显示"帮助"按钮。
ShowReadOnly	布尔型，该值指示对话是否包含只读复选框。
Title	字符串，获取或设置文件对话框标题。

表01：OpenFileDialog类的主要属性及其说明

　　VB.NET通过调用OpenFileDialog类实例的ShowDialog方法显示创建的实例，这样一个文件选择对话框就显示出来了。

　　下列代码的作用在VB.NET中通过创建一个OpenFileDialog实例，并设定此实例的各个属性值，来定制一个可以选择多个文件的文件选择对话框，并且把使用此对话框选择的多个文件名称通过提示框显示出来。请各位读者注意具体的实现方法：

Dim strFileName ( ) As String '定义一个字符串数组 Dim OpenFileDialog1 As System.Windows.Forms.OpenFileDialog = New System.Windows.Forms.OpenFileDialog ( ) '创建一个OpenFileDialog实例 With OpenFileDialog1 　.Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*" 　'设定文件类型过滤条件为：文本类型和全部文件 　.FilterIndex = 1 　'设定打开文件对话框缺省的文件过滤条件 　.InitialDirectory = "C:\" 　'设定打开文件对话框缺省的目录 　.Title = "打开文件" 　'设定打开文件对话框的标题 　.Multiselect = True 　'设定可以选择多个文件 　.ReadOnlyChecked = False 　'设定选中"只读"复选框 　.ShowReadOnly = True 　'设定显示"只读"复选框 End With '设定打开文件对话框的式样和功能 If OpenFileDialog1.ShowDialog() = DialogResult.OK Then 　' 显示打开文件对话框，并判断单击对话框中的"确定"按钮 　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 　'处理打开文件选择框选择的文件 　MessageBox.Show( s , "选择的文件名列表") End If

图01是上述代码定制的打开文件对话框的模样：


图01：打开文件对话框

　　图02是上述程序中以提示框显示经过图01中所示的文件选择对话框选择的数据，即选择的多个文件名称：


图02：对图01中选择的数据处理后的界面