vb.net入门——SaveFileDialog 组件的使用

作者：佚名    教程来源：不详    点击数：加载中...    更新时间：2008-4-30 字体:[大 中 小]

SaveFileDialog 组件也是.net预设的有模式对话框之一，显示的是系统的“另存为”对话框，如下图一所示。我们可以通过它来快速开发一个能让用户马上熟悉和方便使用的Windows应用程序界面。

在vb.net的工具箱中，SaveFileDialog 组件图下图一所示：

SaveFileDialog 组件的大部分属性与OpenFileDialog 组件使用时一样的(相关文章参看：vb.net入门——OpenFileDialog 组件的使用)。

当我们需要让用户弹出“另存为”对话框时，目录就指向一个指定的位置，我们用下面的代码来实现：

SaveFileDialog1.InitialDirectory = "C:\"

指定对话框打开的初始位置为盘符C：

设置对话框的文件过滤器，各个文件类型之间以“|”分隔，如下代码所示：

SaveFileDialog1.Filter = "txt files|*.txt|All files|*.*"

我们还可以自定义对话框的标题，默认是“另存为”，以下代码可以实现我们自定义的标题：

SaveFileDialog1.Title = "保存文字"

和OpenFileDialog 组件一样，我们是使用它的 ShowDialog 方法来给用户显示对话框的，OpenFile 方法将会以打开可读/写的权限打开用户选定的文件。

示例，如下代码所示，我们使用OpenFile方法打开一个Stream，然后就可以使用它对数据进行存取。

Dim myStream As System.IO.Stream

SaveFileDialog1.InitialDirectory = "C:\"

saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"

saveFileDialog1.FilterIndex = 2

SaveFileDialog1.RestoreDirectory = True

SaveFileDialog1.Title = "保存"

If saveFileDialog1.ShowDialog() = DialogResult.OK Then

myStream = SaveFileDialog1.OpenFile()

If Not (myStream Is Nothing) Then

'在这里添加写入文件的代码

myStream.Close()

End If

End If