vb 右键弹出式菜单制作

按Ctrl+E键，弹出菜单编辑器。在那里面可以编辑菜单。
标题：等同于Command的Caption属性，就是用来显示菜单上的文字。
名称：等同于Command的Nane属性,指定菜单的名称。
索引：菜单数组的下标。
复选：以复选框的样式显示菜单。
有效：Enabled
可见：Visible
→按钮:选定的菜单项退一级
←按钮:选定的菜单项向上一级
↑按钮:选定的菜单项向上移动
↓按钮:选定的菜单项向下移动

先输入菜单第一项的标题"文件"和名称"file"，按你的要求，程序运行时不显示，那么就把它的"可见"勾上。
再输入菜单第二项的标题"打开"和名称"open",因为它是在"文件"菜单的下一级,所以按一下"→按钮"
最后输入菜单第三项的标题"保存"和名称"save",不用按按"→按钮".确定完成菜单的编辑.

调出菜单.
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu file
'1为左键,2为右键
'popupnebu <菜单> ..弹出菜单
End Sub

点击代码窗口中控件下拉列表,选择save 或 open 可以对它们进行事件的编程.
283452635

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu file
End Sub