VB6.0 如何實現(xiàn)點擊按鈕彈出下拉菜單

這個是彈出菜單，菜單在窗體上不顯示，單擊右鍵時彈出，所以需要將所有菜單做成子菜單。

網(wǎng)站建設(shè)哪家好，找創(chuàng)新互聯(lián)！專注于網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、成都微信小程序、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了寧遠(yuǎn)免費建站歡迎大家使用！

1、先在VB里打開菜單編輯器（在窗體顯示的情況下，在工具菜單里點“菜單編輯器"

2、新建菜單：（1）先做一個總菜單項，標(biāo)題中填寫”彈出",名稱中填寫mymenu，該菜單項是不顯示的，用來彈出。（2）做如圖子菜單，標(biāo)題中填寫菜單中顯示的內(nèi)容，比如：排列圖標(biāo)，刷新等等，名稱內(nèi)輸入你自定義的名稱，比如：排列圖標(biāo)的名稱mnu_pailie，名稱用來在編寫代碼時識別該菜單。橫線在VB中標(biāo)題內(nèi)輸入減號（-），名稱也需要輸入。（3）下級菜單（如排列圖標(biāo)有下級菜單），用向右的箭頭調(diào)整

只要是標(biāo)題和名稱輸入好了，就是合法的。其它不符合要求可以慢慢修改，不影響你條試驗。

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)按鍵向上抬起時發(fā)生

If Button = vbRightButton Then‘button參數(shù)是按鍵，如果抬起的是鼠標(biāo)右鍵時

Me.PopupMenu mymenu’彈出mymenu

End If

End Sub

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

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

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

關(guān)于VB.net下拉框的問題

設(shè)置一個全局變量：

Public item As String

然后在第一個窗口那里?。?/p>

item = ComboBox1.SelectedItem.ToString()

然后加到第二個窗口那里：

ComboBox2.DropDownStyle = ComboBoxStyle.DropDownList（這個不可改內(nèi)容的設(shè)定可以在建立ComboBox的時候就設(shè)定了）

ComboBox2.Items.Add(item) （加入內(nèi)容，你或者也可以用別的，比如insert，這個可以加到指定的位置）

ComboBox2.SelectedItem = item （顯示那個剛加進(jìn)來的內(nèi)容）

這樣應(yīng)該可以了，建議你多看MSDN。