vb文件系统控件.pptVIP

第十三章 文件系统控件 13-1 标准文件控件 （4）文件属性： Archive：True，只显示文档文件； Normal：True，只显示正常标准文件； Hidden：True，只显示隐含文件； System：True，只显示系统文件。 ReadOnly：True，只显示只读文件。 （6）List、ListCount 和 ListIndex 属性 文件列表框中的List、ListCount 和 ListIndex 属性与列表框（ListBox）控件的List、ListCount 和 ListIndex 属性的含义和使用方法相同，在程序中对文件列表框中的所有文件进行操作，就有用到这些属性。 因此有：File1.FileName=File1.List(File1.ListIndex) 将文件列表框（File1）中的所有文件名显示在窗体上： For i = 0 To File1.ListCount - 1 Print File1.List(i) Next i 2. 主要事件 （1）PathChange事件 当路径被代码中FileName或Path属性的设置所改变时，此事件发生。 说明：可使用PathChange事件过程来响应FileListBox控件中路径的改变。 （2）PatternChange事件 当文件的列表样式，如：*.*，被代码中对FileName或Path属性的设置所改变时，此事件发生。 说明：可使用PatternChange事件过程来响应在FileListBox控件中样式的改变。 （3） Click、DblClick事件： 例如：单击输出文件名。 Sub filFile_Click( ) MsgBox filFile.FileName End Sub 例如：双击执行可执行程序 Sub File1_DblClick( ) Dim Fname As String If Right(file1.path,1) =\ Then Fname=file1.path file1.filename Else Fname=file1.path \ file1.filename End If RetVal = Shell(Fname, 1) 执行程序 End Sub 13-2-3 其他对话框 1、“颜色”对话框 颜色对话框用来在调色板中选择颜色,或者创建自定义颜色. 在程序中可以利用通用对话框控件建立“颜色”对话框. “颜色”对话框的属性:具有与文件对话框相同的一些属性,如:CancelError、DialogTitle等，此外还有两个属性，既： Color属性：返回“颜色”对话框中选定的颜色值，它是一个长整型值。 Flags属性：定义对话框的格式。见书P174表8.11 2、“字体”对话框 字体对话框用于设置并返回所用字体的名称、样式、大小、效果及颜色。 常用属性： Flags属性：定义对话框的外形。 Color、FontBold、FontItalic、FontName、FontSize、FontStrikeThru、FontUnderline属性：用于返回“字体”对话框对字体、样式、大小、效果和颜色等方面的设置值。 * * 本章内容及要求： 掌握文件系统控件（驱动器列表框DriveListBox、 目录列表框DirListBox、文件列表框FilelistBox。 2. 掌握CommonDialog控件的使用。 本章重点： 文件系统控件驱动器列表框、目录列表框、文件列表框的使用； VB提供了3种可直接浏览系统目录结构和文件的控件： 驱动器列表框、目录列表框、文件列表框。 驱动器列表框 目录 列表框 文件 列表框 13-1-1 驱动器列表框（DriveListBox） 驱动器列表框控件，通常只显示当前驱动器名称，单击向下箭头，就会下拉出当前系统拥有的所有磁盘驱动器，供用户选择。 1．重要属性 Drive属性是驱动器列表框控件最重要和常用的属性，该属性在设计时不可用。 使用格式： 对象.Drive [= 字符串表达式] 例如： Drive1.drive=“D:” 2．重要事件——Change事件 在程序运行时，当选择一个新的驱动