vb文件菜单通用对话框

例2
计算机软件技术基础 Visual Basic 程序设计
3.文件列表框(FileListBox)
① 功能：显示当前文件夹下的所有文件列表。 ② 属性：
★Path属性：设置文件列表框中显示的文件目录。 Path属性改变后，会触发它的PathChange事件。
★Pattern属性：设置或返回文件列表框中所显示 的文件类型 ,默认值为*.*。例如：
顺序文件的写入步骤：打开、写入、关闭； 读出步骤：打开、读出、关闭。
计算机软件技术基础 Visual Basic 程序设计
（1）打开文件
打开文件的命令是Open，格式为： Open “文件名” For 模式 As [#] 文件号
[Len=记录长度] 说明： 1）文件名:是字符串常量或字符串变量。 2）模式： OutPut：打开一个文件，对该文件进行写操作。 Input：打开一个文件，对该文件进行读操作。 Append：打开一个文件，在该文件尾追加记录。
命令按钮。为“打开”按钮
编写打开图形文件的代码，
图形显示在图像框中；为
“保存”按钮编写保存图形
文件的代码。为“颜色”按
钮编写改变文本框中字体颜
色的代码；为“字体”按钮
编写改变文本框中文字字体
的代码。界面设计如图所示。
例5
计算机软件技术基础 Visual Basic 程序设计
三、文件的读写操作
1. 文件的有关概念
通用对话框的类型不能在设计阶段设置，而只能在 程序运行时进行设置。如： 使用 Action 属性设置通用对话框为“选择颜色”：
CommonDialog1 .Action ＝ 3 使用方法设置通用对话框为“选择字体”：
CommonDialog1.ShowFont
计算机软件技术基础 Visual Basic 程序设计
Print #1, "Write输出:"
Write #1, str, num
'写入以逗号隔开的数据。
Close #1
Print “程序运行完毕，请在“第14章例子”中查看生成的文
件！" End Sub
例6
（3）读操作
在程序中，要使用现存文件中的数据，必 须先把它的内容读入到程序的变量中，然后操 作这些变量。
如：Dir1.Path=“c:\Windows” ③Change事件:在目录框发生变化时，会触发该事 件。
【例2】窗体中有1个驱动器列表框、1个目录列表框 和4个标签。程序运行时，将用户在驱动器列表框中 所选驱动器的所有目录显示在目录列表框中，并将 用户双击时所选中的目录显示在窗体下部的标签中。
计算机软件技术基础 Visual Basic 程序设计
通用对话框可以提供 6 种形式的对话框，通 过设置 Action 属性值或调用 Show 方法来 建立不同类型的对话框。
类型 无对话框 打开文件(Open) 保存文件(Save As) 选择颜色(Color) 选择字体(Font) 打印(Print) 帮助文件(Help)
Action属性 0 1 2 3 4 5 6
第7章 第10章
一、内部文件控件 二、通用对话框 三、文件的读写操作 四、菜单编辑器
计算机软件技术基础 Visual Basic 程序设计
一、内部文件控件
文件系统控件用来查看和选择文件的功能，这类 控件有两种：
①VB内部标准的文件控件： 驱动器列表框(DriveListBox) 目录列表框(DirListBox) 文件列表框(FileListBox)
记录：计算机处理数据的基本单位，由若干个相 互关联的数据项组成。相当于表格中的一行。
文件：记录的集合，相当于一张表。 文件类型：顺序文件、随机文件、二进制文件。 访问模式：计算机访问文件的方式，VB中有顺序、 随机、二进制三种访问模式。
2. 顺序访问模式
顺序访问模式的规则最简单，指读出或写入 时，从第一条记录“顺序”地读到最后一条记录， 不可以跳跃式访问。该模式专门用于处理文本文 件，每一行文本相当于一条记录，每条记录可长 可短，记录与记录之间用“换行符”来分隔。
Label2.Caption = "选中的驱动器是" & Drive1.Drive End Sub
例1
计算机软件技术基础 Visual Basic 程序设计
2.目录列表框(DirListBox)
①功能：以根目录开始, 显示目录的层次结构。 ②Path属性：设置当前路径，只能在程序代码中设 置。格式为目录列表框名称.Path[=“路径”]
③事件： ★PathChange事件：路径被FileName或Path
属性改变时发生。 ★PatternChange事件：列表样式被FileName
或Path属性改变时发生。
计算机软件技术基础 Visual Basic 程序设计
4.文件系统控件的同步操作 （控件的联动）
Sub Drive1_Change() Dir1.Path = Drive1.Drive
例4
计算机软件技术基础 Visual Basic 程序设计
计算机软件技术基础 Visual Basic 程序设计
计算机软件技术基础 Visual Basic 程序设计
二、通用对话框
执行“工程/部件” 命令，打开“部件” 对话框，选择 “Microsoft Common Dialog Control 6.0”，即 可在工具箱中添加 通用对话框控件。
计算机软件技术基础 Visual Basic 程序设计
3）文件号: 介于1-511之间的整数，打开一个文件时需
要指定一个文件号，这个文件号就代表该文件， 直到文件关闭后这个号才可以被其他文件所使 用。可以利用FreeFile（）函数获得下一个可 以利用的文件号。
例：Open "D:\sj\aaa" For Output As #1 意思是打开D盘SJ目录下aaa文件供写入数据， 文件号为#1。
Open App.Path & "\Myfile.txt" For Output As #1
str = "STUDY“
num = 12345
Print #1, "Print输出:" '将"Print输出:"写入1号文件
Print #1, str, num '按格式(宽距离)写入数据。
Print #1, "*****************"
计算机软件技术基础 Visual Basic 程序设计
（2）写操作
将数据写入磁盘文件的命令是：Write、Print。 1）Print
格式：Print #文件号，[输出列表] 例：Open “D:\SJ\TEST.DAT” For Output As #1
Print #1,Text1.Text '把文本框1的内容写入1#文件 Close #1 2）Write 格式：Write #文件号，[输出列表] Write 与Print 的功能基本相同，区别是Write 是 以紧凑格式存放，在数据间插入逗号，并给字符串加 上双引号。
使驱动器列表框和目录列表框同步的程序代码： Private Sub Drive1_Change() Dir1.Path=Drive1.Drive End Sub
使目录列表框和文件列表框同步的程序代码： Private Sub Dir1_Change() File1.Path=Dir1.Path End Sub 这样，每当改变驱动器列表框的Drive属性时，将 产生Change事件，目录列表框中的目录变为该驱 动器的目录，进一步引发文件列表框目录的变化。
计算机软件技术基础 Visual Basic 程序设计
【例1】窗体中有2个标签和1个驱动器列表框。程 序运行时，将用户在驱动器列表框中所选驱动器 名称显示在窗体的标签中。
Private Sub Form_Load() Label2.Caption = "选中的驱动器是" &
Drive1.Drive End Sub Private Sub Drive1_Change()
计算机软件技术基础 Visual Basic 程序设计
【例6】用Print # 语句和Write # 语句把数据写入 Myfile.txt文件，并比较输出效果。
Private Sub Form_Click()
Dim str As String
Dim num As Integer
'打开一个文件，对该文件进行写操作
计算机软件技术基础 Visual Basic 程序设计
【例3】窗体中有3个标签、1个驱动器框、1个目录 框和1个文件列表框。程序运行时，在文件列表框 中显示用户所选驱动器及目录中的所有文件。
例3
【例4】制作图片浏览器。程序运行时，在组合框中 选择显示图片的文件类型后，在文件列表框中自动列 出当前所选驱动器及目录中的该类型文件名，用户双 击某文件名后，立即在图像框中显示该图形文件。
★FileName属性, 显示所选中文件的路径和文件名。 例：在文件列表框中只显示C盘windows目录中的 文件。 File1.FileName=“C:\windows\” 在文件列表框中显示C盘windows目录中.exe文件。 File1.FileName=“C:\windows\*.exe”
★Path属性：用来设置文件列表框中所选中文件的路径， 不包括文件名。只能在程序代码中对其进行设置。 例如：设置文件列表框显示当前目录下的所有文件。 File1.Path = Dir1.Path
计算机软件技术基础 Visual Basic 程序设计
★Readonly属性、Archive属性、Normal属性、 Hidden属性和System属性：设置要显示文件的 属性。分别决定是否可以显示只读文件、存档 文件、普通文件、隐藏文件和系统文件。