《Visual Basic程序设计 第二版 本科 郁建中第10章 文件操作系统》由会员分享，可在线阅读，更多相关《Visual Basic程序设计 第二版 本科 郁建中第10章 文件操作系统（33页珍藏版）》请在金锄头文库上搜索。
1、新世纪应用型高等教育 计算机类课程规划教材,Visual Basic 程序设计,（第二版）,第10章 文件操作系统,在许多应用程序中，当打开文件或将数据存入磁盘时，需要显示、了解有关磁盘驱动器、目录和文件等信息。为此VB提供了驱动器列表框(DriveListBox)、目录列表框(DirListBox)、文件列表框(FileListBox)三种用于文件管理的控件及通用对话框(Common Dialog)控件，通常将它们组合使用。这四种控件是Visual Basic内部的标准控件，存在于工具箱之中。,10.1 文件系统控件,驱动器列表框(DriveListBox) 目录列表框(DirListBox
2、) 文件列表框(FileListBox) 作用: 获取有关驱动器、目录和文件的当前状态,10.1.1 驱动器列表框(DriveListBox) 显示系统中所有有效磁盘驱动器 1. 属性: Drive 返回或设置驱动器名称只能在运行时设置，值A:C:D:E: 等 例: Drive1.Drive=“c:“ 注意: 改变Drive属性并不能自动变更当前驱动器，要改变当前驱动器需使用 ChDrive 语句。 例: ChDrive “D:“ 例: ChDrive Drive1.Drive 2. 事件: Change当选择一个新驱动器或通过代码 改变 Drive 属性时发生。 例: 将选择的驱动器设置为当
3、前驱动器: Private Sub Drive1_Change() ChDrive Drive1.Drive End Sub,10.1.2 目录列表框(DirListBox) 显示一个树型的目录结构 1. 属性: Path设置或返回当前工作目录的完整路径(包括驱动器盘符) 例: Dir1.Path = “c:winnt“ 注意: 在目录列表框中选择目录不能改变当前目录, 要真正改变当前目录需使用ChDir语句。 例: ChDir “c:system“ 例: ChDir Dir1.Path 2. 事件: Change当双击一个目录项或通过代码改变 Path 属性时发生。 例: 将选择的路径设置为
4、当前路径 Private Sub Dir1_Change() ChDir Dir1.Path End Sub,10.1.3 文件列表框(FileListBox) 显示特定目录下的文件。 1. 属性 (1) Path 设置或返回当前工作目录的完整路径。 (2) FileName 设置或返回所选文件的路径和文件名。 设置时: 文件名可以带路径 返回时: 文件名不含路径名 (3) Pattern:设置对显示文件的过滤。 例: Filelistbox1.Pattern= “*.EXE ; *.COM “ 只显示以 .EXE和 .COM为后缀的文件 2. 事件 Click 和DblClick事件,10.
5、1.4 文件系统综合应用 例10.1 :创建一个文件浏览器，界面如图：,例10.2 :使用以下界面进行文件的复制和删除。,Private Sub Drive1_Change() ChDrive Drive1.Drive Dir1.Path = Drive1.Drive End Sub Private Sub Dir1_Change() ChDir Dir1.Path File1.FileName = Dir1.Path End Sub,Private Sub Drive2_Change() ChDrive Drive2.Drive Dir2.Path = Drive2.Drive End Su
6、b Private Sub Dir2_Change() ChDir Dir2.Path File2.FileName = Dir2.Path End Sub,例10.2 程序代码如下：,Private Sub Command1_Click() 复制 If File1.FileName = “ Then MsgBox “请选择文件“ Exit Sub End If srcfile = Dir1.Path & “ & File1.FileName If File2.FileName = “ Then desfile = Dir2.Path & “ & File1.FileName Else des
7、file = Dir2.Path & “ & File2.FileName End If FileCopy srcfile, desfile File1.Refresh File2.Refresh End Sub,Private Sub Command2_Click() 移动 If File1.FileName = “ Then MsgBox “请选择文件“ Exit Sub End If srcfile = Dir1.Path & “ & File1.FileName If File2.FileName = “ Then desfile = Dir2.Path & “ & File1.Fil
8、eName Else desfile = Dir2.Path & “ & File2.FileName End If FileCopy srcfile, desfile Kill srcfile File1.Refresh File2.Refresh End Sub,Private Sub Command3_Click() 删除 If File1.FileName = “ Then MsgBox “请选择源文件“ Exit Sub End If srcfile = Dir1.Path & “ & File1.FileName Kill srcfile File1.Refresh File2.R
9、efresh End Sub,10.2 通用对话框控件,10.2.1 概述 通用对话框是一种ActiveX控件，它随同VB提供给程序设计人员。在一般情况下，启动VB后，在工具箱中没有通用对话框控件。为了把通用对话框控件加到工具箱中，其操作步骤如下： (1)执行“工程”菜单中的“部件”命令，打开“部件”对话框。 (2)在对话框中，选择“控件”选项卡，然后在控件列表框中，选择“Microsoft Common Dialog Control 6.0”,在前面的方框中选中“”。如图10.4所示。,图10.4 “部件”对话框,返回,(3)单击“确定”按钮，通用对话框立即被加到工具箱中，如图10.5所示。
10、,图10.5 工具箱中的通用对话框,10.2.2 VB通用对话框的基本属性 (1)Action属性 该属性直接决定打开何种类型的对话框。 1-Open：打开文件对话框； 2-Save As：另存为对话框； 3-color：颜色对话框； 4-Font：字体对话框； 5-Printer：打印机对话框； 6-Help：帮助对话框。 该属性只能在程序中赋值，不能在属性窗口中设置，用于调出相应的对话框。,(2)Dialogtitle属性 该属性用来设置对话框的标题，可以是任意字符串。在默认情况下，“打开”对话框的标题是“打开”，“另存为”对话框的标题是“另存为”。 通用对话框的属性设置不仅可以在属性窗口
11、中设置，也可以在属性页对话框中设置,如图10.6所示。,图10.6 通用对话框控件属性页对话框,10.2.3 VB通用对话框的方法 为了打开通用对话框，VB还提供了一组方法，用来打开通用对话框。表10.3列出了各类对话框所需要的Action属性值和方法。,如前所述，通用对话框Name属性的默认值为CommonDialogX，在实际应用中，为了提高程序的可读性，最好能使Name属性具有一定的意义，如GetFile、SaveFile等。此外，每种对话框都有自己的默认标题。例如：GetFile.DialogTitle=“选择要打开的位图文件”，当然，也可以在属性窗口中设置该属性。,10.2.4 VB
12、文件对话框的结构 文件对话框分为两种，即打开(0pen)文件对话框和另存为(Save As)文件对话框。通用对话框的重要用途之一，就是从用户那里获得文件名信息。打开文件对话框可以让用户指定一个文件，由程序来实现；而用保存文件对话框可以指定一个文件，并以这个文件名保存当前文件。 从结构上来说，“打开”和“另存为”对话框是类似的。如图10.7所示的是一个“加载图片”对话框，它属于“打开”对话框，图中各部分的作用如下：,返回,图10.7“加载图片”对话框,10.2.5 VB文件对话框的属性 打开(Open)和另存为(Save As)对话框共同的属性如下： (1)FileName属性 用来设置或返回要
13、打开或保存的文件的路径及文件名。在文件对话框中显示一系列文件名，如果选择了一个文件并单击“打开”或“保存”按钮(或双击所选择的文件)，所选择的文件即作为属性FileName的值，然后就可把该文件名作为要打开或保存的文件。 (2)FileTitle属性 用来指定文件对话框中所选择的文件名(不包括路径)。该属性与FileName属性的区别是：FileName属性用来指定完整的路径，如“e:vbprogex1test.frm”；而FileTitle只指定文件名，如“test.frm”。,(3)Filter 属性 用来指定在对话框中显示的文件类型。用该属性可以设置多个文件类型，供用户在对话框的“文件类
14、型”的下拉列表中选择。Filter的属性值由一对或多对文本字符串组成，每对字符串用管道符“|”隔开，在“|”前面的部分称为描述符，后面的部分一般为通配符和文件扩展名，称为“过滤器”，如*.txt等，各对字符串之间也用管道符隔开。 格式：窗体.对话框名Filter=描述符1 |过滤器1 |描述符2 |过滤器2 说明：如果省略窗体，则为当前窗体。 例如，CommonDialog1.Filter=Word Files (*.DOC) 执行该语句后，在文件列表栏内将要显示扩展名为.DOC的文件。 再如，CommonDialog1Filter=All Files(*)|WordFiles|(*DOC)|
15、text Files| (*TXT)执行该语句后，可以在文件类型栏内通过下拉列表选择要显示的文件类型。,(4)FilterIndex属性 用来指定默认的过滤器，其设置值为一整数。用Filter属性设置多个过滤器后，每个过滤器都有一个值，第一个过滤器的值为1，第二过滤器的值为2，用FilterIndex属性可以指定作为默认显示的过滤器。 例如：CommonDialog.FilterIndex=3 将把第三个过滤器作为默认显示的过滤器。 (5)InitDir属性 该属性用来指定打开对话框中的初始化目录，若显示当前目录，则该属性不需要设置。,(6)DefaultEXT属性 设置对话框中默认文件类型，
16、即扩展名。该扩展名出现在“文件类型”栏内，如果在打开或保存的文件名中没有给出扩展名，则自动将DefaultEXT属性值作为其扩展名。 (7)Flags属性 为文件对话框设置选择开关，用来控制对话框的外观。 格式：对象Flags=值 说明：“对象”为通用对话框的名称；“值”是一个整数。文件对话框Flags属性值各种取值的意义如表10.4所示。,返回,(8)MaxFileSize属性 设定FileName属性的最大长度，以字节为单位。取值范围为12048，默认为256。 (9)HelpCommand属性 该属性用于返回或设置所需要的在线Help帮助类型。请参阅VB帮助系统。 (10)CancelError属性 该属性决定在用户按下“取消”按钮时，是否产生错误信息。Ture：按下“取消”按钮，出现错误警告；False(缺省)：按下“取消”按钮，不会出现错误警告。,10.2.6 VB通用对话框应用举例 1.打开Open对话框使用ShowOpen方法举例，运行界面如图1
