怎么样实现节点RENAME的功能？？

绿茶MARK

怎么样实现节点RENAME的功能？？
怎么样实现节点的更名功能。
选择节点，点击鼠标右键，选择重命名，节点名可编辑。
如同：我们右击文件，然后选择重命名。的功能。

阿罗

这里假定您的窗体上另外有个按钮为“编辑所选节点”，在设计时，而treeView1的labelEdit属性设置为tvwManual。

当然，如果您了解了整个过程，这些都不应该成为一个问题。

'////这个是编辑按钮的单击事件
Private Sub btnRename_Click()
    TreeView1.SetFocus
    TreeView1.StartLabelEdit
End Sub
'////这个是节点编辑完成以后的clearnUp
Private Sub TreeView1_AfterLabelEdit(Cancel As Integer, NewString As String)
On Error GoTo catch
'/////先按节点新内容更新数据库表
DoCmd.RunSQL "UPDATE yourTable SET yourColumn = '" & NewString & "'  WHERE [主键]=" & 从节点取得主键的函数(TreeView1.SelectedItem.key)
'///////然后可以做一些另外事情了
finally:
    Exit Sub
catch:
    MsgBox "发生错误，没改成", vbOKOnly + vbCritical, "错误"
    Cancel = True
    Resume finally
End Sub

阿罗

如果treeView的labelEdit属性为tvwAutomatic，那么按钮那段程序可以不要。但从实际使用角度看，是tvwManual好。

阿罗

除非使用其它手段，否则不可能使用快捷菜单。但是您可以定义一个编辑用的键，例如F2。原理永远是按照我一楼所贴的内容。

绿茶MARK

以下是引用阿罗在2003-12-25 21:11:33的发言：
除非使用其它手段，否则不可能使用快捷菜单。但是您可以定义一个编辑用的键，例如F2。原理永远是按照我一楼所贴的内容。

感谢你!阿罗!你真是热心!谢谢你.