===================VB6 Treeview的添加节点子节点、Treeview打开、Treeview关闭'在窗体上方一个Treeview,四个command Option Explicit Private Sub Command1_Click() Static i As Integer TreeView1.Nodes.Add,"Text" & i,"Text" & i TreeView1.Nodes("Text" & i).Selected = True TreeView1.SetFocus i = i + 1 End Sub Private Sub Command2_Click() Static i As Integer TreeView1.Nodes.Add TreeView1.SelectedItem.Key,tvwChild,"TestSub" & i,"TestSub" & i TreeView1.SetFocus i = i + 1 End Sub Private Sub Command3_Click() Dim i As Integer For i = 1 To TreeView1.Nodes.Count If TreeView1.Nodes(i).Expanded = False Then TreeView1.Nodes(i).Expanded = True End If Next End Sub Private Sub Command4_Click() Dim i As Integer For i = 1 To TreeView1.Nodes.Count If TreeView1.Nodes(i).Expanded = True Then TreeView1.Nodes(i).Expanded = False End If Next End Sub Private Sub Form_Load() TreeView1.LineStyle = tvwRootLines TreeView1.Indentation = 200 Command1.Caption = "添加节点" Command2.Caption = "添加子节点" Command3.Caption = "展开所有" Command4.Caption = "收缩所有" End Sub
