如何在 vb.net 中的表单上的任意位置检测鼠标单击? [英] How do I detect a mouse click anywhere on a form in vb.net?

问题描述

好的，所以我知道如何检查用户是否点击了特定对象，但是我真的不在乎用户是否点击了哪里，我只需要知道他们是否点击了(无论是在实际表单上还是在一个物体或其他任何东西上).我的代码是这样的:

Ok so I know how to check if the user has clicked on a specific object, however I really don't care if where the user clicks, I just need to know if they've clicked (Whether on the actual form or on an object or whatever). My code is this:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

    If GetAsyncKeyState(1) Then
        Label1.Text = "Left"
    Else
        Label1.Text = "Right"
    End If
End Sub

当我运行代码时，出现错误:

When I run the code, I get an error:

检测到 PInvokeStackImbalance

PInvokeStackImbalance was detected

"对 PInvoke 函数 'Mouse click!Mouse_click.Form1::GetAsyncKeyState' 的调用使堆栈不平衡.这可能是因为托管 PInvoke 签名与非托管目标签名不匹配.检查调用约定和参数PInvoke 签名与目标非托管签名匹配."

"A call to PInvoke function 'Mouse click!Mouse_click.Form1::GetAsyncKeyState' has unbalanced the stack. This is likely because the managed PInvoke signature does not match the unmanaged target signature. Check that the calling convention and parameters of the PInvoke signature match the target unmanaged signature."

我对 vb.net 很陌生，所以文档真的对我没有帮助.任何帮助都会很棒:)

I'm very new to vb.net so the documentation really doesn't help me. Any help would be awesome :)

推荐答案

有几种方法可以真正做到这一点，这取决于您究竟要完成什么.一种方法是在一个特定的地方路由所有点击事件:

There are several ways really to do this and it depends on what exactly you are trying to accomplish. One way would be to have a specific place that you route all click events:

Public Sub ClickHandler(sender As Object, e As MouseEventArgs) Handles Me.MouseClick, PictureBox1.MouseClick, Label1.MouseClick, Button1.MouseClick
    Label1.Text = String.Format("Clicked ""{0}"" with the {1} mouse button.", sender.name, e.Button.ToString.ToLower)
End Sub

注意到这个 Sub 处理的所有事件了吗?如果您想确定按下的是哪个按钮，您可以执行以下操作:

Notice all the Events that this Sub handles? And if you want to determine what button was pushed, you might be able to do something like this:

Select Case e.Button
    Case MouseButtons.Left
        Label1.Text = "Left"
    Case MouseButtons.Right
        Label1.Text = "Right"
    Case MouseButtons.Middle
        Label1.Text = "Middle"
    Case Else
        Label1.Text = "Some other button"
End Select

同样，这只是一种方式，对于充满控件或跨任何应用程序工作的大型应用程序来说并不十分实用.类似的事情会更复杂，并且可能需要系统范围的钩子.

Again, this is just one way and not very practical for large apps full of controls or working across any application. Something like that would be more involved and might require a system wide hook.

:
沿着 Robin 评论的路线(顺便说一句，很好的建议)是，您可以选择在单独的代码行中添加处理程序，以避免必须预先包含每个控件.事实上，如果你确实遵循了这个我非常喜欢的方法，你可以用一个循环对表单上的每个控件执行此操作:

:
Along the lines of what Robin commented (excellent suggestion, by the way) is that you can alternatively add the handler in a separate line of code to avoid having to include every control up front. In fact, if you did follow this method, which I really like, you could do this with each control on the form with a loop:

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    For Each c As Control In Controls
        AddHandler c.MouseClick, AddressOf ClickHandler
    Next
End Sub

Private Sub ClickHandler(sender As Object, e As MouseEventArgs) Handles Me.MouseClick
    Label1.Text = String.Format("Clicked ""{0}"" with the {1} mouse button.", sender.name, e.Button.ToString.ToLower)

    Select Case e.Button
        Case MouseButtons.Left
            Label2.Text = "Left"
        Case MouseButtons.Right
            Label2.Text = "Right"
        Case MouseButtons.Middle
            Label2.Text = "Middle"
        Case Else
            Label2.Text = "Some other button"
    End Select
End Sub

谢谢你，罗宾！完全从我的脑海中消失了......

Thanks for that, Robin! Completely escaped my mind...

这篇关于如何在 vb.net 中的表单上的任意位置检测鼠标单击?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！