实战Visual Basic Net对话框.doc

实战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.FileNamesDim s As StringDim i As IntegerFor i = 0 To strFileName.Length - 1s = s + strFileName( i ) + Chr( 10 ) + Chr( 13 )Next处理打开文件选择框选择的文件MessageBox.Show( s , 选择的文件名列表)End If图01是上述代码定制的打开文件对话框的模样：图01：打开文件对话框图02是上述程序中以提示框显示经过图01中所示的文件选择对话框选择的数据，即选择的多个文件名称：图02：对图01中选择的数据处理后的界面二文件保存对话框：VB.NET中创建文件保存对话框是使用SaveFileDialog类，SaveFileDialog类的结构OpenFileDialog类的结构非常相似。表02是SaveFileDialog类的主要属性及其说明：属性说明AddExtension该值指示如果用户省略扩展名，对话框是否自动在文件名中添加扩展名。CheckFileExists该值指示如果用户指定不存在的文件名，对话框是否显示警告。CheckPathExists该值指示如果用户指定不存在的路径，对话框是否显示警告。CreatePrompt该值指示如果用户指定不存在的文件，对话框是否提示用户允许创建该文件。DefaultExt获取或设置默认文件扩展名。DereferenceLinks该值指示对话框是否返回快捷方式引用的文件的位置，或者是否返回快捷方式FileName获取或设置一个包含在文件对话框中选定的文件名的字符串。FileNames获取对话框中所有选定文件的文件名。Filter获取或设置当前文件名筛选器字符串，该字符串决定对话框的另存为文件类型或文件类型框中出现的选择内容。FilterIndex获取或设置文件对话框中当前选定筛选器的索引。InitialDirectory获取或设置文件对话框显示的初始目录。OverwritePrompt该值指示如果用户指定已存在的文件名，另存为对话框是否显示警告。RestoreDirectory该值指示对话框在关闭前是否还原当前目录。ShowHelp该值指示文件对话框中是否显示帮助按钮。Title获取或设置文件对话框标题。表02：SaveFileDialog类的主要属性及其说明三字体选择对话框：VB.NET中创建字体选择对话框是通过FontDialog类，FontDialog类结构也不复杂，和上面介绍的二个类也有很多相似之处，具体如表03所示：属性说明AllowScriptChange指示用户能否更改AllowSimulations指示对话框是否允许图形设备接口AllowVectorFonts指示对话框是否允许选择矢量字体。AllowVerticalFonts指示对话框是既显示垂直字体又显示水平字体，还是只显示水平字体。Color获取或设置选定字体的颜色。FixedPitchOnly指示对话框是否只允许选择固定间距字体。Font获取或设置选定的字体。FontMustExist指示对话框是否指定当用户试图选择不存在的字体或样式时的错误条件。MaxSize获取或设置用户可选择的最大磅值。MinSize获取或设置用户可选择的最小磅值。ScriptsOnly示对话框是否允许为所有非指ShowApply指示对话框是否包含应用按钮。ShowColor指示对话框是否显示颜色选择。ShowEffects指示对话框是否包含允许用户指定删除线、下划线和文本颜色选项的控件。ShowHelp指示对话框是否显示帮助按钮。表02：FontDialog类的主要属性及其说明四颜色选择对话框：VB.NET中创建颜色选择对话框是通过ColorDialog类，ColorDialog类结构最为简单，具体如表04所示：属性说明AllowFullOpen指示用户是否可以使用该对话框定义自定义颜色。AnyColor指示对话框是否显示基本颜色集中可用的所有颜色。Color获取或设置用户选定的颜色。CustomColors获取或设置对话框中显示的自定义颜色集。FullOpen指示用于创建自定义颜色的控件在对话框打开时是否可见。ShowHelp指示在颜色对话框中是否显示帮助按钮。SolidColorOnly指示对话框是否限制用户只选择纯色。表04：ColorDialog类的常用属性及其说明五打印机设置对话框：VB.NET中创建打印机设置对话框是通过PrintDialog类，表05是PrintDialog类的常用属性及其说明：属性说明AllowPrintToFile指示是否启用打印到文件复选框。AllowSelection获取或设定一个值，指示是否启用了页码范围选项按钮。AllowSomePages指示是否启用页选项按钮。Document获取或设置一个值，指示用于获取PrinterSettings获取或设置该对话框要修改的PrintToFile指示打印到文件复选框是否选中。ShowHelp指示是否显示帮助按钮。ShowNetwork指示是否显示网络按钮。表05：PrintDialog类的常用属性及其说明六打印预览对话框： VB.NET中创建打印机预览对话框是通过PrintPreviewDialog类，打印机预览对话框其实也可以看成是一个窗体，因为它拥有做为一个窗 体所拥有的所有属性，所以PrintPreviewDialog类是本文介绍的所有类中最为复杂的一个。表06是和打印预览对话框最为相关的属性及其说 明：属性说明AcceptButton获取或设置当用户按DataBindings为该控件获取数据绑定。DialogResult获取或设置窗体的对话框结果。Document获取或设置要预览的文档。Enabled指示是否启用该控件。FormBorderStyle获取或设置窗体的边框样式。Height获取或设置控件的高度。HelpButton指示是否应在窗体的标题框中显示帮助按钮。Icon获取或设置窗体的图标。MaximizeBox指示是否在窗体的标题栏中显示最大化按钮。MaximumSize获取或设置窗体可调整到的最大大小。MinimizeBox指示是否在窗体的标题栏中显示最小化按钮。MinimumSize获取窗体可调整到的最小大小。Name获取或设置控件的名称。OwnedForms获取ShowInTaskbar指示是否在Size获取或设置窗体的大小。StartPosition获取或设置运行时窗体的起始位置。TabIndex获取或设置在控件的容器的控件的TopMost指示窗体是否应显示为应用程序的最顶层窗体。Visible指示该控件是否可见。Width获取或设置控件的宽度。WindowState获取或设置窗体的窗口状态。表05：PrintPreviewDialog类的常用属性及其说明下列代码在VB.NET中定制一个打印预览对话框：Dim PrintDocument1 As System.Drawing.Printing.PrintDocument = New System.Drawing.Printing.PrintDocument ( )创建一个打印文档Dim PrintPreviewDialog1 As PrintPreviewDialog = New PrintPreviewDialog ( )With PrintPreviewDialog1.MaximizeBox = False.Text = 打印预览窗口End With设定打印预览窗口的属性PrintPreviewDialog1.Document = PrintDocument1PrintPreviewDialog1.ShowDialog ( )图03是上述代码定制的打印预览对话框的模样：图03：定制的打印预览对话框七具体的使用方法：至此已经介绍了这六个类的组成结构和大致的用法，下面就通过编写一个完成的示例来更深入的掌握这 些类的使用方法。在下面介绍的示例中，将使用到前面介绍的四个类，这个示例的功能是通过文件选择对话框打开文本文件，并通过文本框来显示文本文件的内容， 使用字体对话框来设定文本框中的字体和前景色，使用颜色对话框来设定文本对话框的背景色。最后使用文件保存对话框把修改的文本框中的文字另存为一个文本文 件。通过对这个示例，我们将更深入的掌握Visual Basic .Net中对话框的使用方法，以下是此示例的具体实现步骤：1. 启动Visual Studio .Net。2. 选择菜单【文件】|【新建】|【项目】后，弹出【新建项目】对话框。3. 将【项目类型】设置为【Visual Basic项目】。4. 将【模板】设置为【Windows应用程序】。5. 在【名称】文本框中输入【全面掌握对话框】。6. 在【位置】的文本框中输入【E:VS.NET项目】，然后单击【确定】按钮，这样在E:VS.NET项目目录中就产生了名称为全面掌握对话框的文件夹，里面存放的是创建的全面掌握对话框的项目文件。7. 把Visual Studio .Net的当前窗口切换到【Form1.vb（设计）】窗口，并从【工具箱】中的【Windows窗体组件】选项卡中按照如下顺序往Form1窗体中拖入下列组件：一个TextBox组件，名称为TextBox1，用以显示、编辑文本文件。四个Button组件，名称分别为Button1、Button2、Button3和Button4。程序中通过其Click事件分别实现设定文本框的字体、颜色和读取、保存文本等操作。一个SaveFileDialog组件，名称为SaveFileDialog1，用以创建文件保存对话框。一个OpenFileDialog组件，名称为OpenFileDialog1，用以创建文件打开对话框。一个FontDialog组件，名称为FontDialog1，用以创建字体对话框。一个ColorDialog组件，名称为ColorDialog，用以创建颜色对话框。8. 在上述组件拖入窗体后，分别按照表07所示设定各组件的属性：组件类型组件名称属性设置结果FormForm1Text全面掌握对话框MaximizeBoxFalseFormBorderStyleFixedSingleButtonButton1Text打开FlatStyleFlatButtonButton2Text保存Button2FlatStyleFlatButtonButton3Text字体FlatStyleFlatButtonButton4Text颜色FlatStyleFlat表07：【全面掌握对话框】项目中各组件主要属性值并按照图04所示排列窗体中的各组件：图04：【全面掌握对话框】项目中各组件的排列顺序9. 把Visual Studio .Net的当前窗口切换到Form1.vb的代码编辑窗口，并在Form1.vb文件的头部添加下列代码，下列代码是导入Form1.vb中使用的类所在的命名空间：Imports System.IO10. 在Form1.vb文件中的InitializeComponent过程之后添加下列代码，下列代码是在Form1.vb中定义Button1Button4组件的Click事件：Private Sub Button1_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.ClickDim strFileName As String 设定打开文件对话框的属性With OpenFileDialog1.Filter = Text files ( *.txt )|*.txt.InitialDirectory = C:.Title = 打开文件对话框End With以下是打开文本文件，并通过文本框显示出来If OpenFileDialog1.ShowDialog ( ) = DialogResult.OK ThenstrFileName = OpenFileDialog1.FileNameDim objReader As StreamReader = New StreamReader ( strFileName , System.Text.Encoding.Default )TextBox1.Text = objReader.ReadToEnd ( )objReader.Close ( )objReader = NothingEnd IfEnd SubPrivate Sub Button2_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button2.ClickDim strFileName As String设定文件保存对话框的属性With SaveFileDialog1.DefaultExt = txt.FileName = strFileName.Filter = Text files ( *.txt )|*.txt.FilterIndex = 1.InitialDirectory = C:.OverwritePrompt = True.Title = 文件保存对话框End With以下是把文本框中的文字另保存为文本文件If SaveFileDialog1.ShowDialog ( ) = DialogResult.OK ThenstrFileName = SaveFileDialog1.FileNameDim objWriter As StreamWriter =New StreamWriter ( strFileName , False , System.Text.Encoding.Default )objWriter.Write ( TextBox