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的弹出式菜单怎么做

工具箱里有ContextMenu（.NET2.0以后名字有点变化，大概差不多），你加入窗体后就可以像编辑普通菜单那样编辑。

编辑好后，选中你要添加菜单的控件。属性窗口里有个ContextMenu属性，在里面选你刚才建立的ContextMenu

关于VB.net下拉框的问题

设置一个全局变量：

Public item As String

然后在第一个窗口那里取：

item = ComboBox1.SelectedItem.ToString()

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

ComboBox2.DropDownStyle = ComboBoxStyle.DropDownList（这个不可改内容的设定可以在建立ComboBox的时候就设定了）

ComboBox2.Items.Add(item) （加入内容，你或者也可以用别的，比如insert，这个可以加到指定的位置）

ComboBox2.SelectedItem = item （显示那个刚加进来的内容）

这样应该可以了，建议你多看MSDN。

网站名称：vb.net弹出下拉框 vb点击按钮弹出窗口
网页网址：http://myzitong.com/article/hjdhio.html