基于VB.NET的辐射报警仪上位机管理软件设计(13)
vb.net中的 FolderBrowserDialog 组件是一个标准的预设对话框。
用户可以通过它浏览并选择文件夹，也可以先创建然后再选择这个新建的文件夹，文件夹的浏览通过控件来完成。我们在需要让用户只选择文件夹而不是具体的文件的时候，就可以使用 FolderBrowserDialog 组件了。
(1) FolderBrowserDialog 组件的常用属性
1)Description 属性：用于设置对话框中在树视图控件上显示的说明文本，该属性默认为空，我们可以使用它为用户指定附加的说明等信息，如下使用：
FolderBrowserDialog1.Description="Description 属性的说明文本"。
2)RootFolder 属性：置从其开始浏览的根文件夹，默认为 Desktop。只有指定的文件夹及其所有子文件夹将出现在对话框中，并可被选定。
3)ShowNewFolderButton 属性：指示是否在对话框中显示“新建文件夹”的按钮，默认为True。
4)SelectedPath 属性：返回用户选择的路径。只要 SelectedPath 是绝对路径并且是 RootFolder 的子文件夹的，SelectedPath 属性与 RootFolder 就能确定对话框显示时选定的文件夹。
(2) 显示对话框
我们通过 ShowDialog 方法来为用户显示对话框，如果 ShowDialog 返回 DialogResult.OK，表明用户单击了 OK 按钮，则 SelectedPath 属性将返回包含选定的文件夹路径的字符串。如果 ShowDialog 返回 DialogResult.Cancel，表明用户退出了对话框，则此属性的值与它在显示对话框前的值相同。如果用户选择一个没有物理路径的文件夹（例如 My Computer），则对话框上的 OK 按钮将被禁用。
本程序中用了If...Then...End If语句，当为用户显示的选择文件夹的预设置对话框被用户点击了确定按钮后，便调用FolderBrowserDialog组件的SelectedPath 属性，返回用户选择的路径，并赋值给字符串变量SavePath。
实现文件保存的程序如下:
Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
SavePath = FolderBrowserDialog1.SelectedPath
End If
End Sub
保存文件的调试界面如下:
图4.1文件保存界面
4.1.2 文件的读取
将OpenFileDialog组建放在窗体中就可以使用类创建打开文件的通用对话框，其出现的界面和Windows的界面是一致的。使用对话框的目的是为了能够取得用户所输入的文件名(包括实际的路径)，文件名的过滤也是常用的属性，这些都可以通过对话框的属性设置达到；至于打开对话框只要简单地使用ShowDialog方法就可以。
本程序中，调用了OpenFileDialog的InitialDirectory方法，将文件保存的路径SavePath赋值给对话框的初始目录。然后再调用OpenFileDialog的Filter方法，这个方法是实现在对话框中显示的文件筛选器，然后将"txt files (*.txt)|*.txt|All files (*.*)|*.*"赋值给它。接着调用了OpenFileDialog的FilterIndex方法，实现在对话框中选择的文件筛选器的索引。然后控制对话框在关闭之前是否恢复当前目录。当为用户显示的对话框被用户点击了确定按钮后，则可以运行文件读取的进一步程序。
以下是文件读取的相关程序：
OpenFileDialog1.InitialDirectory = SavePath
OpenFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
OpenFileDialog1.FilterIndex = 1
OpenFileDialog1.RestoreDirectory = True