SmartmenuXp控件de弹出菜单

来源：百度知道 编辑：UC知道 时间：2024/06/24 12:34:09
用SmartmenuXp控件创建弹出菜单怎么实现阿？我用的是vb，运行时弹出菜单部分的代码总是有问题，希望大虾给些代码，在线等.....

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
不过调试有问题，请在修改一下！