在中 TreeView(樹型結(jié)構(gòu))控件是顯示節(jié)點(Node)對象的級層結(jié)構(gòu) 它通常用于顯示一些有等級結(jié)構(gòu)的信息 我們最為熟悉的就是Windows資源管理器左邊顯示文件和文件夾的窗口 在工具箱中 TreeView 控件的圖標如下圖一所示
青白江網(wǎng)站建設公司創(chuàng)新互聯(lián),青白江網(wǎng)站設計制作，有大型網(wǎng)站制作公司豐富經(jīng)驗。已為青白江近千家提供企業(yè)網(wǎng)站建設服務。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站建設要多少錢，請找那個售后服務好的青白江做網(wǎng)站的公司定做！
TreeView控件的每個節(jié)點(Node對象)包含了一個標簽和可選的點位圖 每個節(jié)點又可能包含有若干個的子節(jié)點 可以通過控制某個節(jié)點來展開顯示或者折疊隱藏它所包含的子節(jié)點
一 TreeView 控件的一些常用屬性
CheckBoxes 屬性 指示是否在樹視圖控件中的樹節(jié)點旁顯示復選框
FullRowSelect 屬性 當 FullRowSelect 為 true 時 選擇突出顯示將跨越樹視圖的整個寬度 即整個顯示區(qū)域的寬度而不僅僅是樹節(jié)點標簽的寬度 如果 ShowLines 設置為 true 則將忽略 FullRowSelect 屬性
HideSelection 屬性 指示選定的樹節(jié)點是否即使在樹視圖已失去焦點時仍會保持突出顯示
HotTracking 屬性 如果 HotTracking 屬性設置為 true 那么當鼠標指針移過每個樹節(jié)點標簽時 樹節(jié)點標簽都將具有超級鏈接的外觀 Underline 字體樣式將應用于 Font 而 ForeColor 將設置為藍色 從而使標簽顯示為鏈接 注意 如果 CheckBoxes 屬性設置為 true HotTracking 屬性將失效
Indent 屬性 設置每個子樹節(jié)點級別的縮進距離(以像素為單位)
ItemHeight 屬性 設置樹視圖控件中每個樹節(jié)點的高度
Nodes 屬性 獲取分配給樹視圖控件的樹節(jié)點集合 這個屬性是TreeView 控件最重要的屬性之一 我們下文將會對它進行更加的詳細的說明
PathSeparator 屬性 樹節(jié)點路徑(TreeNode FullPath 屬性)所使用的分隔符串 默認為反斜杠字符 (\) 樹節(jié)點路徑包括一組由 PathSeparator 分隔符串分隔的樹節(jié)點標簽 標簽的范圍為根樹節(jié)點到所需的樹節(jié)點 如下代碼我們可以獲得當前選中的節(jié)點的路徑
MessageBox Show(TreeView SelectedNode FullPath)
SelectedNode 屬性 獲取或設置當前在樹視圖控件中選定的樹節(jié)點 如果沒有選定任何節(jié)點 則 SelectedNode 屬性則為Nothing
ShowLines 屬性 指示是否在樹視圖控件中的樹節(jié)點之間繪制連線
ShowPlusMinus 屬性 指示是否在包含子樹節(jié)點的樹節(jié)點旁顯示加號 (+) 和減號 ( ) 按鈕
ShowRootLines 屬性 指示是否在樹視圖根處的樹節(jié)點之間繪制連線
如下圖二所示 為ShowLines 屬性 ShowPlusMinus 屬性 ShowRootLines 屬性都設置為True的情形
二 為TreeView 控件添加節(jié)點
TreeView 控件的 Nodes 屬性包含了它所有的節(jié)點 下面我們就來了解如何為樹狀控件添加節(jié)點
通過樹節(jié)點編輯器添加
選中TreeView 控件 在它的屬性對話框中找到Nodes 屬性 然后單擊它后面的省略號 彈出 樹節(jié)點編輯器 如下圖三所示
然后通過編輯器上的 添加根 來添加根節(jié)點 通過 添加子級 來為選中的節(jié)點添加子節(jié)點 通過 刪除 來刪除選定的節(jié)點 標簽 輸入框確定節(jié)點的名稱 注意 只有設置了TreeView 控件的ImageList 屬性才能選擇設置節(jié)點的圖像
通過編程方式添加節(jié)點
給TreeView添加結(jié)點用到的是 Nodes Add 方法 首先選定要添加子結(jié)點的結(jié)點才能應用這個方法
TreeView中的結(jié)點的組織關(guān)系是父結(jié)點管理子結(jié)點的關(guān)系 也就是說 子結(jié)點組成的集合就是父結(jié)點的 Nodes 屬性 子結(jié)點的 Index 屬性 是根據(jù)其在子結(jié)點集合中的位置而決定的 而不是整棵樹中結(jié)點的位置 根據(jù)這個特點 若想找到指定結(jié)點須按以下的語法
TreeViewName Nodes Item(Index ) Nodes
而添加結(jié)點的方法為
TreeViewName Nodes Item(Index ) Nodes Add( NodeText )或
TreeViewName Nodes Item(Index ) Nodes Add( objNode )
如下代碼所示為選中的節(jié)點添加一個子節(jié)點
TreeView SelectedNode Nodes Add( )
編程刪除節(jié)點
使用Nodes屬性的Remove 方法刪除單個節(jié)點 也可以使用Clear 方法清除所有的節(jié)點 如下代碼所示
刪除選定的節(jié)點
TreeView Nodes Remove(TreeView SelectedNode)
清除TreeView 控件的所有節(jié)點
TreeView Nodes Clear()
示例演示
我們現(xiàn)在用一個實例來看如何使用Nodes屬性來實現(xiàn)代碼編程添加刪除樹形控件的節(jié)點 首先為設計如下圖四所示的程序界面 其中有四個Button 控件 一個TreeView 控件
為 添加根節(jié)點 按鈕添加如下代碼
TreeView Nodes Add( 根節(jié)點 (TreeView GetNodeCount(False) + ))
注意 GetNodeCount方法為獲得本級別的節(jié)點數(shù) 可以通過參數(shù)False來指定不包括它的子節(jié)點
為 添加子節(jié)點 按鈕添加如下代碼
Dim node As TreeNode = TreeView SelectedNode
If Not node Is Nothing Then
node Nodes Add( 子節(jié)點 (node GetNodeCount(False) + ))
Else
MessageBox Show( 沒有選中任何節(jié)點 )
End If
注意 TreeNode GetNodeCount 方法返回的是分配給 Nodes 集合的子樹節(jié)點的數(shù)目
為 刪除單個節(jié)點 按鈕添加代碼
Dim node As TreeNode = TreeView SelectedNode
If node Is Nothing Then
MessageBox Show( 沒有選中任何節(jié)點 )
Else
TreeView Nodes Remove(node)
End If
為 刪除所有節(jié)點 按鈕添加代碼
TreeView Nodes Clear()
代碼添加完畢后 運行程序 分別使用 添加根節(jié)點 添加子節(jié)點 為控件添加節(jié)點 如下圖五所示
然后再試驗刪除節(jié)點的效果
三 訪問控件的所有節(jié)點
因為Nodes集合中所包含的只是本級節(jié)點的集合 如果某個Node包含有子節(jié)點 并不會從當前的Nodes體現(xiàn)出來 如下代碼所示 我們只能訪問到所有的根節(jié)點而不是所有的節(jié)點
假定我們是在前面示例的基礎(chǔ)上添加一個名為 遍歷節(jié)點 的按鈕 然后在該按鈕的Click事件中添加如下代碼
Dim node As TreeNode
Dim str As String =
For Each node In TreeView Nodes
str = str node Text vbCr
Next
MessageBox Show(str)
node = Nothing
運行后 先分別為控件添加若干個根節(jié)點與子節(jié)點 然后單擊 遍歷節(jié)點 按鈕 效果如下圖六所示
很明顯 我們遍歷了Nodes集合 但是并沒有如期訪問到子節(jié)點 怎么解決這個問題呢？請看下一頁
如上頁的問題 我們假設一個根節(jié)點的Nodes集合為Nodes 該集合中的一個Node節(jié)點為Node Node 下有若干個子節(jié)點 我們把它的子節(jié)點的集合稱為Nodes 我們用For Each 遍歷Nodes 時 它訪問到Node 但不會訪問Nodes 集合
如果我們要訪問Nodes 就需要像遍歷Nodes 一樣遍歷Nodes 解決辦法如下
首先 建立一個過程用于遍歷一個Node節(jié)點下的子節(jié)點
Private Sub PrintNode(ByVal N As TreeNode)
Debug WriteLine(N Text)
Dim node As TreeNode
For Each node In N Nodes
PrintNode(node)
Next
End Sub
然后把 遍歷節(jié)點 的Click事件中修改為如下代碼
Dim node As TreeNode
For Each node In TreeView Nodes
PrintNode(node)
Next
node = Nothing
運行后 先分別為控件添加若干個根節(jié)點與子節(jié)點 然后單擊 遍歷節(jié)點 按鈕 然后查看 輸出 窗口 效果如下圖七所示
可以發(fā)現(xiàn)已經(jīng)能真正地遍歷了所有節(jié)點
lishixinzhi/Article/program/net/201311/11617
CAD里的結(jié)點是什么信息了，要輸出世界坐標還是用戶坐標，最好把CAD文件發(fā)上來，不清楚怎么有人能幫你？？
TreeView的SelectedNode屬性獲取或設置當前選擇的節(jié)點。
TreeView1.SelectedNode?=?TreeView1.Nodes(1)?'選擇第二個節(jié)點
重慶分公司
重慶分公司
