這個(gè)是彈出菜單,菜單在窗體上不顯示,單擊右鍵時(shí)彈出,所以需要將所有菜單做成子菜單。
網(wǎng)站建設(shè)哪家好,找創(chuàng)新互聯(lián)!專注于網(wǎng)頁設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、成都微信小程序、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了寧遠(yuǎn)免費(fèi)建站歡迎大家使用!
1、先在VB里打開菜單編輯器(在窗體顯示的情況下,在工具菜單里點(diǎn)“菜單編輯器"
2、新建菜單:(1)先做一個(gè)總菜單項(xiàng),標(biāo)題中填寫”彈出",名稱中填寫mymenu,該菜單項(xiàng)是不顯示的,用來彈出。(2)做如圖子菜單,標(biāo)題中填寫菜單中顯示的內(nèi)容,比如:排列圖標(biāo),刷新等等,名稱內(nèi)輸入你自定義的名稱,比如:排列圖標(biāo)的名稱mnu_pailie,名稱用來在編寫代碼時(shí)識(shí)別該菜單。橫線在VB中標(biāo)題內(nèi)輸入減號(hào)(-),名稱也需要輸入。(3)下級(jí)菜單(如排列圖標(biāo)有下級(jí)菜單),用向右的箭頭調(diào)整
只要是標(biāo)題和名稱輸入好了,就是合法的。其它不符合要求可以慢慢修改,不影響你條試驗(yàn)。
3、編寫代碼:
Private Sub Form_Load()
mymenu.Visible = False‘mymenu是要彈出總菜單的名稱,在窗體上禁止顯示,當(dāng)然,你也可以讓它顯示
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)’窗體的鼠標(biāo)按鍵抬起事件,當(dāng)鼠標(biāo)按鍵向上抬起時(shí)發(fā)生
If Button = vbRightButton Then‘button參數(shù)是按鍵,如果抬起的是鼠標(biāo)右鍵時(shí)
Me.PopupMenu mymenu’彈出mymenu
End If
End Sub
工具箱里有ContextMenu(.NET2.0以后名字有點(diǎn)變化,大概差不多),你加入窗體后就可以像編輯普通菜單那樣編輯。
編輯好后,選中你要添加菜單的控件。屬性窗口里有個(gè)ContextMenu屬性,在里面選你剛才建立的ContextMenu
設(shè)置一個(gè)全局變量:
Public item As String
然后在第一個(gè)窗口那里取:
item = ComboBox1.SelectedItem.ToString()
然后加到第二個(gè)窗口那里:
ComboBox2.DropDownStyle = ComboBoxStyle.DropDownList(這個(gè)不可改內(nèi)容的設(shè)定可以在建立ComboBox的時(shí)候就設(shè)定了)
ComboBox2.Items.Add(item) (加入內(nèi)容,你或者也可以用別的,比如insert,這個(gè)可以加到指定的位置)
ComboBox2.SelectedItem = item (顯示那個(gè)剛加進(jìn)來的內(nèi)容)
這樣應(yīng)該可以了,建議你多看MSDN。
文章名稱:vb.net彈出下拉框 vb點(diǎn)擊按鈕彈出窗口
路徑分享:http://muchs.cn/article0/hjdhio.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供響應(yīng)式網(wǎng)站、軟件開發(fā)、動(dòng)態(tài)網(wǎng)站、企業(yè)建站、網(wǎng)站改版、全網(wǎng)營銷推廣
聲明:本網(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)