IDC资讯中心
文件系统控件方案：文件搜索器
应用程序因为用户常常希望快速查找应用程序的可用文件或文件组，所以，许多应用程序都提供查询文件系统的功能。Winseek.vbp示例应用程序协助用户浏览驱动器和目录并显示所有类型的文件。
下表总结了WinSeek应用程序在Seek.frm窗体中使用的控件。
注意文件系统控件没有caption属性，虽然可为它们加标签并指定访问键。关于这种使用标签的方法的详细信息，请参阅本章后面的“使用Label控件”一节。
编写WinSeek应用程序的代码
用鼠标单击驱动器列表框中的项目就会触发Change事件。当用户选定项目并接着改变窗体上的焦点时也将触发Change事件。在目录列表框中，需要DblClick事件生成Change事件。
当用户不想用鼠标变更目录时，通常使用箭头键选定需要的目录,然后按ENTER键。
因为ENTER键通常与缺省CommandButton控件关联，所以，WinSeek必须识别用户在何时只是想变更目录而不搜索文件。
通过判断dirList列表框的路径是否不同于当前突出显示的目录，WinSeek应用程序解决了这个问题。当用户单击目录列表框中的项目或用箭头键在目录列表框中移动时，可能发生这种情况。下列代码判断dirList.Path是否与突出显示的目录不同。若不同，则更新dirList.Path。若相同，则执行搜索操作。
PrivateSubcmdSearch_Click()
.
.
.
若dirList.Path与当前选定目录不同，
则执行更新操作；否则执行搜索操作。
IfdirList.Path<>dirList.List(dirList.ListIndex)Then
dirList.Path=dirList.List(dirList.ListIndex)
ExitSub
EndIf
继续搜索。
.
.
.
EndSub
WinSeek应用程序使用下述过程处理重要的事件：
drvList_Change过程
dirList_Change过程
cmdSearch_Click过程
DriveListBox控件的Change事件
当用户单击驱动器列表框的项目时就会生成控件的Change事件。此时将调用drvList_Change事件过程并运行下述代码： PrivateSubdrvList_Change()
OnErrorGoToDriveHandler
若选定新驱动器，则Dir1列框更新显示。
dirList.Path=drvList.Drive
ExitSub
若发生错误，则用dirList.Path重新设置drvList.Drive。
DriveHandler:
drvList.Drive=dirList.Path
ExitSub
EndSub
注意，无论用鼠标单击还是移动选项（例如，利用箭头键移动），在选定新驱动器时都将在驱动器列表框中发生Change事件。试图访问未关闭驱动器门的软盘驱动器，或者选定一个无意中已切断连接的网络驱动器，诸如此类的操作都将触发错误处理程序。因为出错后不能按原先的安排赋值，所以dirList.Path仍包含先前的有效驱动器。将dirList.Path重新赋予drvList.Drive后就可更正这个错误。
详细信息请参阅第十三章“调试代码和处理错误”。
DirListBox控件的Change事件
如果用户双击目录列表框中的项目或在代码中（如drvList_Change过程中）变更dirList的Path属性，就会启动dirList_Change事件。下列代码响应此事件：
PrivateSubdirList_Change()
更新文件列表框，以便与目录列表框同步。
filList.Path=dirList.Path
EndSub
此事件过程将dirList列表框的Path属性赋予filList列表框的Path属性。这将在filList列表框中触发重新绘制的PathChange事件；不必在filList_PathChange过程中添加代码，因为此应用程序中的事件在filList列表框结束。
CommandButton控件的Click事件
此事件过程判断dirList列表框中突出显示的项目是否和dirList.Path相同。若项目不同，则更新dirList.Path；否则执行搜索操作。
PrivateSubcmdSearch_Click()
.
.
.
若dirList.Path与当前选定的目录不同，
则更新；否则执行搜索。
IfdirList.Path<>dirList.List_
(dirList.ListIndex)Then
dirList.Path=dirList.List(dirList.ListIndex)
ExitSub
EndIf
继续搜索。
.
.
.
EndSub
注意可用附加功能增强WinSeek应用程序。例如会出现这样的情况，希望使用文件控件的属性。这时可通过使用复选框使用户设置文件属性的不同组合，以使文件列表框显示Hidden、System等等属性的文件。这将把搜索限制在满足条件的文件中。
->
