VB 中弹出式菜单怎么写
弹出式菜单名称为： a
写入：
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu a
End Sub
还可以继续编写子菜单：用MouseUp事件里的 Button参数（1表示左键 2表示右键）
建一个菜单 vbFile 子菜单vbRight: (右键点击窗体 就会弹出 vbFile下的几个子菜单了)
写入：
Private Sub Form_Load()
vbFile.Visible = False
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Button
Case 1
Print "1"
Case 2
Print "2"
PopupMenu vbFile
End Select
End Sub
以上这样就可以了。
扩展资料：
vb可以设计包括导航菜单、下拉菜单、右键菜单、顶部菜单等等各类需求菜单样式。
同时VB可以利用控件做出一些不同的风格菜单，让菜单别具一格。
主菜单栏
主菜单栏应构成 UI 任何特定于上下文菜单中程序包的命令的标准位置。 主菜单栏与其他命令结构不同，因为在环境中使用它来控制哪些命令都可见。 所有其他命令栏只需禁用命令不在上下文中，它们放在一个菜单或工具栏上。
环境定义一组内置于主菜单栏的命令所共有跨整个 IDE 和任务的多个域。 这些命令是始终可见的而不考虑其中 Vspackage 加载到环境。
These commands are always visible regardless of which VSPackages are loaded into the environment。 虽然 Vspackage 可以扩展此命令集，从每个产品和其命令的位置设置命令将为每个团队的责任。
1、VB弹出式菜单，先写栏目和弹出列表，如图所示。
2、打开VB软件，新建一个工程，添加一个文本框，将其text属性清空，设置ScrollBars属性为2-Vertical，MultiLine属性设置为True，如图所示。
3、在菜单栏选择【工具】选项下的【菜单编辑器】，然后进入菜单编辑器对话框。
4、接着添加文件菜单，做箭头表示将菜单升级，右箭头表示将菜单降级，上箭头和下箭头可以移动菜单项的位置。
5、然后添加新建、打开、保存、另存为等选项栏目，如图所示。
6、创建好文件菜单之后，单击“下一个”选项，使之成为一级菜单，接着设置“编辑”等功能。
7、接着就可以完成菜单制作了，效果如下图所示。
创建完菜单对象后，便可以使用PopupMenu方法来弹出菜单。方法是：
PopupMenu 菜单对象名
继续上个例子，就是
PopupMenu Menu1
这个方法后面还有很多可选参数，如协调位置等，这些待你自己慢慢研究，这里不细究。如果你的弹出菜单是通过按右键弹出的话，通常会把它放到MouseDown事件中，继续上个例子，就是
Private Sub 控件_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then '如果点的是右键
PopupMenu Menu1
End If
End Sub
PopupMenu Mnuedit, vbPoupMenuRightButton
‘Mnuedit是要弹出的菜单的名称，改成你
'要弹出的菜单的名称
End If
