treeview中連續點擊一目錄之後,此目錄便進入可編輯狀態,如何變成控制?

Question

结合:
.LabelEdit 属性
.StartLabelEdit 方法
如: 改为"双击编辑":
Private Sub Form_Load()
TreeView1.LabelEdit = tvwManual
End Sub
Private Sub TreeView1_DblClick()
TreeView1.StartLabelEdit
End Sub 

Answer 1

treeview1.LabelEdit=tvwManual  '或=1

Answer 2

我想達到這樣的功能,在treeview中右擊一子目錄,出來一彈出菜單,選擇菜單里的'改名'項,則那個被右擊的子目錄便進入可編輯狀態,以便用戶改名.
就如window的右擊菜單改名效果一樣.

Answer 3

'Treeview1、menuFile、menuFileNew
Private Sub menuFileNew_Click()
TreeView1.Nodes.Add , , "KEY@" & Str(TreeView1.Nodes.Count + 1), "aa"
TreeView1.Nodes.Item("KEY@" & Str(TreeView1.Nodes.Count)).Selected = True
TreeView1.StartLabelEdit
End Sub
Private Sub TreeView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbRightButton Then
   PopupMenu menuFile
End If
End Sub