第 8章 通用对话框与文件操作
2009-11-10
通用对话框
CommonDialog控件提供诸如打开和保存文
件、设置打印选项、选择颜色和字体等操作的
一组标准对话框。运行 Windows帮助引擎时，
控件还能够显示帮助。
第 8章 通用对话框与文件操作
2009-11-10
通用对话框
ommonDialog控件可以显示如下常用对话框：
l 打开
l 另存为
l 颜色
l 字体
l 打印
第 8章 通用对话框与文件操作
2009-11-10
通用对话框添加到工具箱
(1) 右单击工具箱空白位置, 选择弹出菜单中的, 部件
” 命令, 弹出, 部件, 对话框；
( 2) 在对话框的, 控件, 列表框中选择, MicorSoft
Common Dialog Control6.0”选项 (使该选项前的复选框
中出现对钩 )；
(3) 单击, 确定, 按钮 。
通用对话框在工具箱中的图标是,
第 8章 通用对话框与文件操作
2009-11-10
CommonDialog控件的方法
方法显示的对话框
ShowOpen 打开
ShowSave 另存为
ShowColor 颜色
ShowFont 字体
ShowPrinter 打印
ShowHelp 调用 Windows“帮助,
第 8章 通用对话框与文件操作
2009-11-10
显示, 打开, 和, 另存为, 对话
框
有了, 打开, 对话框就可指定驱动器,
目录, 文件扩展名和文件名 。
,另存为, 对话框在外观上与, 打开,
对话框相同，只是对话框的标题和文件
名是暗淡的。运行时选定文件并关闭对
话框后，可用 FileName属性获取选定的
文件名。
第 8章 通用对话框与文件操作
2009-11-10
Private Sub mnuFileOpen_Click ()
'CancelError 为 True
On Error GoTo ErrHandler
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files
(*.txt)|*.txt|Batch Files (*.bat)|*.bat,'设置过滤器
CommonDialog1.FilterIndex = 2 '指定默认过滤器
CommonDialog1.ShowOpen '显示, 打开, 对话框
OpenFile (CommonDialog1.FileName) '调用打开文件的过程
Exit Sub
ErrHandler:
'用户单击, 取消, 按钮
Exit Sub
End Sub
第 8章 通用对话框与文件操作
2009-11-10
使用, 颜色, 对话框
可用, 颜色, 对话框在调色板中选择颜
色，或者创建并选定自定义颜色,
第 8章 通用对话框与文件操作
2009-11-10
Private Sub Command1_Click ()
'将 Cancel设置成 True
CommonDialog1.CancelError = TrueOn Error
GoTo ErrHandler
'设置 Flags属性
CommonDialog1.Flags = cdlCCRGBInit
'显示, 颜色, 对话框
CommonDialog1.ShowColor
'将窗体的背景颜色设置成选定的颜色
Form1.BackColor = CommonDialog1.Color
Exit Sub
ErrHandler:
'用户单击了, 取消, 按钮
Exit Sub
End Sub
第 8章 通用对话框与文件操作
2009-11-10
使用, 字体, 对话框
Color 选定的颜色。为使用此属性，必须
先将 Flags属性设置为 cdlCFEffects
FontBold 是否选定, 粗体,
FontItalic 是否选定, 斜体,
FontStrikethru 是否选定删除线
FontUnderline 是否选定下划线
FontName 选定的字体名称
FontSize 选定的字体大小
第 8章 通用对话框与文件操作
2009-11-10
（ 2）用 ShowFont方法显示对话框
Private Sub Command1_Click ()
'显示, 字体, 对话框
CommonDialog1.ShowFont
Text1.Font.Name = CommonDialog1.FontName
Text1.Font.Size = CommonDialog1.FontSize
Text1.Font.Bold = CommonDialog1.FontBold
Text1.Font.Italic = CommonDialog1.FontItalic
Text1.Font.Underline = CommonDialog1.FontUnderline
Text1.FontStrikethru = CommonDialog1.FontStrikethru
Text1.ForeColor = CommonDialog1.Color
Exit Sub
'用户单击了, 取消, 按钮
Exit Sub
End Sub
第 8章 通用对话框与文件操作
2009-11-10
文件操作
文件处理都是通过使用 Open语句以及其
他一些相关的语句和函数来实现的。
l 顺序型：适用于读写连续块中的
文本文件 。
l 随机型：适用于读写有固定长度
记录结构的文本文件或者二进制文件 。
l 二进制型：适用于读写有任意结
构的文件 。
第 8章 通用对话框与文件操作
2009-11-10
文件操作
三种文件的基本操作均分为三阶段：
1,打开文件 。
2,读（磁盘 → 内存） /写（内存 → 磁盘）文件 。
3,关闭文件 。
第 8章 通用对话框与文件操作
2009-11-10
文件操作
打开文件主要功能,
１．为文件在内存建立输入 /输出缓冲区。
２．建立文件号与磁盘文件的链接。
注意, 在使用任何文件之前，都必须先用 Open 语句
第 8章 通用对话框与文件操作
2009-11-10
文件操作
关闭文件 Close
Close 的任务,
１,文件缓冲区中的剩余信息全部写入磁盘。
２,释放该文件缓冲区所占用的内存。
３,释放该文件号，断开与磁盘文件的链接。
第 8章 通用对话框与文件操作
2009-11-10
顺序文件
要检索文本文件的内容，应以顺序
Input方式打开该文件。然后使用
LineInput#,Input(),或者 Input#语句将
文件拷贝到程序变量中。
第 8章 通用对话框与文件操作
2009-11-10
例 8.1 顺序文件应用示例 。
设计一个窗体演示顺序文件的保存和读
取过程。
第 8章 通用对话框与文件操作
2009-11-10
随机文件
随机型访问文件中的字节构成相同的一些记
录，每个记录包含一个或多个字段。具有一
个字段的记录对应于任一标准类型，比如整
数或者定长字符串。
Type Worker
LastNameAs String * 10
TitleAs String * 7
RankAs String * 2
End Type
第 8章 通用对话框与文件操作
2009-11-10
例 8.2 随机文件应用示例 。
用一个文件存储学生的学号、姓名、年
龄。设计一个窗体演示对文件中记录的
增加和删除读取操作。
第 8章 通用对话框与文件操作
2009-11-10
其他有关文件的操作
驱动器列表框、目录列表框和文件列表框
第 8章 通用对话框与文件操作
2009-11-10
例 8.3 文件系统控件示例。
设计一个窗体说明文件系统控件的基本
应用方法。
第 8章 通用对话框与文件操作
2009-11-10
Shell函数
例 8.4 Shell函数应用示例 。
设计一个窗体，用 Shell函数调用应用程
序。
第 8章 通用对话框与文件操作
2009-11-10
综合举例
例 8.5 简单的文本编辑器 。
设计一个简单的文本编辑器，使其具
有新建、保存、打开文本文件的功能。