Question

vb 右键弹出式菜单制作

题目如下:
在名称为Form1的窗体中建立一个弹出式菜单(程序运行时不显示),名称为file,含两个菜单项,其名称分别为open 和save,标题分别为 打开 和 存盘. 编写适当事件过程,程序运行后，如果用鼠标右键单击窗体，则弹出此菜单.

请高手指教,麻烦写出详细过程.谢谢!
答案好另外加分

Answer 1

按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

Answer 2

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