制作的弹出式菜单怎么没反应

本来很陈旧发布于 2013-05-25 13:32， 476 次点击

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu menu
End If
End Sub
在网上找的代码并按照其方法把根目录menu的名称的勾去掉了，但在界面上点击鼠标右键没反应
先谢谢各位帮我看看了！！

2 回复

lowxiong2013-05-25 16:24

If Button = 2 Then PopupMenu menu
End If
其中的end if是多余的，该代码应该无法执行。去掉end if后，如果弹出式菜单设计没问题的话，应该是可以显示的。菜单设计和运行结果见下图：

只有本站会员才能查看附件，请登录

bczgvip2013-05-25 16:29

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