我的系统弹出式菜单不知道怎么回事?Private Sub gzGrid_MouseUp(Button As Integer, Shift As Integer, X
我的系统弹出式菜单不知道怎么回事?
Private Sub gzGrid_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 And Shift = 0 Then
PopupMenu popmenu.popmenu4 End If
End Sub
前面我已经把PopupMenu popmenu.popmenu1到PopupMenu popmenu.popmenu3都用了,为什么到四就不行了呢?
编译错误:说未找到方法或数据成员
[解决办法]
- VB code
Private Sub gzGrid_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 And Shift = 0 Then PopupMenu popmenu4 End IfEnd Sub
[解决办法]
你断点看看 或者 加个错误 判断 查看下问题
[解决办法]
不知道你的具体代码,我1楼是乱猜的,菜单名称是不能包含有“.”吧,所以给了你 PopupMenu 菜单 这个代码,当然如果你的popmenu是一个类而popmenu4是这个类中的一个类型为meun属性,并且已经实例化,那就另当别论......
总之 PopupMenu 方法的最基本用法是:object.PopupMenu MenuName
你要检查你对应的MenuName是不是存在....
