界面就是七楼的方法进行编辑的,
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If trv.SelectedNode Is Nothing And trv.Nodes.count <>0
messagebox.show("未选择任何类别,请选择后再增加","提示")
Return
End If
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
If tr.Nodes.count =0
Dim Index As Integer = 1
If tr.Nodes.count >= 1 Then
Index = cint(tr.Nodes(tr.nodes.count - 1).name) + 1
End If
Dim nd As WinForm.TreeNode = tr.Nodes.Add(index,"新分类")
tr.SelectedNode = nd
tr.Select
tr.BeginEdit
Else
Dim nd As WinForm.TreeNode = tr.SelectedNode
Dim id As Integer = nd.index
If nd.ParentNode Is Nothing Then
nd = tr.Nodes.Insert("新分类",id+1)
Else
nd = nd.ParentNode.Nodes.Insert("新分类",id+1)
End If
tr.SelectedNode = nd
tr.Select
tr.BeginEdit
End If
上面是新增同级
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If trv.SelectedNode IsNot Nothing Then
Dim pd As WinForm.TreeNode = trv.SelectedNode
Dim Index As Integer = 1
If pd.Nodes.count >= 1 Then
Index = cint(pd.Nodes(pd.nodes.count - 1).name) + 1
End If
Dim nd As WinForm.TreeNode = pd.Nodes.Add(index,"新分类")
trv.SelectedNode = nd
trv.Select
trv.BeginEdit
End If
上面是新增下级
获取TreeView1编辑完节点的值和路径,请老师帮助给一下代码
[此贴子已经被作者于2022/10/12 16:05:30编辑过]
加好友 
发短信
Post By：2022/10/12 14:48:00 [只看该作者]
