第13章文件系统控件.ppt

第13章 文件系统控件 查看和选择文件的功能，可以通过两种控件 来完成： 一种是VB内部标准的文件控件，在工具箱中可以看到。提供三个控件：驱动器列表, 目录列表, 文件列表)。 另一种是Windows的通用对话框控件（CommonDialog），该控件是ActiveX控件，需要加载后才能使用。 驱动器列表框（DriveListBox） 用户可输入或选择任何有效的驱动器标识符 Drive属性, 驱动器名, 缺省值为当前驱动器 Change事件, 当选择了新的驱动器或改变了Drive属性的值时, 发生该事件 ListCount, List, ListIndex等属性, 与标准列表框使用相同 驱动器列表框示例 【例】将系统中所有的驱动器显示在一个带复选框的ListBox控件中。 驱动器列表框：Drive1 列表框：lstAllDrive 目录列表框（DirListBox） 以根目录开始, 显示目录的层次结构 Path属性, 设置的路径 Change事件, 选择一个新目录或改变Path属性时发生 ListCount, List, ListIndex等属性, 与标准列表使用相同, 但ListIndex属性的规则不同: 当前选中的路径, ListIndex=-1 向上推, 依次为-2, -3, -4 ….. 向下推, 依次为0, 1, 2, 3 …... 目录列表框示例 【例】窗体中显示驱动器列表框和目录列表框，当选择某个驱动器后，该驱动器的目录列在目录列表框中；如果选择了某个目录，则在窗体上显示该目录名及其紧邻的下一级子目录的个数。 目录列表框示例 要实现题目的功能，只需响应两个事件： 当前驱动器发生改变 Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub 当前目录发生改变 Private Sub Dir1_Change() Dim str1 As String str1 = 当前目录是： vbCrLf Dir1.Path str1=str1 vbCrLf “其下级子目录的个数为：” _ Dir1.ListCount lblResult.Caption = str1 End Sub 文件列表框（FileListBox） 显示由Path属性指定的目录中的文件 Path属性, 指定路径名 Pattern属性, 指定文件类型或模式, 如*.bas, a?.txt FileName属性, 设计时不可用, 所选中文件的路径和文件名, 会影响Path和Pattern属性 PathChange事件, 路径被FileName或Path属性改变时发生 PatternChange事件, 列表样式被FileName或Path属性改变时发生 Archive, Normal, System, Hidden, ReadOnly属性 ListCount, ListIndex, Selected等与标准列表框相同 文件列表框的Pattern属性 缺省时文件列表框会显示Path属性指定目录下的所有文件，通过设置Pattern属性可以控制显示这些文件的子集，即过滤功能。 例如，希望只显示后缀为.txt的文本文件，只要设置：File1.Pattern=*.txt Pattern属性也接受由分号分隔的列表。 例如，下列代码行将显示所有扩展名为.txt和.doc的文件：File1.Pattern = *.frm; *.bas 另外Pattern还支持“?”通配符。例如，???.txt将显示所有文件名包含三个字符且扩展名为.txt的文件。 三个控件的组合使用 以上三个控件是各自独立的，要将三个控件 关联起来，需要编写两个事件过程： Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub 组合编程示例 【例】使用文件系统的三个标准控件，来显示任何目录下的文件。同时提供文件后缀类型的选择，如*.txt、*.doc等指定类型，支持复选。 组合编程示例 点击文本文件复选框 Private Sub chkTxt_Click() Call SetFilePattern End Sub ?……? 设置File1的Pattern属性 Private Sub SetFilePattern() Dim str1 As String If chkTxt.Value = 1 Then str1 = *.txt; If chkDoc.Value = 1 The