Set nodX = Me.tvwShapes.Nodes.Add(, , "r1", "Customer") Set nodX = Me.tvwShapes.Nodes.Add("r1", tvwChild, "aust", " Australia", 1) Set nodX = Me.tvwShapes.Nodes.Add("r1", tvwChild, "eng", " England") Set nodX = Me.tvwShapes.Nodes.Add("r1", tvwChild, "usa", " America") Set nodX = Me.tvwShapes.Nodes.Add("aust", tvwChild, " cust1", " Adam") Set nodX = Me.tvwShapes.Nodes.Add("eng", tvwChild, " cust2", " Sean") Set nodX = Me.tvwShapes.Nodes.Add(, , "r2", "FillStyle") Set nodX = Me.tvwShapes.Nodes.Add("r2", tvwChild, " child4", " Horizontal Line") Set nodX = Me.tvwShapes.Nodes.Add("r2", tvwChild, " child5", " Vertical Line", 1) ' set nodx=me.tvwShapes.Nodes.Add( End SubPrivate Sub tvwShapes_Expand(ByVal Node As MSComctlLib.Node) ' MsgBox Node.Children If Node = "FillStyle" Then Node.Expanded = False
End If End SubPrivate Sub tvwShapes_Collapse(ByVal Node As MSComctlLib.Node) If Node.Children > 2 Then Node.Expanded = True End If End SubPrivate Sub tvwShapes_NodeClick(ByVal Node As MSComctlLib.Node) MsgBox "You clicked " & Node.Text
If tvwShapes.SelectedItem.Index <> 1 Then tvwShapes.StartLabelEdit '类似重命名 End If
(2)这个没做过,.net自带的treeview好像不能这么用吧?你能不能换个方式?
Dim nodX As Node
tvwShapes.LineStyle = tvwRootLines
' tvwShapes.Checkboxes = True
tvwShapes.Sorted = True' 关联 treeView and imageList
tvwShapes.ImageList = ImageList1
Set nodX = Me.tvwShapes.Nodes.Add(, , "r1", "Customer")
Set nodX = Me.tvwShapes.Nodes.Add("r1", tvwChild, "aust", " Australia", 1)
Set nodX = Me.tvwShapes.Nodes.Add("r1", tvwChild, "eng", " England")
Set nodX = Me.tvwShapes.Nodes.Add("r1", tvwChild, "usa", " America") Set nodX = Me.tvwShapes.Nodes.Add("aust", tvwChild, " cust1", " Adam")
Set nodX = Me.tvwShapes.Nodes.Add("eng", tvwChild, " cust2", " Sean")
Set nodX = Me.tvwShapes.Nodes.Add(, , "r2", "FillStyle") Set nodX = Me.tvwShapes.Nodes.Add("r2", tvwChild, " child4", " Horizontal Line")
Set nodX = Me.tvwShapes.Nodes.Add("r2", tvwChild, " child5", " Vertical Line", 1)
' set nodx=me.tvwShapes.Nodes.Add(
End SubPrivate Sub tvwShapes_Expand(ByVal Node As MSComctlLib.Node) ' MsgBox Node.Children
If Node = "FillStyle" Then
Node.Expanded = False
End If
End SubPrivate Sub tvwShapes_Collapse(ByVal Node As MSComctlLib.Node)
If Node.Children > 2 Then
Node.Expanded = True
End If
End SubPrivate Sub tvwShapes_NodeClick(ByVal Node As MSComctlLib.Node) MsgBox "You clicked " & Node.Text
If tvwShapes.SelectedItem.Index <> 1 Then
tvwShapes.StartLabelEdit '类似重命名
End If
End Sub
http://fason.nease.net/samples/xtree/