ShouXuFeiJiaoFeiMingXifrm窗体上只有一个菜单标题是menu,名称是menu1,菜单下一级只有一个菜单项“折费”,想用弹出式菜单的形式运行并不显示弹出式菜单,这个为什么啊,请高手指点。。谢谢。
Private Sub MSFlexGrid1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then '识别是不是按下右键,是则弹出快捷菜单
PopupMenu ShouXuFeiJiaoFeiMingXifrm.menu1
End If
End Sub
Private Sub MSFlexGrid1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then '识别是不是按下右键,是则弹出快捷菜单
PopupMenu ShouXuFeiJiaoFeiMingXifrm.menu1
End If
End Sub
改用子窗体的菜单进行弹出。