文件系统控件方案

2018-06-17 17:12:40来源:未知 阅读 ()

新老客户大回馈,云服务器低至5折

    文件系统控件方案:文件搜索器
    应用程序因为用户常常希望快速查找应用程序的可用文件或文件组,所以,许多应用程序都提供查询文件系统的功能。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等等属性的文件。这将把搜索限制在满足条件的文件中。

->

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:VBCOM基础讲座之创建测试程序

下一篇:VB技巧-工具栏使用技巧