vb文件系統控件方案

　　文件系統控件方案：文件搜索器

　　應用程序因為用戶常常希望快速查找應用程序的可用文件或文件組，所以，許多應用程序都提供查詢文件系統的功能。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 Sub
End 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 等等屬性的文件。這將把搜索限制在滿足條件的文件中。