軟件首頁 |  文章首頁
最新更新 軟件分類 設(shè)為首頁 加入收藏 聯(lián)系我們
當(dāng)前位置:首頁文章首頁 IT學(xué)院 VB

VB中用第三方控件制作資源管理器

作者:東坡下載  來源:uzzf  發(fā)布時(shí)間:2010-10-14 13:49:10  點(diǎn)擊:

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

 
圖1
  (二) 主要屬性介紹
  本例中我們用到的是ExplorerTree(樹型目錄窗格)和ExplorerLis(列表窗格,用以顯示左邊選定對象所包含的內(nèi)容)。下面列出它們的幾個(gè)主要屬性。
  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-圖標(biāo),2-列表,3-詳細(xì)信息
FileName選中文件的文件名

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


圖2

  (四)添加代碼,實(shí)現(xiàn)基本功能
  利用NEWEX控件的屬性,我們可以添加一些代碼來完善它的功能。
  ①添加以下代碼,使右邊列表窗格顯示左邊樹型目錄窗格選定對象所包含的內(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

 �、劾肊xplorerList的GetFileName 方法和filename屬性,讓Text2文本框顯示在ExplorerList窗格中選定的文件。

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

  ④編寫代碼完成"轉(zhuǎn)到"按鈕的功能。當(dāng)點(diǎn)擊"轉(zhuǎn)到"按鈕時(shí),讓ExplorerTree樹型目錄窗格轉(zhuǎn)到"地址"欄中輸入的地址目錄。

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

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

圖3

  菜單的具體設(shè)計(jì)如下表:

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

  其次,設(shè)計(jì)好菜單后,添加以下代碼實(shí)現(xiàn)點(diǎn)擊鼠標(biāo)右鍵彈出菜單。

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 ’詳細(xì)信息
End Sub

Private Sub mnuL_Click()
 ExplorerList1.View = 2 ’列表
End Sub

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

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


  這樣就可以模仿Windows資源管理器的右鍵菜單"查看"功能。
  完成這幾步后這個(gè)簡單的實(shí)例程序就完成了,運(yùn)行程序,效果如圖5。是不是和Windows資源管理器很象!當(dāng)然,還有其它具體的功能還待大家去實(shí)現(xiàn)。這里只是介紹NEWEX的簡單應(yīng)用。


圖4

文章評論

欄目導(dǎo)航

本類推薦文章

關(guān)于本站 | 網(wǎng)站幫助 | 廣告合作 | 下載聲明 | 友情連接 | 網(wǎng)站地圖
Copyright © 20098-2010 uzzf下載站. All Rights Reserved .