本篇內容主要講解“怎么利用TreeView控件顯示VB.NET文件夾列表”，感興趣的朋友不妨來看看。本文介紹的方法操作簡單快捷，實用性強。下面就讓小編來帶大家學習“怎么利用TreeView控件顯示VB.NET文件夾列表”吧!

成都創(chuàng)新互聯(lián)公司是一家專注網(wǎng)站建設、網(wǎng)絡營銷策劃、微信小程序開發(fā)、電子商務建設、網(wǎng)絡推廣、移動互聯(lián)開發(fā)、研究、服務為一體的技術型公司。公司成立10多年以來，已經(jīng)為上千家成都集裝箱各業(yè)的企業(yè)公司提供互聯(lián)網(wǎng)服務。現(xiàn)在，服務的上千家客戶與我們一路同行，見證我們的成長；未來，我們一起分享成功的喜悅。

一、VB.NET文件夾準備知識

1、了解 TreeView 控件的基本使用，掌握了如何添加樹狀結構的數(shù)據(jù)到TreeView 控件中，相關文章參看這里：vb.net入門——TreeView 控件的使用
2、了解 ImageList 控件的基本使用。
3、了解vb.net System.IO 命名空間中的Directory 類的一些常用用法，下面我們先了解下本文要用到Directory類的成員GetDirectories：它用于獲取指定目錄中子目錄的名稱。如下代碼所示，獲取C：盤下的子目錄：

Dim dirs As String() = Directory.GetDirectories("c:\")

其結果是我們點開C盤后看到的文件夾，如果要獲取更深層次的文件夾列表，就要一個一個文件夾循環(huán)使用Directory.GetDirectories方法。

二、VB.NET文件夾窗體布局

在窗體上拖放一個TreeView 控件，一個Button 按鈕，一個ImageList 組件。

在ImageList 組件中按順序添加如下三個圖標(單擊這里下載圖標文件)，圖標大小設置為16*16。

然后把TreeView 控件的ImageList 屬性設置為 ImageList1，注意，TreeView 控件還有一個 SelectedImageIndex 屬性，它是用于獲取或設置當樹節(jié)點選定時所顯示的圖像的圖像列表索引值。我們注意到其實TreeView 控件的每一個Node(節(jié)點)都有一個屬于自己的 SelectedImageIndex 屬性值，所以我們可以像設置節(jié)點的 ImageIndex 屬性一樣在運行時單位為每一個Node設置 SelectedImageIndex 屬性。

三、VB.NET文件夾編寫代碼

上面的準備工作和界面布置我們已經(jīng)做好了，現(xiàn)在可以進行代碼編寫了。

首先，我們已經(jīng)知道，要想獲得樹狀結構的每個層次中的子文件夾，我們必須使用遞歸過程來完成，下面所示代碼所執(zhí)行的工作是：先把一個已經(jīng)路徑的文件夾添加到樹狀結構中，然后再遍歷它的子文件夾：

'添加文件夾  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

然后在按鈕的Click事件中添加代碼，用于添加樹狀結構的頂層以及調用遍歷子文件的遞歸過程，詳細代碼如下：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  Dim iDir As IO.Directory  Dim node As New TreeNode  '先把C盤添加到樹中  TreeView1.Nodes.Clear()  node.ImageIndex = 0 node.Text = "本地磁盤 C:" node.SelectedImageIndex = -1  TreeView1.Nodes.Add(node)  Dim i As Integer  '獲取C:盤根目錄下的文件夾  Dim str() As String = iDir.GetDirectories("C:\")  For i = 0 To str.GetUpperBound(0)  '調用遍歷過程  AddDirectory("C:", str(i), node)  Next  node = Nothing iDir = Nothing End Sub

代碼添加完畢后，運行，效果如下圖所示：

顯示C盤的效果

到此，相信大家對“怎么利用TreeView控件顯示VB.NET文件夾列表”有了更深的了解，不妨來實際操作一番吧！這里是創(chuàng)新互聯(lián)網(wǎng)站，更多相關內容可以進入相關頻道進行查詢，關注我們，繼續(xù)學習！

網(wǎng)站欄目：怎么利用TreeView控件顯示VB.NET文件夾列表
網(wǎng)頁鏈接：http://www.chinadenli.net/article16/pejidg.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站導航、品牌網(wǎng)站建設、定制網(wǎng)站、靜態(tài)網(wǎng)站、移動網(wǎng)站建設、網(wǎng)頁設計公司

廣告

聲明：本網(wǎng)站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經(jīng)允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯(lián)