VB2010 获取窗体上的鼠标位置

Question

我目前有一个没有最大化的形式。我在 MouseDown 子中有一些代码，当我单击表单时，它会给我一个具有鼠标单击位置的消息框。问题是，当我移动表单并单击同一位置时，它不会给我相同的位置。它给了我窗纱的位置，而不是形式。有没有办法解决这个问题？

法典：

sub MouseDown.......
msgbox Mouseposition.x & ", " & mouseposition.y
end sub

Answer 1

如果您希望客户端坐标使用 e.X 和 e.Y ：

Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown
    MessageBox.Show(e.X & ", " & e.Y)
End Sub