VB.net如何動(dòng)態(tài)獲取菜單欄中的菜單名并用樹型表示

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

創(chuàng)新互聯(lián)建站專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于成都做網(wǎng)站、網(wǎng)站建設(shè)、易門網(wǎng)絡(luò)推廣、成都微信小程序、易門網(wǎng)絡(luò)營銷、易門企業(yè)策劃、易門品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營等，從售前售中售后，我們都將竭誠為您服務(wù)，您的肯定，是我們最大的嘉獎(jiǎng)；創(chuàng)新互聯(lián)建站為所有大學(xué)生創(chuàng)業(yè)者提供易門建站搭建服務(wù)，24小時(shí)服務(wù)熱線：028-86922220，官方網(wǎng)址：www.ekvhdxd.cn

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("請輸入新工種名字")

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ù)庫）得來，那么你還需要更新數(shù)據(jù)庫

編輯：

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è)請查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

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

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

件名字相似。

VB.NET菜單和狀態(tài)欄的內(nèi)容不見了

你是不是把類似

Me.Controls.Add(MenuStrip1)

Me.Controls.Add(StatusBar1)

這樣的語句弄沒了？放在initializeComponent方法里即可

vb.net界面設(shè)計(jì) 的工具欄里的一些基本圖標(biāo)，比如打開、保存、復(fù)制怎么添加??？

用格式轉(zhuǎn)換器(格式工廠)把ico格式轉(zhuǎn)換成其他可識(shí)別的格式

然后在添加

下一步(你的意思是要在界面設(shè)計(jì)中 往窗體上添加工具欄嗎?)

工具箱中 ---- 菜單和工具欄 ----- MenuStrip

窗體上方出現(xiàn) '請?jiān)俅捂I入'(vs2010中) 的框框 點(diǎn)一下就可以放"打開"什么的了

右面屬性中找到Image屬性.可以更改你自己的圖片了.

知道了嗎?

還有疑問你就追問 ````赫赫

vb.net的彈出式菜單怎么做

工具箱里有ContextMenu（.NET2.0以后名字有點(diǎn)變化，大概差不多），你加入窗體后就可以像編輯普通菜單那樣編輯。

編輯好后，選中你要添加菜單的控件。屬性窗口里有個(gè)ContextMenu屬性，在里面選你剛才建立的ContextMenu

vb.net加載主窗體時(shí),菜單欄有顏色，像亂碼怎么回事，加載完了就沒有了，就瞬間，求解決，真的很難受看著

Public?Class?Form1

Dim?I?As?Integer

Private?Sub?Timer1_Tick(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Timer1.Tick

I?=?I?+?1

If?I?=?10?Then?Me.Show()

End?Sub

Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load

Me.Hide()

End?Sub

End?Class

你可以先隱藏窗體 讓他加載完 再顯示出來 如上代碼 如果還不夠時(shí)間 可以適當(dāng)增加

vb中如何添加菜單欄

工具\(yùn)材料

電腦

1、首先在電腦上找到“VB”打開，如下圖所示，接著在“VB”中點(diǎn)擊新建，雙擊面板。

2、接著在打開的界面中輸入代碼，如下圖所示，添加完成。

3、接著在選項(xiàng)中用鼠標(biāo)找到“工具”選項(xiàng)并且單擊鼠標(biāo)，接著再點(diǎn)擊“自定義”。

4、最好即可看到已經(jīng)在軟件上面成功打開菜單欄，如下圖所示。

網(wǎng)頁標(biāo)題：vb.net界面菜單欄,vb中怎么在窗體建立菜單
網(wǎng)頁URL：http://www.ekvhdxd.cn/article20/phcoco.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供用戶體驗(yàn)、品牌網(wǎng)站建設(shè)、App設(shè)計(jì)、網(wǎng)頁設(shè)計(jì)公司、、域名注冊

廣告

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