VB：鼠标点击不起作用

Question

我的代码：

Me.KeyPreview = True
...

Private Sub Form_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseClick
    If e.Button = Windows.Forms.MouseButtons.Right Then
        MsgBox("Right Mouse clicked.")
    End If
End Sub

尝试捕获鼠标右键，但不起作用。

欢迎任何建议。感谢

Answer 1

正如评论中的其他提及，您的代码似乎是正确的，但只适用于普通表单。为了克服这个问题，你可以加入活动。

Private Sub Form_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseClick, Button1.MouseClick, Control1.MouseClick, AnyOtherControl.MouseClick
    If e.Button = Windows.Forms.MouseButtons.Right Then
        MsgBox("Right Mouse clicked.")
    End If
End Sub

请在此代码中替换您希望事件触发的控件名称：

Handles MyBase.MouseClick, Button1.MouseClick, Control1.MouseClick, AnyOtherControl.MouseClick

我猜你正在使用填充大部分表单的任何容器控件。如果您希望活动与他们合作，您需要将他们添加到您的活动中。

最后还有DoubleClick的问题，它不会触发事件。要克服它，您需要做的就是将MouseClick更改为MouseDown