[分享]树形目录控件——TreeView控件介绍

布山客

真的太强大了

tlxbx

留个记号,慢慢研究

ch_liu2000

你的无私奉献使我进步，谢谢了

ch_liu2000

附件坏了,下了打不开啊

Knight_BJ

大神~~~~~~~~~~

OKJSJSF

fanjy 发表于 2007-4-27 21:53
[示例四] 自动创建树状图形(Add方法示例)在VBE编辑器中插入一个用户窗体，并放置一个TreeView控件。然后在 ...

Private Sub UserForm_Initialize()
  Dim i As Long
  Dim j As Long
  Dim k As Long
  Dim Title As String
  Dim xNode As Node
  Dim NodeKey As String
  Dim NodeKey2 As String
  With Me.TreeView1
    For i = 1 To 5
      Set xNode = .Nodes.Add
      NodeKey = "Node - " & i
      With xNode
        .Key = NodeKey
        .Text = "Node - " & i
        .Expanded = False
      End With
      For j = 1 To 7
        Set xNode = .Nodes.Add(NodeKey, tvwChild)
        NodeKey2 = "Node - Child - " & i & j
        With xNode
          .Key = NodeKey2
          .Text = "Child - " & j
        End With
        For k = 1 To 10
          Set xNode = .Nodes.Add(NodeKey2, tvwChild)
          With xNode
            .Text = "Child2 - " & k
          End With
        Next k
      Next j
    Next i
  End With
  Set xNode = Nothing
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
  Me.Caption = Node.Text
End Sub
这段代码最有逻辑性，我想学如何用这段代码写同一级的各个节点的不同文本内容？不每个节点各写一句Set xnode=......

chenhu1981

强大，很强大

miaods2002

十分感谢！

ilikevba2011

十分感谢！这么多年了，还在这。

peizhsh005

楼主辛苦了，总结得很好。谢谢分享！
我qq3030490161，如果可能的话，加个qq好友。