MSDN 上的一個示例,你研究一下吧。是針對你這個問題。
Children 屬性示例
這個例子在 TreeView 控件中放置幾個 Node 對象。這組代碼檢查 Node 是否有子節(jié)點。如果有,則顯示子節(jié)點的文本。為試用此例,在窗體上安放一個 TreeView 控件,并在窗體的聲明部分中粘貼下面的代碼。運行此例,單擊 Node 對象以選擇它,然后單擊該窗體來察看 Node 對象的子節(jié)點的文本。
Option Explicit
Private Sub Form_Click()
Dim strC As String
Dim N As Integer
If TreeView1.SelectedItem.Children > 0 Then '有子節(jié)點。
'獲取第一個子節(jié)點的文本,并將 N 設(shè)置為它的索引值。
strC = TreeView1.SelectedItem.Child.Text & vbLF
N = TreeView1.SelectedItem.Child.Index
'若 N 不是子節(jié)點的最后相鄰節(jié)點的索引,
'則獲取下一個相鄰節(jié)點的文本。
While N <> TreeView1.SelectedItem.Child.LastSibling.Index
strC = strC & TreeView1.Nodes(N).Next.Text & vbLF
'重置 N 為下一個相鄰節(jié)點的索引。
N = TreeView1.Nodes(N).Next.Index
Wend
'顯示結(jié)果。
MsgBox "Children of " & TreeView1.SelectedItem.Text & _
" are: " & vbLF & strC
Else '沒有子節(jié)點。
MsgBox TreeView1.SelectedItem.Text & " has no children"
End If
End Sub
Private Sub Form_Load()
TreeView1.BorderStyle = 1 '確保邊界是可視的。
Dim nodX As Node
Set nodX = TreeView1.Nodes.Add(,,"d","Dates")
Set nodX = TreeView1.Nodes.Add("d",tvwChild,"d89","1989")
Set nodX = TreeView1.Nodes.Add("d",tvwChild,"d90","1990")
'創(chuàng)建 1989 節(jié)點的子節(jié)點。
Set nodX = TreeView1.Nodes.Add("d89",tvwChild, ,"John")
Set nodX = TreeView1.Nodes.Add("d89",tvwChild, ,"Brent")
Set nodX = TreeView1.Nodes.Add("d89",tvwChild, ,"Eric")
Set nodX = TreeView1.Nodes.Add("d89",tvwChild, ,"Ian")
nodX.EnsureVisible '顯示所有節(jié)點。
'創(chuàng)建 1990 節(jié)點的子節(jié)點。
Set nodX = TreeView1.Nodes.Add("d90",tvwChild, ,"Randy")
Set nodX = TreeView1.Nodes.Add("d90",tvwChild, ,"Ron")
nodX.EnsureVisible '顯示所有節(jié)點。
End Sub
本站僅提供存儲服務(wù),所有內(nèi)容均由用戶發(fā)布,如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請
點擊舉報。