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


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

 

本文作者:
« 
» 
快速导航

Copyright © 2016 phpStudy | 豫ICP备2021030365号-3