SmartMenuXP如何制作右键弹出菜单?(急,救命!)
刚接触,感觉很好,可是遇到了问题:在MDI和普通窗体上都试过了,用它的自己的代码也不行。它提供的范例代码如下:
Private Sub Form_MouseDown( _
Button As Integer, _
Shift As Integer, _
X As Single, _
Y As Single)
If Button <> vbRightButton Then Exit Sub
With SmartMenuXP1
X = .ClientToScreenX(Me.hWnd, X)
Y = .ClientToScreenY(Me.hWnd, Y)
.PopupMenu .MenuItems.Key2ID("kMenu"), X, Y, 0
End With
End Sub
哪位高手,请急救命!