VB點(diǎn)虐 如何動(dòng)態(tài)獲取菜單欄中的菜單名并用樹型表示

添加：（先在加一個(gè)contextMenu,再它的添加子菜單的click事件編程）

永泰ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場(chǎng)景，ssl證書未來(lái)市場(chǎng)廣闊！成為成都創(chuàng)新互聯(lián)公司的ssl證書銷售渠道，可以享受市場(chǎng)價(jià)格4-6折優(yōu)惠！如果有意向歡迎電話聯(lián)系或者加微信：18980820575（備注：SSL證書合作）期待與您的合作！

Try

’使TreeView可以被編輯

TreeView1.LabelEdit = True

‘判斷你是不是選定的是不可編輯的節(jié)點(diǎn)，我這里工種節(jié)點(diǎn)不可以被編輯，只有工種下級(jí)的

各個(gè)工種名稱可以被編輯

If Trim(TreeView1.SelectedNode.Text) = "工種" Then

‘添加節(jié)點(diǎn)

AddNode = New TreeNode("請(qǐng)輸入新工種名字")

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

刪除與添加類似，只是如果你的節(jié)點(diǎn)名字從其他處（如數(shù)據(jù)庫(kù)）得來(lái)，那么你還需要更新數(shù)據(jù)庫(kù)

編輯：

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

‘此時(shí)你改完了節(jié)點(diǎn)名字

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 一個(gè)是改前的名字一個(gè)是該后的名字，具體哪個(gè)對(duì)

哪個(gè)請(qǐng)查MSDN

ElseIf Trim(e.Node.Text) "工種" And e.Node.Text e.Label.ToString Then

If MsgBox("此操作會(huì)導(dǎo)致當(dāng)前工種中的所有人員的工種都被更改，是否確定？", MsgBoxStyle.YesNo + MsgBoxStyle.Information, "警告") = MsgBoxResult.Yes Then

。。。。 ‘我的更改

MsgBox("更改成功！", MsgBoxStyle.OKOnly, "提示")

'Call InitTree() ‘有時(shí)要重新把treeview初始化一遍，視需求定

End If

End If

Catch err As Exception

MsgBox(err.ToString)

End Try

End Sub

其他：

擋treeview得到焦點(diǎn)時(shí)你可以使用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

注意：這里沒(méi)有在ContextMenu菜單添加“更改”項(xiàng)，而是直接更改：即左鍵單擊節(jié)點(diǎn)表示

選中，再單擊一下就可以編輯了，更改之后單擊他處就完成更改，和你在windows中更改文

件名字相似。

vb點(diǎn)虐 用變量設(shè)置菜單屬性包括子菜單，例如：菜單名.Enabled=false，替換成，菜單變

不清楚熱鍵和快捷鍵是什么區(qū)別

1.如果你是指Chrl+S這樣的快捷鍵，可以設(shè)置ShortCutKeys屬性，屬性窗口就有可視化編輯器。

2.如果你是指"保存(S)"，其中s有下劃線這樣的用Alt+字母來(lái)訪問(wèn)的設(shè)置，應(yīng)該在菜單項(xiàng)的Text屬性中使用符號(hào)。符號(hào)后面的字母將被作為快速訪問(wèn)字符，顯示的時(shí)候不會(huì)被顯示出來(lái)，而字母會(huì)自動(dòng)加上下劃線。比如"保存(s)"。

3.和選中標(biāo)記有關(guān)的屬性有兩個(gè)

CheckOnClick 在菜單項(xiàng)上單擊時(shí)是否改變Checked屬性

Checked 設(shè)置/獲取 菜單項(xiàng)是否被選中

4.設(shè)置菜單項(xiàng)的Enabled屬性為False

VB點(diǎn)虐 怎么制作樹形菜單??？

你說(shuō)的“樹形菜單”是指下拉菜單（可以有子菜單）嗎？如果是，VB點(diǎn)虐 提供了MenuStrip控件，在工具箱里能找到，直接就在對(duì)應(yīng)位置打字就可以了，完全是“所見即所得”。

vb點(diǎn)虐 2010 menustrip控件下拉菜單屬性

這就是普通的菜單，向上彈出，還是向下彈出，是操作系統(tǒng)自動(dòng)判斷的（根據(jù)可視的空間區(qū)域大?。┐蚬?，很簡(jiǎn)單，只要將菜單的CheckOnClick設(shè)為True就可以了

網(wǎng)頁(yè)題目：vb點(diǎn)虐 子菜單 vb中子菜單怎么設(shè)置
網(wǎng)頁(yè)URL：http://www.rwnh.cn/article32/ddehhsc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站營(yíng)銷、ChatGPT、品牌網(wǎng)站設(shè)計(jì)、手機(jī)網(wǎng)站建設(shè)、定制網(wǎng)站、網(wǎng)站維護(hù)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)