门把菜单怎么写( 三 ) _门把

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 可以扩展此命令集，从每个产品和其命令的位置设置命令将为每个团队的责任。
参考资料：微软官网-菜单和 Visual studio 命令

文章插图