关于treeview的节点，如何将数组保存到选择的节点中 - 编程论坛

#2

风吹过b2012-08-10 17:57

MSDN 上的一个示例，你研究一下吧。是针对你这个问题。

Children 属性示例
这个例子在 TreeView 控件中放置几个 Node 对象。这组代码检查 Node 是否有子节点。如果有，则显示子节点的文本。为试用此例，在窗体上安放一个 TreeView 控件，并在窗体的声明部分中粘贴下面的代码。运行此例，单击 Node 对象以选择它，然后单击该窗体来察看 Node 对象的子节点的文本。

程序代码：

Option Explicit
Private Sub Form_Click()
   Dim strC As String
   Dim N As Integer
   If TreeView1.SelectedItem.Children > 0 Then '有子节点。

      '获取第一个子节点的文本，并将 N 设置为它的索引值。
      strC = TreeView1.SelectedItem.Child.Text & vbLF
      N = TreeView1.SelectedItem.Child.Index

      '若 N 不是子节点的最后相邻节点的索引，
      '则获取下一个相邻节点的文本。
      While N <> TreeView1.SelectedItem.Child.LastSibling.Index
         strC = strC & TreeView1.Nodes(N).Next.Text & vbLF
         '重置 N 为下一个相邻节点的索引。
         N = TreeView1.Nodes(N).Next.Index
      Wend
      '显示结果。
      MsgBox "Children of " & TreeView1.SelectedItem.Text & _
      " are: " & vbLF & strC
   Else '没有子节点。
      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")

   '创建 1989 节点的子节点。
   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 '显示所有节点。

   '创建 1990 节点的子节点。
   Set nodX = TreeView1.Nodes.Add("d90",tvwChild, ,"Randy")
   Set nodX = TreeView1.Nodes.Add("d90",tvwChild, ,"Ron")
   nodX.EnsureVisible '显示所有节点。
End Sub

#3

g4141616962012-08-10 22:38

回复 2楼风吹过b

你这个方法很好，我那种方法是不是可行度不高？

#4

g4141616962012-08-13 11:44

回复 2楼风吹过b

对于这个节点的问题，我这边由于需要，还有一个过程要问，请帮忙，
我想的过程是：将数据库中的一些id保存到treeview的某个节点中，这样，当每次电机这个节点时，就能对应的显示这些id对应的数据。

#5

风吹过b2012-08-13 16:29

节点的ID 是可以指定的。除下 index 外，还可以有 key 属性。KEY属性，可以用数据库中的 ID 来。

如数据库中有一些数据如下：
ID 上级ID 内容
1  0  t1
2 1 t11
3 1 t12
4 3 t121
5 0 t2

那么你添加时的命令是：

if rs("上级id")=0 then
   Set nodX = TreeView1.Nodes.Add(,,"R" & rs("id") ,rs("内容") )
else
   Set nodX = TreeView1.Nodes.Add("R" & rs("上级id"),tvwChild,"R" & rs("id"),rs("内容"))
end if
每个节点的 KEY 为 R+ID 。KEY不能使用纯数字。