兽性总裁的爱奴,完美世界前传下载,大主宰之灵路天蚕土豆

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷(xiāo)解決方案

剖析VB.NET使用TreeView控件

VB.NET還是比較常用的，于是我研究了一下VB.NET使用TreeView控件，在這里拿出來(lái)和大家分享一下，希望對(duì)大家有用。VB.NET使用TreeView控件最典型的就是Windows資源管理中顯示文件夾列表的左邊欄，現(xiàn)在我們就模仿它來(lái)做一個(gè)按樹(shù)狀結(jié)構(gòu)顯示指定盤(pán)符中所有文件夾的小程序。

成都創(chuàng)新互聯(lián)公司專(zhuān)注于大寧企業(yè)網(wǎng)站建設(shè),自適應(yīng)網(wǎng)站建設(shè),電子商務(wù)商城網(wǎng)站建設(shè)。大寧網(wǎng)站建設(shè)公司,為大寧等地區(qū)提供建站服務(wù)。全流程按需網(wǎng)站開(kāi)發(fā)，專(zhuān)業(yè)設(shè)計(jì)，全程項(xiàng)目跟蹤，成都創(chuàng)新互聯(lián)公司專(zhuān)業(yè)和態(tài)度為您提供的服務(wù)

一、準(zhǔn)備知識(shí)

1、了解 TreeView控件的基本使用，掌握如何添加樹(shù)狀結(jié)構(gòu)的數(shù)據(jù)到TreeView控件中。

2、了解 ImageList 控件的基本使用。

3、了解VB.NET System.IO 命名空間中的Directory 類(lèi)的一些常用用法，下面我們先了解下本文要用到Directory類(lèi)的成員GetDirectories：它用于獲取指定目錄中子目錄的名稱(chēng)。如下代碼所示，獲取C：盤(pán)下的子目錄：

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

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

二、窗體布局

在窗體上拖放一個(gè)TreeView控件，一個(gè)Button 按鈕，一個(gè)ImageList 組件

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

三、編寫(xiě)代碼

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

首先，我們已經(jīng)知道，要想獲得樹(shù)狀結(jié)構(gòu)的每個(gè)層次中的子文件夾，我們必須使用遞歸過(guò)程來(lái)完成，下面所示代碼所執(zhí)行的工作是：先把一個(gè)已經(jīng)路徑的文件夾添加到樹(shù)狀結(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 
  
  
  '先添加本目錄，從文件夾路徑分析出文件夾名稱(chēng) 
  
  
  node.Text = Strings.Replace(strPath, strFatherPath & "\", "", , 1) 
  
  
  '為單個(gè)節(jié)點(diǎn)指定節(jié)點(diǎn)未被選中時(shí)顯示的圖標(biāo) 
  
  
  node.ImageIndex = 1
  
  
  '為單個(gè)節(jié)點(diǎn)指定節(jié)點(diǎn)被選中時(shí)顯示的圖標(biāo) 
  
  
  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

文章題目：剖析VB.NET使用TreeView控件
當(dāng)前URL：http://fisionsoft.com.cn/article/coisghh.html

新聞中心

其他資訊