使用文件属性
文件列表框的属性也提供当前选定文件的属性(Archive、Normal、System、Hidden 和 ReadOnly)。可在文件列表框中用这些属性指定要显示的文件类型。System 和 Hidden 属性的缺省值为 False.Normal、Archive 和 ReadOnly属性的缺省值为 True.
例如,为了在列表框中只显示只读文件,直接将 ReadOnly 属性设置为 True并把其它属性设置为 False:
File1.ReadOnly = True
File1.Archive = False
File1.Normal = False
File1.System = False
File1.Hidden = False
当 Normal = True 时将显示无 System 或 Hidden 属性的文件。当 Normal =False 时也仍然可显示具有 ReadOnly 和/或 Archive 属性的文件,只需将这些属性设置为 True.
注意 不使用 attribute 属性设置文件属性。应使用 SetAttr 语句设置文件属性。缺省时,在文件列表框中只突出显示单个选定文件项。要选定多个文件,应使用 MultiSelect 属性。
详细信息 关于 SetAttr 语句的详细信息,请参阅《Visual Basic 6.0语言参考》的“SetAttr 语句”和“MultiSelect 属性”。
使用文件系统控件的组合
如果使用文件系统控件的组合,则可同步显示信息。例如,若有缺省名为Drive1、Dir1 和 File1 的驱动器列表框、目录列表框和文件列表框,则事件可能按如下顺序发生:
1. 用户选定 Drive1 列表框中的驱动器。
2. 生成 Drive1_Change 事件,更新 Drive1 的显示以反映新驱动器。
3. Drive1_Change 事件过程的代码使用下述语句,将新选定项目(Drive1.Drive 属性)赋予 Dir1 列表框的 Path 属性: Private Sub Drive1_Change ()
Dir1.Path = Drive1.Drive
End Sub
4. Path 属性赋值语句生成 Dir1_Change 事件并更新 Dir1 的显示以反映新驱动器的当前目录。
5. Dir1_Change 事件过程的代码将新路径(Dir1.Path 属性)赋予 File1 列表框的 File1.Path 属性:
Private Sub Dir1_Change ()
File1.Path = Dir1.Path
End Sub
6. File1.Path 属性赋值语句更新 File1 列表框中的显示以反映 Dir1 路径指定。
用到的事件过程及修改过的属性与应用程序使用文件系统控件组合的方式有关。下节“文件系统控件方案:文件搜索器应用程序”演示了这里描述的控件同步。

