treeview的expand和Collapse事件里面去处理 举个例子 Private Sub Command1_Click() t1.Nodes.Add , , "n1", "node1" t1.Nodes.Add "n1", tvwChild, "n1-1", "node1-1" t1.Nodes.Add , , "n2", "node2" t1.Nodes.Add "n2", tvwChild, "n2-1", "node2-1" End SubPrivate Sub t1_Collapse(ByVal Node As MSComctlLib.Node) If Node.Key = "n2" Then Node.Expanded = Not (Node.Expanded) End If End SubPrivate Sub t1_Expand(ByVal Node As MSComctlLib.Node) If Node.Key = "n1" Then Node.Expanded = Not (Node.Expanded) End If End Sub node1 和 node2 都有子项 node1不允许展开,node2不允许收缩
举个例子
Private Sub Command1_Click()
t1.Nodes.Add , , "n1", "node1"
t1.Nodes.Add "n1", tvwChild, "n1-1", "node1-1"
t1.Nodes.Add , , "n2", "node2"
t1.Nodes.Add "n2", tvwChild, "n2-1", "node2-1"
End SubPrivate Sub t1_Collapse(ByVal Node As MSComctlLib.Node)
If Node.Key = "n2" Then
Node.Expanded = Not (Node.Expanded)
End If
End SubPrivate Sub t1_Expand(ByVal Node As MSComctlLib.Node)
If Node.Key = "n1" Then
Node.Expanded = Not (Node.Expanded)
End If
End Sub
node1 和 node2 都有子项
node1不允许展开,node2不允许收缩