'在窗体上方一个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
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