Question

vb弹出式菜单

'右击窗体,弹出弹出式菜单
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu start36
End If
End Sub
我的代码是这样的，问题我要怎么建立一个弹出式的窗体啊，最好带下图，跪求各位大神解答
求知道的大神教下啊，跪拜了

Answer 1

如果你的窗口 确实存在一个 菜单并命名为 start36 了的话,
你的代码就是缺少了三个字符而已!
原:PopupMenu start36
修改为:Me.PopupMenu start36
'---------------------------------整个源代码就是
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Me.PopupMenu start36
End If
End Sub
'---------------------------------
就OK了,上图就算了! 基本的东西

我后来又测试了,不要那几个字符 也是可以的,也就是说 你代码是没有问题的!如果你没有弹出成功,
只能说明:你的窗口 根本就没有 命名为 start36 的菜单!错误提醒 应该是
[实时错误 424 要求对象]

关于如何通过 菜单编辑器 制作菜单,就不是你这个问题需要回答的了。
在某个窗口上建立菜单的方式有以下几种
1.开发模式下:在窗口上右键->菜单编辑器
2.开发模式下:切换至窗口设计窗口->Ctlr+E
3.开发模式下:切换至窗口设计窗口->工具->菜单编辑器
4.在代码窗口,加入相关Menu的API函数 呼叫,构造->写入命令->显示

Answer 2

你是指当在窗体上点击右键的时候弹出另一个窗体么

追问

是的

追答

启动vb,点vb菜单-工具-菜单编辑器,然后建立名称为start36的父菜单,在start36
建立几个子菜单就行了,建立子菜单的方法是点下一个按钮,再点右方向按钮.