一个窗体,建立一个TreeView控件,命名为TreeView0,事件代码如下:
Private Sub Form_Load()
Dim nodindex As Node
TreeView0.Nodes.Clear
Set nodindex = TreeView0.Nodes.Add(, , "根节点1", "根节点1")
Set nodindex = TreeView0.Nodes.Add(, , "根节点2", "根节点2")
Set nodindex = TreeView0.Nodes.Add(, , "根节点3", "根节点3")
Set nodindex = TreeView0.Nodes.Add(, , "根节点4", "根节点4")
End Sub