VB2010在表单上获取鼠标位置

Question

我目前有一张未最大化的表格。我在MouseDown子代码中有一些代码，当我点击表单时，它会给我一个具有鼠标点击位置的msgbox。问题是当我移动表单并在同一位置点击时，它不会给我相同的位置。它给了我窗口屏幕的位置，而不是窗体。有没有办法解决这个问题？

代码：

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