AfterEditNode事件
Dim pn As object = e.Node.ParentNodeIf pn Is Nothing Then pn = e.SenderFor Each nd As WinForm.TreeNode In pn.Nodes If nd.Text = e.NewText Then messagebox.show("有重复名称","信息提示") e.cancel=True nochongfu=False End IfNext