剖析VB.NET使用TreeView控件
VB.NET還是比較常用的，于是我研究了一下VB.NET使用TreeView控件，在這里拿出來和大家分享一下，希望對大家有用。VB.NET使用TreeView控件最典型的就是Windows資源管理中顯示文件夾列表的左邊欄，現(xiàn)在我們就模仿它來做一個按樹狀結(jié)構(gòu)顯示指定盤符中所有文件夾的小程序。
一、準備知識
1、了解 TreeView控件的基本使用，掌握如何添加樹狀結(jié)構(gòu)的數(shù)據(jù)到TreeView控件中。
2、了解 ImageList 控件的基本使用。
3、了解VB.NET System.IO 命名空間中的Directory 類的一些常用用法，下面我們先了解下本文要用到Directory類的成員GetDirectories：它用于獲取指定目錄中子目錄的名稱。如下代碼所示，獲取C：盤下的子目錄：
Dim dirs As String() = Directory.GetDirectories("c:\")
其結(jié)果是我們點開C盤后看到的文件夾，如果要獲取更深層次的文件夾列表，就要一個一個文件夾循環(huán)使用Directory.GetDirectories方法。
二、窗體布局
在窗體上拖放一個TreeView控件，一個Button 按鈕，一個ImageList 組件
然后把TreeView控件的ImageList 屬性設(shè)置為 ImageList1，注意，TreeView控件還有一個 SelectedImageIndex 屬性，它是用于獲取或設(shè)置當(dāng)樹節(jié)點選定時所顯示的圖像的圖像列表索引值。我們注意到其實VB.NET使用TreeView控件的每一個Node(節(jié)點)都有一個屬于自己的 SelectedImageIndex 屬性值，所以我們可以像設(shè)置節(jié)點的 ImageIndex 屬性一樣在運行時單位為每一個Node設(shè)置 SelectedImageIndex 屬性。
三、編寫代碼
上面的準備工作和界面布置我們已經(jīng)做好了，現(xiàn)在可以進行代碼編寫了。
首先，我們已經(jīng)知道，要想獲得樹狀結(jié)構(gòu)的每個層次中的子文件夾，我們必須使用遞歸過程來完成，下面所示代碼所執(zhí)行的工作是：先把一個已經(jīng)路徑的文件夾添加到樹狀結(jié)構(gòu)中，然后再遍歷它的子文件夾：
- '添加文件夾
- Public Sub AddDirectory(ByVal strFatherPath As String,
ByVal strPath As String, ByVal nodeFather As TreeNode)- Dim iDir As IO.Directory
- Dim iDirInfo As IO.DirectoryInfo
- Dim i As Integer
- Dim node As New TreeNode
- '先添加本目錄，從文件夾路徑分析出文件夾名稱
- node.Text = Strings.Replace(strPath, strFatherPath & "\", "", , 1)
- '為單個節(jié)點指定節(jié)點未被選中時顯示的圖標
- node.ImageIndex = 1
- '為單個節(jié)點指定節(jié)點被選中時顯示的圖標
- node.SelectedImageIndex = 2
- nodeFather.Nodes.Add(node)
- Application.DoEvents()
- Try
- Dim str() As String = iDir.GetDirectories(strPath)
- '遍歷該目錄的子文件夾
- For i = 0 To str.GetUpperBound(0)
- AddDirectory(strPath, str(i), node)
- Next
- Catch ex As Exception
- Debug.WriteLine(ex.Message
- End Try
- node = Nothing
- iDir = Nothing
- End Sub
【編輯推薦】
