- VB.Net 基础教程
- VB.Net - 首页
- VB.Net - 概述
- VB.Net - 环境设置
- VB.Net - 程序结构
- VB.Net - 基本语法
- VB.Net - 数据类型
- VB.Net - 变量
- VB.Net - 常量
- VB.Net - 修饰符
- VB.Net - 语句
- VB.Net - 指令
- VB.Net - 运算符
- VB.Net - 决策制定
- VB.Net - 循环
- VB.Net - 字符串
- VB.Net - 日期和时间
- VB.Net - 数组
- VB.Net - 集合
- VB.Net - 函数
- VB.Net - 子程序
- VB.Net - 类和对象
- VB.Net - 异常处理
- VB.Net - 文件处理
- VB.Net - 基本控件
- VB.Net - 对话框
- VB.Net - 高级窗体
- VB.Net - 事件处理
- VB.Net 高级教程
- VB.Net - 正则表达式
- VB.Net - 数据库访问
- VB.Net - Excel 表格
- VB.Net - 发送电子邮件
- VB.Net - XML 处理
- VB.Net - Web 编程
- VB.Net 有用资源
- VB.Net - 快速指南
- VB.Net - 有用资源
- VB.Net - 讨论
VB.Net - SaveFileDialog 控件
SaveFileDialog 控件提示用户选择保存文件的位置,并允许用户指定要保存数据的文件名。SaveFileDialog 控件类继承自抽象类 FileDialog。
以下是“保存文件”对话框:
SaveFileDialog 控件的属性
以下是 SaveFileDialog 控件的一些常用属性:
序号 | 属性和说明 |
---|---|
1 | AddExtension 获取或设置一个值,该值指示如果用户省略扩展名,对话框是否自动向文件名添加扩展名。 |
2 | CheckFileExists 获取或设置一个值,该值指示如果用户指定的文件名不存在,对话框是否显示警告。 |
3 | CheckPathExists 获取或设置一个值,该值指示如果用户指定的路径不存在,对话框是否显示警告。 |
4 | CreatePrompt 获取或设置一个值,该值指示如果用户指定的文件不存在,对话框是否提示用户是否允许创建文件。 |
5 | DefaultExt 获取或设置默认文件名扩展名。 |
6 | DereferenceLinks 获取或设置一个值,该值指示对话框是否返回快捷方式引用的文件的位置,或者它是否返回快捷方式(.lnk)的位置。 |
7 | FileName 获取或设置一个包含在文件对话框中选择的文件名的字符串。 |
8 | FileNames 获取对话框中所有选定文件的名称。 |
9 | Filter 获取或设置当前文件名筛选器字符串,该字符串确定对话框中“保存为文件类型”或“文件类型”框中显示的选择项。 |
10 | FilterIndex 获取或设置当前在文件对话框中选择的文件筛选器的索引。 |
11 | InitialDirectory 获取或设置文件对话框显示的初始目录。 |
12 | OverwritePrompt 获取或设置一个值,该值指示如果用户指定的文件名已存在,“另存为”对话框是否显示警告。 |
13 | RestoreDirectory 获取或设置一个值,该值指示对话框是否在关闭之前还原当前目录。 |
14 | ShowHelp 获取或设置一个值,该值指示文件对话框中是否显示“帮助”按钮。 |
15 | SupportMultiDottedExtensions 获取或设置对话框是否支持显示和保存具有多个文件名扩展名的文件。 |
16 | Title 获取或设置文件对话框标题。 |
17 | ValidateNames 获取或设置一个值,该值指示对话框是否仅接受有效的 Win32 文件名。 |
SaveFileDialog 控件的方法
以下是 SaveFileDialog 控件的一些常用方法:
序号 | 方法名称和说明 |
---|---|
1 |
OpenFile 以读/写权限打开文件。 |
2 |
Reset 将所有对话框选项重置为其默认值。 |
示例
在此示例中,让我们使用“保存文件”对话框保存用户在富文本框中输入的文本。请按照以下步骤操作:
将标签控件、RichTextBox 控件、按钮控件和 SaveFileDialog 控件拖放到窗体上。
将标签和按钮控件的 Text 属性分别设置为“感谢您的评论”和“保存评论”。
双击“保存评论”按钮,并修改 Click 事件的代码,如所示:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click SaveFileDialog1.Filter = "TXT Files (*.txt*)|*.txt" If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK _ Then My.Computer.FileSystem.WriteAllText _ (SaveFileDialog1.FileName, RichTextBox1.Text, True) End If End Sub
当应用程序使用 Microsoft Visual Studio 工具栏中的“启动”按钮编译并运行时,它将显示以下窗口:
我们已将 SaveFileDialog 控件的 Filter 属性设置为仅显示扩展名为 .txt 的文本文件类型。
在文本框中输入一些文本,然后单击“保存评论”按钮,将文本作为文本文件保存到您的计算机中。