vb文件菜单通用对话框

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