课件：vb节.ppt

例8.5.1 使用Listcount和Listindex显示当前目录信息。在窗体中添一个目录列表框和一个命令按钮，编写代码： Private Sub Command1_Click() Print 当前目录是:; Dir1.Path Print 当前目录下的子目录分别是: For i = 0 To Dir1.ListCount Print Dir1.List(i) Next i Print 当前目录的上一级目录是: Print Dir1.List(-2) Print 在目录列表框中选中的项目是: Print Dir1.ListIndex End Sub 运行结果如图8.5.3所示。 8.5 文件系统控件 2. 目录列表框常用事件 Change事件是目录列表框控件中最常用的事件，该事件在选择一个新驱动器或通过代码改变Path属性的设置时发生。 8.5.3 文件列表框 1. 文件列表框控件的常用属性 （1）Path属性 Path属性用于设置或返回当前路径。Path属性只能在程序运行时赋值。 Path属性赋值语句格式： [窗体.]文件列表框名.Path[=路径] 8.5 文件系统控件 （2）FileName属性 FileName属性用于设置或返回所选文件的文件名，只有在程序运行时赋值。 说明：FileName属性不包括路径名，如果要得到一个文件的完整路径，则应该结合文件列表框的Path属性一起使用。 8.5 文件系统控件 （3）Pattern属性 用于返回或设置在运行时显示在File控件中文件的类型，缺省值为“*.*”。 （4）ListCount属性、ListIndex属性、List属性 ListCount属性、ListIndex属性、List属性的含义同目录列表框中的三个属性。 2．文件列表框常用事件 （1） PathChange事件 当路径被代码中的FileName或Path属性的设置所改变时，此事件发生。 （2）PatternChange事件 当文件列表框中的文件显示模式，即Pattern属性值发生改变时将引发PatternChange事件。图8.5.5 文件控件综合应用 （3）Click事件 单击文件列表中某个文件进行选择时，该事件发生。 8.5 文件系统控件 例8.5.3 设计窗体界面如图8.5.5所示的文件管理系统。当用户在文件列表框中单击某文件名时，如果选中的是图片文件，则相应图片显示在影像框Image1中；如果是非图片文件则调用相应程序打开此文件。 假定驱动器、目录和文件列表框的名称分别为Drive1、Dir1和File1，组合框的名称为Combo1。 三个文件系统控件必须协调工作才能构成一个文件管理系统。为了使它们之间能产生同步效果，需编写如下的事件过程： Private Sub Form_Load() Combo1.AddItem *.* Combo1.AddItem *.bmp;*.jpg;*.gif Combo1.AddItem *.exe;*.com Combo1.AddItem *.txt Combo1.AddItem *.frm End Sub 8.5 文件系统控件 Private Sub Dir1_Click() File1.Path = Dir1.Path File1.Pattern = Combo1.Text End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub Command1_Click() If Right(File1.Path，1) = \ Then 获取文件的路径和名称 fullname = File1.Path File1.FileName Else fullname = File1.Path \ File1.FileName End If tmp