日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷解決方案
剖析VB.NET使用TreeView控件

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

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

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

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é)果是我們點(diǎn)開C盤后看到的文件夾，如果要獲取更深層次的文件夾列表，就要一個(gè)一個(gè)文件夾循環(huán)使用Directory.GetDirectories方法。

二、窗體布局

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

然后把TreeView控件的ImageList 屬性設(shè)置為 ImageList1，注意，TreeView控件還有一個(gè) SelectedImageIndex 屬性，它是用于獲取或設(shè)置當(dāng)樹節(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 屬性。

三、編寫代碼

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

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

 
 
 
    
  
  
  
  1. '添加文件夾 
    2. 
  
  
  
  2. Public Sub AddDirectory(ByVal strFatherPath As String, 
    ByVal strPath As String, ByVal nodeFather As TreeNode) 
    3. 
  
  
  
  3. Dim iDir As IO.Directory 
    4. 
  
  
  
  4. Dim iDirInfo As IO.DirectoryInfo 
    5. 
  
  
  
  5. Dim i As Integer 
    6. 
  
  
  
  6. Dim node As New TreeNode 
    7. 
  
  
  
  7. '先添加本目錄，從文件夾路徑分析出文件夾名稱 
    8. 
  
  
  
  8. node.Text = Strings.Replace(strPath, strFatherPath & "\", "", , 1) 
    9. 
  
  
  
  9. '為單個(gè)節(jié)點(diǎn)指定節(jié)點(diǎn)未被選中時(shí)顯示的圖標(biāo) 
    10. 
  
  
  
  10. node.ImageIndex = 1
    11. 
  
  
  
  11. '為單個(gè)節(jié)點(diǎn)指定節(jié)點(diǎn)被選中時(shí)顯示的圖標(biāo) 
    12. 
  
  
  
  12. node.SelectedImageIndex = 2
    13. 
  
  
  
  13. nodeFather.Nodes.Add(node) 
    14. 
  
  
  
  14. Application.DoEvents() 
    15. 
  
  
  
  15. Try 
    16. 
  
  
  
  16. Dim str() As String = iDir.GetDirectories(strPath) 
    17. 
  
  
  
  17. '遍歷該目錄的子文件夾 
    18. 
  
  
  
  18. For i = 0 To str.GetUpperBound(0) 
    19. 
  
  
  
  19. AddDirectory(strPath, str(i), node) 
    20. 
  
  
  
  20. Next 
    21. 
  
  
  
  21. Catch ex As Exception 
    22. 
  
  
  
  22. Debug.WriteLine(ex.Message 
    23. 
  
  
  
  23. End Try 
    24. 
  
  
  
  24. node = Nothing
    25. 
  
  
  
  25. iDir = Nothing
    26. 
  
  
  
  26. End Sub
    27.

本文題目：剖析VB.NET使用TreeView控件
鏈接URL：http://www.5511xx.com/article/coisghh.html