13518219792
添加：（先在加一個contextMenu,再它的添加子菜單的click事件編程）
永泰ssl適用于網站、小程序/APP、API接口等需要進行數據傳輸應用場景，ssl證書未來市場廣闊！成為成都創新互聯公司的ssl證書銷售渠道，可以享受市場價格4-6折優惠！如果有意向歡迎電話聯系或者加微信：18980820575（備注：SSL證書合作）期待與您的合作！
Try
’使TreeView可以被編輯
TreeView1.LabelEdit = True
‘判斷你是不是選定的是不可編輯的節點，我這里工種節點不可以被編輯，只有工種下級的
各個工種名稱可以被編輯
If Trim(TreeView1.SelectedNode.Text) = "工種" Then
‘添加節點
AddNode = New TreeNode("請輸入新工種名字")
TreeView1.SelectedNode.Nodes.Add(AddNode)
TreeView1.ExpandAll()
AddNode.BeginEdit()
TreeView1.LabelEdit = True
NodeAdded = True
End If
Catch err As Exception
MsgBox(err.ToString)
End Try
刪除與添加類似，只是如果你的節點名字從其他處（如數據庫）得來，那么你還需要更新數據庫
編輯：
Private Sub TreeView1_BeforeLabelEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.NodeLabelEditEventArgs) Handles TreeView1.BeforeLabelEdit
TreeView1.LabelEdit = True ‘使可以編輯
AddNode = TreeView1.SelectedNode
End Sub
Private Sub TreeView1_AfterLabelEdit(ByVal sender As Object, ByVal e As System.windows.Forms.NodeLabelEditEventArgs) Handles TreeView1.AfterLabelEdit
Try
‘此時你改完了節點名字
TreeView1.SelectedNode.EndEdit(True)
If e.Label Is Nothing Then
'do nothing
ElseIf e.Node.Text = "工種" Then ‘工種不能改
e.CancelEdit() = True
‘e.Node.Text ，e.Label.ToString 一個是改前的名字一個是該后的名字，具體哪個對
哪個請查MSDN
ElseIf Trim(e.Node.Text) "工種" And e.Node.Text e.Label.ToString Then
If MsgBox("此操作會導致當前工種中的所有人員的工種都被更改，是否確定？", MsgBoxStyle.YesNo + MsgBoxStyle.Information, "警告") = MsgBoxResult.Yes Then
。。。。 ‘我的更改
MsgBox("更改成功！", MsgBoxStyle.OKOnly, "提示")
'Call InitTree() ‘有時要重新把treeview初始化一遍，視需求定
End If
End If
Catch err As Exception
MsgBox(err.ToString)
End Try
End Sub
其他：
擋treeview得到焦點時你可以使用ContextMenu，反之ContextMenu禁用
Private Sub TreeView1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TreeView1.GotFocus
TreeView1.ContextMenu = ContextMenu1
End Sub
Private Sub TreeView1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TreeView1.LostFocus
TreeView1.ContextMenu = Nothing
End Sub
注意：這里沒有在ContextMenu菜單添加“更改”項，而是直接更改：即左鍵單擊節點表示
選中，再單擊一下就可以編輯了，更改之后單擊他處就完成更改，和你在windows中更改文
件名字相似。
不清楚熱鍵和快捷鍵是什么區別
1.如果你是指Chrl+S這樣的快捷鍵，可以設置ShortCutKeys屬性，屬性窗口就有可視化編輯器。
2.如果你是指"保存(S)"，其中s有下劃線這樣的用Alt+字母來訪問的設置，應該在菜單項的Text屬性中使用符號。符號后面的字母將被作為快速訪問字符，顯示的時候不會被顯示出來，而字母會自動加上下劃線。比如"保存(s)"。
3.和選中標記有關的屬性有兩個
CheckOnClick 在菜單項上單擊時是否改變Checked屬性
Checked 設置/獲取 菜單項是否被選中
4.設置菜單項的Enabled屬性為False
你說的“樹形菜單”是指下拉菜單（可以有子菜單）嗎？如果是，VB點虐 提供了MenuStrip控件，在工具箱里能找到，直接就在對應位置打字就可以了，完全是“所見即所得”。
這就是普通的菜單，向上彈出，還是向下彈出，是操作系統自動判斷的（根據可視的空間區域大小）打勾，很簡單，只要將菜單的CheckOnClick設為True就可以了
