夜夜夜久久久,久久99精品久久久久久综合,午夜毛片免费观看视频

簡介：
　　Windows資源管理器大家都不陌生，用它你可以做出與Windows幾乎一模一樣的資源管理器，非常實用。
　　使用實例:
　　Windows中的資源管理器想必大家都經常使用，利用NEWEX 這個優秀的第三方控件，我們可以用VB輕易做出與Windows幾乎一模一樣的資源管理器。下面通過一個例子向大家介紹該控件的簡單用法。
　　（一）加載控件
　　啟動Visual Basic 6.0，創建一個工程并保存為"工程1.vbp"，同時產生一個名為"Form1"的窗口。在工具箱的空白處單擊鼠標右鍵，從彈出的快捷菜單中啟動"部件"窗口，點擊"瀏覽"按鈕，從存放NEWEX控件的文件夾中找到newex.ocx文件。點擊"應用"后NEWEX控件就添加到工具箱中。你會發現工具箱中多了3個圖標，如圖1。我們要用到的是最后兩個。

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

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

　　ExplorerList的主要屬性

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

　　(三) 添加控件，完成界面的設置
　　在Form1中添加一個ExplorerTree和一個ExplorerLis控件,調整好位置大小。再在窗體中添加3個 Text控件和一個CommandButton控件，將Text控件的Caption屬性依次設置為"地址"，"文件"，"文件夾"。CommandButton控件的Caption屬性設置為"轉到"。如圖2所示。

圖2

　　(四)添加代碼，實現基本功能
　　利用NEWEX控件的屬性，我們可以添加一些代碼來完善它的功能。
　　①添加以下代碼，使右邊列表窗格顯示左邊樹型目錄窗格選定對象所包含的內容。

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

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

　　②利用ExplorerTree的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

　　④編寫代碼完成"轉到"按鈕的功能。當點擊"轉到"按鈕時，讓ExplorerTree樹型目錄窗格轉到"地址"欄中輸入的地址目錄。

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

　　(五)模仿Windows右鍵的查看菜單。
　　在Windows資源管理器中點擊鼠標右鍵選"查看"可以選擇查看文件的方式，而利用ExplorerList的View屬性也可以模仿出這個功能。
　　首先，我們要先設計一個彈出菜單。選擇"工具" 下的"菜單編輯器"進行菜單的設計.
　　如圖3。

圖3

　　菜單的具體設計如下表：

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

　　其次，設計好菜單后，添加以下代碼實現點擊鼠標右鍵彈出菜單。

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

　　最后，編碼以響應菜單事件

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資源管理器很象！當然，還有其它具體的功能還待大家去實現。這里只是介紹NEWEX的簡單應用。