VB第三方控件實現XP資源管理器垂直欄

　簡介

　　ctlExplorerBar控件一個可以實現類似Windows XP資源管理器中右側垂直欄的控件，它不僅可以創建不同的菜單組、在菜單組下添加項目，還可以為每一個項目編寫感應事件，同時它更是可以實現圖片的預覽，簡直和資源管理器的垂直欄一樣！在許多軟件界面中，它都可以發揮非常好的作用。

　　下載本文控件和源代碼

　　應用實例

　　想讓你的程序更加吸引眼球嗎？想在你的程序中打造像Windows XP資源管理器左側那樣的垂直欄嗎？只要在你的程序中加上ctlExplorerBar控件，通過幾段簡單的代碼，就可以輕松實現這個似乎復雜的界面效果，完全使你拋棄了繁雜的代碼！這個控件不僅容易使用，而且它實現的界面效果非常出色，完全和Windows XP中一樣（如圖1）。 下面我們就結合一個實例來說明使用方法，相信它的簡單易用和出色效果會讓你動心！


　　要了解該控件強大便捷的功能，下面我們就通過一個實例來講解。

　　第一步：首先啟動Visual Basic 6.0，新建一個窗口。
　　
　　第二步：加載ctlExplorerBar控件。

　?、僭诳丶ぞ邫谥袉螕粲益I，選擇“部件”，在彈出的窗口中點擊“瀏覽”，找到ctlExplorerBar控件，載入它，命名為“XPmenu”；把它放到Form1窗體中任意位置即可。其他屬性保持默認即可。

　　第三步：加載其他控件，完成界面的設置。

　?、偬砑铀膫€Image控件，分別命名imgDesktop、imgShare、imgComputer和imgNetwork，用來加載如圖1所示的“桌面其他”分欄下四個項前的小圖標。為這四個Image控件分別載入適當的小圖標（如圖2）。


　?、谠偬砑右粋€Image控件，載入一副圖片，用來演示如何實現圖像預覽的功能。

　　這個演示程序在界面和屬性設置上都非常的簡單，只要把控件放在界面上任意位置即可，不需要設置屬性。ctlExplorerBar的位置我們可以在程序運行時進行調整。上面說到的圖片我們使用了Image控件來加載，當然你喜歡的話也可以用Picture控件或者是ImageList控件來加載，它們實現的效果是一樣的。如果用Picture控件，別忘了把其Autosize屬性設置為True。

　　到這里就完成了這個演示程序的界面設置，接著進行代碼的編寫。

　　第三步：編寫代碼，實現界面演示。

　?、倬帉慒orm1的Load事件，使程序啟動時調整ctlExplorerBar的位置，并且載入相應的分欄和項目等。代碼如下：

clearcase/" target="_blank" >cccccc" width="90%" align="center" bgcolor="#e3e3e3" border="1">

Private Sub Form_Load() 　 XPmenu.Top = 0 　 XPmenu.Left = 0 　 XPmenu.Width = Me.Width 　 XPmenu.AddNormalItem "文件和文件夾任務", False 　 　XPmenu.AddSubItem 1, "重命名這個文件", imgDesktop.Picture 　 　’…… 　 　’依照上面的格式，可以在該分欄下添加更多的項 　 XPmenu.AddNormalItem "其他位置" 　 　XPmenu.AddSubItem 2, "桌面", imgDesktop.Picture 　 　XPmenu.AddSubItem 2, "共享文檔", imgShare.Picture 　 　XPmenu.AddSubItem 2, "我的電腦", imgComputer.Picture 　 　XPmenu.AddSubItem 2, "網上鄰居", imgNetwork.Picture 　 XPmenu.AddDetailItem "詳細信息", "MyPicture1.jpg", "JPEG 圖像" & vbCrLf & "尺寸: 100 x 100" & vbCrLf & "大小: 12.5 kB" & vbCrLf & "修改時間: 2005-09-10 14:46", imgCan.Picture End Sub

　　現在你馬上就可以按下F5預覽一下效果了，是不是很容易？別心急，我們再來分析下上面的代碼，更好的掌握其的使用方法。

　　分析上面的代碼中，很容易可以知道要添加普通分欄的話，只要使用控件的AddNormalItem方法，后面跟上分欄的標題即可。該方法的第二個參數默認值為True，如果設置為False，那么這個分欄顯示時是收起的，在上面的圖1中可以看到效果。

　　有了分欄后我們可以在其下添加項，通過AddSubItem方法即可。在第一個參數中，輸入其所屬分欄的序號，第二個和第三個參數分別是標題和圖標。

　　要實現帶有圖片預覽功能的分欄，可以AddDetailItem方法，其參數格式是：（分欄標題,圖片信息說明,圖片源）。需要注意的是，這種的分欄不能添加下屬項。

　?、谔砑哟绑w改變大小的事件，實現控件同步改變。

Private Sub Form_Resize() 　XPmenu.Height = Me.ScaleHeight End Sub

　　當窗體的大小發生改變時候，同時也自動改變ctlExplorerBar的大小。通常只是改變ctlExplorerBar顯示的高度，而寬度是不改變的，就像XP資源管理器中一樣。

　　第四步：編寫代碼，實現ctlExplorerBar的事件相應。

　?、倬帉慶tlExplorerBar的分欄的打開、收起事件，代碼如下：

Private Sub XPmenu_Collapse(ByVal Index As Integer) 　Me.Caption = "收起 " & Index End Sub Private Sub XPmenu_Expand(ByVal Index As Integer) 　Me.Caption = "展開 " & Index End Sub

　　從上面的代碼中我們可以看到，ctlExplorerBar提供了兩個點擊的事件，在這里的示例中我們把事件的相應放映在窗體標題欄中，當點擊分欄時候，窗體標題欄就會顯示收起或者展開哪一個分欄。

　?、谔砑狱c擊分欄中項目的事件。

Private Sub XPmenu_SubItemClick(ByVal Index As Integer, ByVal SubItemIndex As Integer) 　Me.Caption = "單擊 " & Index & " 在 " & SubItemIndex & " (" & XPmenu.SubItem(Index, SubItemIndex) & ")" 　Me.Icon = XPmenu.SubItemIcon(Index, SubItemIndex) End Sub

　　當用戶點擊分欄中的某個項目時，窗體的標題欄顯示項目的Index以及其所在分欄。上面的代碼告訴你怎樣使用項目的點擊響應，對于你的實際應用是很有用的。

　　到這里，這個演示程序就完成了，按下F5，你就可以看到如圖1一樣的效果了。

　　另外，ctlExplorerBar還支持標題分欄標題圖片和背景，同樣只要用兩個Image控件載入兩幅圖片，這里我們命名為imgImages和imgBack，然后添加分欄時候使用如下代碼：

XPmenu.AddNormalItem "分欄示例", True, imgImages.Picture, imgBack.Picture

　　運行程序后我們可以看到實際的效果，多了標題圖片和背景（如圖3），是不是更漂亮呢？再試一試用AddSpecialItem方法來添加分欄，會有不一樣的效果哦:-)


　　有了ctlExplorerBar控件，我們可以很方便地做出漂亮美觀的界面，可以應用在信息顯示、導航等應用中，相信可以為你的程序添加更多的方便和亮點！

原文轉自：http://www.anti-gravitydesign.com