VB.net下拉菜单做法 vb下拉菜单代码

vb中可编辑的下拉框怎么做

1，先建一个下拉框控件Combo1。

2，添加代码：

Private Sub Combo1_KeyPress(KeyAscii As Integer)

    If (KeyAscii = 13) Then

        Combo1.AddItem (Combo1.Text)

        Combo1.Text = ""

    End If

End Sub

3，在下拉框控件Combo1中输入内容，按回车时，将自动将输入的内容添加到下拉框控件Combo1中。

相关问答

Q1: 在VB中建立下拉式菜单的步骤是什么?

下拉式菜单VB.net下拉菜单做法，有键盘的操作方法VB.net下拉菜单做法：按ctrl+e设计菜单，第一个框是菜单标题，你在这上面显示的名称会在vb运作时显示，第二个框是在操作代码时显示的名称，简单的就这样了，子菜单的话，只要根据分配一级级来弄就ok了。

Q2: VB6.0 如何实现点击按钮弹出下拉菜单

这个是弹出菜单，菜单在窗体上不显示，单击右键时弹出，所以需要将所有菜单做成子菜单。

1、先在VB里打开菜单编辑器（在窗体显示的情况下，在工具菜单里点“菜单编辑器"

2、新建菜单：（1）先做一个总菜单项，标题中填写”弹出",名称中填写mymenu，该菜单项是不显示的，用来弹出。（2）做如图子菜单，标题中填写菜单中显示的内容，比如：排列图标，刷新等等，名称内输入你自定义的名称，比如：排列图标的名称mnu_pailie，名称用来在编写代码时识别该菜单。横线在VB中标题内输入减号（-），名称也需要输入。（3）下级菜单（如排列图标有下级菜单），用向右的箭头调整

只要是标题和名称输入好了，就是合法的。其它不符合要求可以慢慢修改，不影响你条试验。

3、编写代码：

Private Sub Form_Load()

mymenu.Visible = False‘mymenu是要弹出总菜单的名称，在窗体上禁止显示，当然，你也可以让它显示

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)’窗体的鼠标按键抬起事件，当鼠标按键向上抬起时发生

If Button = vbRightButton Then‘button参数是按键，如果抬起的是鼠标右键时

Me.PopupMenu mymenu’弹出mymenu

End If

End Sub

VB.net下拉菜单做法的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb下拉菜单代码、VB.net下拉菜单做法的信息别忘了在本站进行查找喔。