treeview求教,谢谢!!!
treeview求教,谢谢!!!
当点击子节点后,label1=子节点+父节点
如点击gr3,label1=gr3+root1
如点击gr2,label1=gr2+root1
如点击gr1,label1=gr1+root1
如点击gr13,label1=gr13+root2
如点击gr14,label1=gr14+root1
如点击gr15,label1=gr15+root1
Private Sub Form_Load()
Dim Node1 As Node
Dim Node2 As Node
Dim i As Integer
Dim j As Integer
Dim k As Integer
TreeView1.HideSelection = False
TreeView1.Indentation = 19 * Screen.TwipsPerPixelX
TreeView1.LabelEdit = tvwManual
TreeView1.LineStyle = tvwRootLines
For i = 1 To 2
Set Node1 = TreeView1.Nodes.Add(, , , "Root" & i)
For k = 1 To 3
Set Node3 = TreeView1.Nodes.Add(Node1.Index, tvwChild, , "Gr" & (16 * (i - 1)) + (4 * (j - 1)) + k)
Next
Node1.Expanded = True
Next
End Sub