Private Sub shape_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
If (Me.sprDocImage.ActiveWindowlessObject IsNot Nothing) And e.Button = MouseButtons.Right Then
Me.sprDocImage.ContextMenu = Me.vctlStampContextMenu
Else
Me.sprDocImage.ContextMenu = Nothing
End If
End Sub
这是执行代码 是鼠标点击右键触发事件 您看一下有什么问题 |