50分的简单问题：有关弹出式菜单的创建和显示

[green_hong]

我在一窗体中创建了一菜单：
名mnuFile，标题无，去掉了“可见”的勾；
菜单仅一子项，名mPaste，标题Paste，勾了“可见”。

程序中：
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then ' 检查是否单击了鼠标右键。
PopupMenu mnuFile ' 把文件菜单显示为一个弹出式菜单。
End If
End Sub

运行时，在窗体上单击右键，没见弹出窗体；
单步调试时，感觉上述代码没有用到。

这是怎么回事啊？

[OFFICE之门]

加上标题试试

[OFFICE之门]

应该用MouseDown

Private Sub FGInput_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
PopupMenu MDIfrm.rightClick
End If
End Sub

[bigbigfans]

帮你Up
菜单有效钩上，去掉“可见”
Private Sub MsFlex_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo Err:
If Button = vbRightButton Then
PopupMenu mnuQuick
End If
Exit Sub
Err:
MsgBox Err.Description, vbExclamation
End Sub

代码没有运行到是否因为Form被其他控件遮挡了？检查为什么没有触发MouseUp事件

[山顶洞人-平]

你胡说八道了，我试了，单步调试的时候可以显示弹出菜单。可能你调试的时候菜单被其他窗体遮住了。

[green_hong]

感谢楼上各位，

窗体确实是被挡住了，我习惯将一组控件置于一图片框内，方便布局和调整。
呵呵，好久不写VB，连自己的习惯都忘了。

每人10分不会嫌少吧？