treeview节点重命名

xiaojin0710 xiaojin0710 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
以下是实现的代码,我通过下拉菜单将treeview节点重命名后,再将xml文件中对应的节点名称也修改过来,可是xe.InnerText = xmlNode.InnerText老是出现错误,不知怎么回事,请教啊


Private Sub 重命名ToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles 重命名ToolStripMenuItem.Click

TreeView1.LabelEdit = True

If Not TreeView1.SelectedNode Is Nothing Then
str = TreeView1.SelectedNode.Text
i = TreeView1.SelectedNode.Index
End If

End Sub

Private Sub TreeView1_AfterLabelEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.NodeLabelEditEventArgs) Handles TreeView1.AfterLabelEdit

If Not TreeView1.SelectedNode Is Nothing Then

Dim doc As XmlDocument = New XmlDocument
Dim xmlNode As XmlNode
Dim xe As XmlElement

doc.Load("E:\文本文件\title.xml")
xmlNode = doc.SelectSingleNode(str)

xe = doc.CreateElement(TreeView1.SelectedNode.Text)
xe.InnerText = xmlNode.InnerText
xe.ParentNode.ReplaceChild(xe, xmlNode)
doc.Save("E:\文本文件\title.xml")

End If

TreeView1.LabelEdit = False

End Sub
...全文

相关推荐

评论 6
收藏 已收藏
分享
返回顶部
xiaojin0710
VB 16,718 成员 110,520 内容