一個相當(dāng)不錯的windows資源管理器控件，只需很少的代碼就可以模擬出跟資源管理器一樣的界面。它包含兩個控件，一個樹狀的文件夾目錄，一個可以多種瀏覽方式的文件列表，worktool.cn強烈推薦下載

簡介：

　　Windows資源管理器大家都不陌生，用它你可以做出與Windows幾乎一模一樣的資源管理器，非常實用。

　　使用實例:

　　Windows中的資源管理器想必大家都經(jīng)常使用，利用NEWEX 這個優(yōu)秀的第三方控件，我們可以用VB輕易做出與Windows幾乎一模一樣的資源管理器。下面通過一個例子向大家介紹該控件的簡單用法。

　?。ㄒ唬?加載控件
　
　　啟動Visual Basic 6.0，創(chuàng)建一個工程并保存為"工程1.vbp"，同時產(chǎn)生一個名為"Form1"的窗口。在工具箱的空白處單擊鼠標右鍵，從彈出的快捷菜單中啟動"部件"窗口，點擊"瀏覽"按鈕，從存放NEWEX控件的文件夾中找到newex.ocx文件。點擊"應(yīng)用"后NEWEX控件就添加到工具箱中。你會發(fā)現(xiàn)工具箱中多了3個圖標，如圖1。我們要用到的是最后兩個。

　?。ǘ?主要屬性介紹

　　本例中我們用到的是ExplorerTree（樹型目錄窗格）和ExplorerLis（列表窗格,用以顯示左邊選定對象所包含的內(nèi)容）。下面列出它們的幾個主要屬性。

　　ExplorerTree的主要屬性

Appearance  控件外觀是否立體，1為3D邊框，0為平面。
BorderStyle 控件的邊界類型
Backcolor  背景色
BrowseFrom  轉(zhuǎn)到地址欄輸入的目錄路徑
TreeHasButtons  在樹狀目錄中是否顯示+按鈕
TreeHasLines  在樹狀目錄中是否顯示關(guān)聯(lián)虛線
Path 地址路徑

　　ExplorerList的主要屬性

Appearance  控件邊框是否立體，1為3D邊框，0為平面。
BorderStyle  控件的邊界類型
ShowHiddenFile 是否顯示隱藏文件
view 查看方式0 -平鋪，1-圖標，2-列表，3-詳細信息
FileName 選中文件的文件名

　　(三) 添加控件，完成界面的設(shè)置

　　在Form1中添加一個ExplorerTree和一個ExplorerLis控件,調(diào)整好位置大小。再在窗體中添加3個 Text控件和一個CommandButton控件，將Text控件的Caption屬性依次設(shè)置為"地址"，"文件"，"文件夾"。CommandButton控件的Caption屬性設(shè)置為"轉(zhuǎn)到"。如圖2所示。

　　(四)添加代碼，實現(xiàn)基本功能

　　利用NEWEX控件的屬性，我們可以添加一些代碼來完善它的功能。

　?、偬砑右韵麓a，使右邊列表窗格顯示左邊樹型目錄窗格選定對象所包含的內(nèi)容。

Private Sub ExplorerTree1_TreeDataChanged()
On Error Resume Next
　ExplorerList1.TreeDatas = ExplorerTree1.TreeDatas
End Sub

Private Sub ExplorerList1_FolderClick()
　ExplorerTree1.FolderClick (ExplorerList1.filename)
End Sub

　?、诶肊xplorerTree的OnDirChanged 方法和Path屬性，讓Text1文本框顯示目錄的地址路徑。

Private Sub ExplorerTree1_OnDirChanged()
　Text1.Text = ExplorerTree1.Path
End Sub

　　③利用ExplorerList的GetFileName 方法和filename屬性，讓Text2文本框顯示在ExplorerList窗格中選定的文件。

Private Sub ExplorerList1_GetFileName()
　Text2.Text = ExplorerList1.filename
End Sub

　?、芫帉懘a完成"轉(zhuǎn)到"按鈕的功能。當(dāng)點擊"轉(zhuǎn)到"按鈕時，讓ExplorerTree樹型目錄窗格轉(zhuǎn)到"地址"欄中輸入的地址目錄。

Private Sub Command1_Click()
　ExplorerTree1.BrowseFrom = Text1.Text
End Sub

　　(五)模仿Windows右鍵的查看菜單。

　　在Windows資源管理器中點擊鼠標右鍵選"查看"可以選擇查看文件的方式，而利用ExplorerList的View屬性也可以模仿出這個功能。

　　首先，我們要先設(shè)計一個彈出菜單。選擇"工具" 下的"菜單編輯器"進行菜單的設(shè)計.

　　菜單的具體設(shè)計如下表：

菜單標題信息  菜單名稱  是否可見 級別
彈出菜單 popmnu  否 1
查看 mnuView  可見  2
平鋪 mnuS  可見  3
圖標 mnuN 可見  3
列表 mnuL  可見  3
詳細信息 mnuD  可見  3

　　其次，設(shè)計好菜單后，添加以下代碼實現(xiàn)點擊鼠標右鍵彈出菜單。

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
　If Button = vbRightButton Then
　　PopupMenu popmnu
　End If
End Sub

　　最后，編碼以響應(yīng)菜單事件

Private Sub mnuD_Click()
　ExplorerList1.View = 3 ’詳細信息
End Sub
Private Sub mnuL_Click()
　ExplorerList1.View = 2 ’列表
End Sub

Private Sub mnuN_Click()
　ExplorerList1.View = 1 ’圖標
End Sub

Private Sub mnuS_Click()
　ExplorerList1.View = 0 ’平鋪
End Sub
 

　　這樣就可以模仿Windows資源管理器的右鍵菜單"查看"功能。

　　完成這幾步后這個簡單的實例程序就完成了，運行程序，效果如圖5。是不是和Windows資源管理器很象！當(dāng)然，還有其它具體的功能還待大家去實現(xiàn)。這里只是介紹NEWEX的簡單應(yīng)用。