图老师小编精心整理的vb文件系统控件方案希望大家喜欢,觉得好的亲们记得收藏起来哦!您的支持就是小编更新的动力~
【 tulaoshi.com - 编程语言 】
文件系统控件方案:文件搜索器
(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)应用程序因为用户常常希望快速查找应用程序的可用文件或文件组,所以,许多应用程序都提供查询文件系统的功能。Winseek.vbp 示例应用程序协助用户浏览驱动器和目录并显示所有类型的文件。
下表总结了 WinSeek 应用程序在Seek.frm 窗体中使用的控件。
注意 文件系统控件没有 caption 属性,虽然可为它们加标签并指定访问键。关于这种使用标签的方法的详细信息,请参阅本章后面的使用Label 控件一节。
编写 WinSeek 应用程序的代码
用鼠标单击驱动器列表框中的项目就会触发 Change 事件。当用户选定项目并接着改变窗体上的焦点时也将触发 Change 事件。在目录列表框中,需要 DblClick 事件生成 Change 事件。
当用户不想用鼠标变更目录时,通常使用箭头键选定需要的目录,然后按ENTER 键。
因为 ENTER 键通常与缺省 CommandButton 控件关联,所以,WinSeek 必须识别用户在何时只是想变更目录而不搜索文件。
通过判断 dirList 列表框的路径是否不同于当前突出显示的目录,WinSeek应用程序解决了这个问题。当用户单击目录列表框中的项目或用箭头键在目录列表框中移动时,可能发生这种情况。下列代码判断 dirList.Path 是否与突出显示的目录不同。若不同,则更新 dirList.Path。若相同,则执行搜索操作。
Private Sub cmdSearch_Click() . . .'若 dirList.Path 与当前选定目录不同,'则执行更新操作;否则执行'搜索操作。If dirList.Path dirList.List(dirList.ListIndex) Then dirList.Path = dirList.List(dirList.ListIndex) Exit SubEnd If'继续搜索。 . . .End Sub
WinSeek 应用程序使用下述过程处理重要的事件:
drvList_Change 过程
dirList_Change 过程
cmdSearch_Click 过程
DriveListBox 控件的 Change 事件
当用户单击驱动器列表框的项目时就会生成控件的 Change 事件。此时将调用 drvList_Change 事件过程并运行下述代码:Private Sub
drvList_Change () On Error GoTo DriveHandler '若选定新驱动器,则 Dir1 列框'更新显示 。 dirList.Path = drvList.Drive Exit Sub
'若发生错误,则用 dirList.Path 重新设置 drvList.Drive。
DriveHandler: drvList.Drive = dirList.Path Exit Sub End Sub
注意,无论用鼠标单击还是移动选项(例如,利用箭头键移动),在选定新驱动器时都将在驱动器列表框中发生 Change 事件。试图访问未关闭驱动器门的软盘驱动器,或者选定一个无意中已切断连接的网络驱动器,诸如此类的操作都将触发错误处理程序。因为出错后不能按原先的安排赋值,所以 dirList.Path 仍包含先前的有效驱动器。将 dirList.Path 重新赋予drvList.Drive 后就可更正这个错误。
详细信息 请参阅第十三章调试代码和处理错误。
DirListBox 控件的 Change 事件
如果用户双击目录列表框中的项目或在代码中(如 drvList_Change 过程中)变更dirList 的 Path 属性,就会启动 dirList_Change 事件。下列代码响应此事件:
Private Sub dirList_Change ()
'更新文件列表框,以便与目录列表框同步。
filList.Path = dirList.Path
End Sub
此事件过程将 dirList 列表框的 Path 属性赋予 filList 列表框的 Path 属性。这将在 filList 列表框中触发重新绘制的 PathChange 事件;不必在filList_PathChange 过程中添加代码,因为此应用程序中的事件在 filList 列表框结束。
CommandButton 控件的 Click 事件
此事件过程判断 dirList 列表框中突出显示的项目是否和 dirList.Path 相同。若项目不同,则更新 dirList.Path;否则执行搜索操作。
Private Sub cmdSearch_Click () . . . '若 dirList.Path 与当前选定的目录不同, '则更新;否则执行搜索。 If dirList.Path dirList.List _ (dirList.ListIndex) Then dirList.Path = dirList.List(dirList.ListIndex) Exit Sub End If '继续搜索。 . . .End Sub
注意 可用附加功能增强 WinSeek 应用程序。例如会出现这样的情况,希望使用文件控件的属性。这时可通过使用复选框使用户设置文件属性的不同组合,以使文件列表框显示 Hidden、System 等等属性的文件。这将把搜索限制在满足条件的文件中。
(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)来源:http://www.tulaoshi.com/n/20160219/1614699.html