第10章 文件
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
结束
2.目录列表框 2.目录列表框 用于显示当前磁盘驱动器下的目录。 最重要的属性Path（路径）属性，用来设 置和返回当前的路径。不能在设计状态时 设置。 格式： [对象.]Path[=pathName] 对象.]Path[=pathName] 其中，对象是指目录列表框名。pathName 是一个路径名字符串。 每次Path属性的改变都会引发Change事件。
Visual basic
程序设计
第十章 文件
第十章
文件
10.1
文件系统控件
10.5
文件基本操作
结束
引言
本节主要介绍文件操作控 件、文件基本操作等知识。
结束
10.1 文件系统控件
VB提供了3种文件系统控件： 驱动器列表框（DriveListBox） 目录列表框（DirListBox） 文件列表框（FileListBox） 利用文件系统控件可以设计出用户所喜爱 的、具有不同风格的对话框，利用它们进 行文件管理十分方便。
结束
Private Sub File1_DblClick() f1 = Shell(text1.text, 1) End Sub Private Sub Form_Load() Combo1.AddItem "*.exe" Combo1.AddItem "*.com" Combo1.AddItem "*.bat" Combo1.Text = Combo1.List(0) Combo1_Click End Sub
结束
Form1 Label1 Label2 Label3 Label4 Label5 Text1 Command1 Command2
其他控件属性均使用默认值
程序代码如下： 程序代码如下： Private Sub Combo1_Click() File1.Pattern = Combo1.Text End Sub Private Sub Command1_Click() File1_DblClick End Sub Private Sub Command2_Click() Unload Me End Sub
结束
文件操作控件
目录列表框 驱动器列表框 文件列表框
目录列表框控件
文件列表框控件
驱动器列表框控件
结束
1. 驱动器列表框 最重要的属性是Drive属性，用来设置当前 驱动器。 该属性不能在设计阶段使用此属性，必须 在程序中设置或引用。 格式： [对象.]drive[=drive] 对象.]drive[=drive] 其中，对象是驱动器列表框的名字。
结束
结束
③FileName属性 FileName属性 FileName 用来在程序运行时设置或返回所选中的文 件名。 格式： 对象.]FileName[=pathName] [对象.]FileName[=pathName] 其中，对象是文件列表框名，pathName是 一个指定文件名及其路径的字符串。
结束
3.文件列表框 3.文件列表框 文件列表框列出在当前目录下的文件名 文件列表框有3个重要的常用属性： Path，Pattern和FileName ①Path属性 Path属性 Path属性用来指定当前路径，缺省值为系统 的当前路径。 ②Pattern属性 Pattern属性 Pattern属性用来指定在文件列表框显示的文 件类型，它的缺省值为“*.*”，即显示所有文 件的名字。
结束
例： 设计一个“打开可执行文件”管理界面
结束
控件属性设置
对 象 属 性 设 置 Caption BorderStyle MaxButton MinButton Caption Caption Caption Caption Caption Text Caption Caption 打开可执行文件 1-Fixed Single False False 驱动器列表： 驱动器列表： 文件夹列表： 文件夹列表： 文件列表： 文件列表： 文件名： 文件名： 文件类型： 文件类型： 空白 确定 取消
结束
可以通过编写代码把驱动器列表框、目录 列表框和文件列表框结合起来用，使它们 “同步”。 代码如下： Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub dirlist1_Change() File1.Path = Dir1.Path End Sub
结束
说明： 说明：
当驱动器列表框中改变驱动器时，就会触发 Change事件，执行Drive1_Change过程，在 过程执行时就把刚选定的驱动器目录结构赋 给目录列表框Dir1的Path属性，因此在目录 列表框就“同步”显示选定的驱动器的目录 结构。 同理，当目录列表框中改变文件夹位置也会 触发Change事件，执行Dir1_Change过程， 在过程执行时就把刚选定的文件夹的路径属 性（Dir1.Path)赋给文件列表框File1的 Path属性，从而达到“同步”。
结束
Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub
结束
Fra Baidu bibliotek
Private Sub File1_Click() If Len(Dir1.Path) > 3 Then Text1.Text = Dir1.Path & "\" & File1.filename Else Text1.Text = Dir1.Path & File1.filename End If End Sub
2.目录列表框 2.目录列表框 用于显示当前磁盘驱动器下的目录。 最重要的属性Path（路径）属性，用来设 置和返回当前的路径。不能在设计状态时 设置。 格式： [对象.]Path[=pathName] 对象.]Path[=pathName] 其中，对象是指目录列表框名。pathName 是一个路径名字符串。 每次Path属性的改变都会引发Change事件。
Visual basic
程序设计
第十章 文件
第十章
文件
10.1
文件系统控件
10.5
文件基本操作
结束
引言
本节主要介绍文件操作控 件、文件基本操作等知识。
结束
10.1 文件系统控件
VB提供了3种文件系统控件： 驱动器列表框（DriveListBox） 目录列表框（DirListBox） 文件列表框（FileListBox） 利用文件系统控件可以设计出用户所喜爱 的、具有不同风格的对话框，利用它们进 行文件管理十分方便。
结束
Private Sub File1_DblClick() f1 = Shell(text1.text, 1) End Sub Private Sub Form_Load() Combo1.AddItem "*.exe" Combo1.AddItem "*.com" Combo1.AddItem "*.bat" Combo1.Text = Combo1.List(0) Combo1_Click End Sub
结束
Form1 Label1 Label2 Label3 Label4 Label5 Text1 Command1 Command2
其他控件属性均使用默认值
程序代码如下： 程序代码如下： Private Sub Combo1_Click() File1.Pattern = Combo1.Text End Sub Private Sub Command1_Click() File1_DblClick End Sub Private Sub Command2_Click() Unload Me End Sub
结束
文件操作控件
目录列表框 驱动器列表框 文件列表框
目录列表框控件
文件列表框控件
驱动器列表框控件
结束
1. 驱动器列表框 最重要的属性是Drive属性，用来设置当前 驱动器。 该属性不能在设计阶段使用此属性，必须 在程序中设置或引用。 格式： [对象.]drive[=drive] 对象.]drive[=drive] 其中，对象是驱动器列表框的名字。
结束
结束
③FileName属性 FileName属性 FileName 用来在程序运行时设置或返回所选中的文 件名。 格式： 对象.]FileName[=pathName] [对象.]FileName[=pathName] 其中，对象是文件列表框名，pathName是 一个指定文件名及其路径的字符串。
结束
3.文件列表框 3.文件列表框 文件列表框列出在当前目录下的文件名 文件列表框有3个重要的常用属性： Path，Pattern和FileName ①Path属性 Path属性 Path属性用来指定当前路径，缺省值为系统 的当前路径。 ②Pattern属性 Pattern属性 Pattern属性用来指定在文件列表框显示的文 件类型，它的缺省值为“*.*”，即显示所有文 件的名字。
结束
例： 设计一个“打开可执行文件”管理界面
结束
控件属性设置
对 象 属 性 设 置 Caption BorderStyle MaxButton MinButton Caption Caption Caption Caption Caption Text Caption Caption 打开可执行文件 1-Fixed Single False False 驱动器列表： 驱动器列表： 文件夹列表： 文件夹列表： 文件列表： 文件列表： 文件名： 文件名： 文件类型： 文件类型： 空白 确定 取消
结束
可以通过编写代码把驱动器列表框、目录 列表框和文件列表框结合起来用，使它们 “同步”。 代码如下： Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub dirlist1_Change() File1.Path = Dir1.Path End Sub
结束
说明： 说明：
当驱动器列表框中改变驱动器时，就会触发 Change事件，执行Drive1_Change过程，在 过程执行时就把刚选定的驱动器目录结构赋 给目录列表框Dir1的Path属性，因此在目录 列表框就“同步”显示选定的驱动器的目录 结构。 同理，当目录列表框中改变文件夹位置也会 触发Change事件，执行Dir1_Change过程， 在过程执行时就把刚选定的文件夹的路径属 性（Dir1.Path)赋给文件列表框File1的 Path属性，从而达到“同步”。
结束
Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub
结束
Fra Baidu bibliotek
Private Sub File1_Click() If Len(Dir1.Path) > 3 Then Text1.Text = Dir1.Path & "\" & File1.filename Else Text1.Text = Dir1.Path & File1.filename End If End Sub