取消鼠标按下

" Kurt" < KS ******* @ comcast.net> schrieb

"Kurt" <ks*******@comcast.net> schrieb

我想限制一个按钮点击/双击事件，只从左侧按钮开始。如何消除中/右键单击？我能够捕获这些
但我不知道如何取消活动....

I want to restrict a buttons click/doubleclick event to
firing from the left button only. How do I eliminate the
middle and right button clicks? I am able to trap these
but I''m just not sure how to cancel the event....

你无法取消活动，但你可以忽略它。

-

Armin

You can not cancel an event, but you can ignore it.
--
Armin

-----原始信息-----
Kurt &LT; KS ******* @ comcast.net&GT; schrieb

-----Original Message-----
"Kurt" <ks*******@comcast.net> schrieb

我想限制按钮单击/双击事件
仅从左侧按钮开始。如何通过中键和右键点击消除
？我能够捕获
这些，但我只是不确定如何取消活动....

I want to restrict a buttons click/doubleclick event to firing from the left button only. How do I eliminate the middle and right button clicks? I am able to trap these but I''m just not sure how to cancel the event....

你无法取消活动，但你可以忽略它。

-
Armin

。

You can not cancel an event, but you can ignore it.
--
Armin

.

原谅这个术语......那我怎么做到这一点？

以下内容允许我捕获事件。我需要做什么才能让我的应用程序忽略它？


Private Sub Flatbutton3_MouseDown（ByVal sender As Object，

ByVal e As System.Windows.Forms.MouseEventArgs）句柄

Flatbutton3.MouseDown


Dim eventString As String = Nothing

选择Case e.Button

Case MouseButtons.Right

eventString =" R"

Case MouseButtons.Middle

eventString =" M"

结束选择

如果eventString =" R"或者eventString =" M"然后


结束如果


End Sub

Pardon the terminology... So how do I accomplish this?
The following allows me to trap the event. What do I
need to do to have my app ignore it?

Private Sub Flatbutton3_MouseDown(ByVal sender As Object,
ByVal e As System.Windows.Forms.MouseEventArgs) Handles
Flatbutton3.MouseDown

Dim eventString As String = Nothing
Select Case e.Button
Case MouseButtons.Right
eventString = "R"
Case MouseButtons.Middle
eventString = "M"
End Select
If eventString = "R" Or eventString = "M" Then

End If

End Sub

嗨Kurt，>

你需要这样的东西：


私有MouseButtonDown作为MouseButtons


Sub MouseDown（）

MouseButtonDown = e.Button


Sub MouseClick（）和MouseDblClick（）

如果MouseButtonDown<> MouseButtons.Left

返回


Sub MouseUp（）

MouseButtonDown = MouseButtons.None


问候，

Fergus

Hi Kurt,

You need something along these lines:

Private MouseButtonDown As MouseButtons

Sub MouseDown()
MouseButtonDown = e.Button

Sub MouseClick() and MouseDblClick()
If MouseButtonDown <> MouseButtons.Left
Return

Sub MouseUp()
MouseButtonDown = MouseButtons.None

Regards,
Fergus