Option Explicit Dim i As IntegerPrivate Sub Command1_Click() '加载一个 父节点 TreeView1.Nodes.Add , , "Keymain" & i, "父节点" & i, 1 i = i + 1 End SubPrivate Sub Command2_Click() '在最后一个父节点加子节点 TreeView1.Nodes("Keymain" & i - 1).Expanded = True '展开节点 Static j TreeView1.Nodes.Add "Keymain" & i - 1, tvwChild, "key" & j, "加子节点" & j, 2 j = j + 1 End SubPrivate Sub Command3_Click() '改变最后一个子节点对象的图标 Dim CldNode As Node Set CldNode = TreeView1.Nodes(i - 1).Child
Do Until CldNode Is Nothing CldNode.Image = 3 Set CldNode = CldNode.Next Loop End Sub
选中TreeView控件按F1就可以调msdn了啊
Dim i As IntegerPrivate Sub Command1_Click()
'加载一个 父节点 TreeView1.Nodes.Add , , "Keymain" & i, "父节点" & i, 1
i = i + 1
End SubPrivate Sub Command2_Click()
'在最后一个父节点加子节点
TreeView1.Nodes("Keymain" & i - 1).Expanded = True
'展开节点
Static j
TreeView1.Nodes.Add "Keymain" & i - 1, tvwChild, "key" & j, "加子节点" & j, 2
j = j + 1
End SubPrivate Sub Command3_Click()
'改变最后一个子节点对象的图标
Dim CldNode As Node
Set CldNode = TreeView1.Nodes(i - 1).Child
Do Until CldNode Is Nothing
CldNode.Image = 3
Set CldNode = CldNode.Next
Loop
End Sub