Vb.Net 在 PictureBox 中移动鼠标

Question

你好，我想将鼠标移动到图片框内的 X、Y 坐标，我正在从我的 Sub 中获取我的坐标，就像这样

 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    LocalMousePosition = PictureBox1.PointToClient(Cursor.Position)

    txt_MouseLoc.Text = ("X=" & LocalMousePosition.X & "," & "Y= " & LocalMousePosition.Y)
End Sub

现在假设 x= 100 且 Y = 100

我想单击一个按钮并将鼠标移动到 ... 你猜对了 x100 y100

但我正在使用它来移动鼠标

Windows.Forms.Cursor.Position = New Point(x, y)
        Thread.Sleep(2000)
        Do_LMouseClick()
        Thread.Sleep(2000)

它根据屏幕而不是 picturebox1 将鼠标移动到 x100 和 y100

我试过了

MouseLocation = picturebox1.pointtoscreen(x,y)

但是没有任何想法？提前致谢！

Answer 1

位置需要加上窗体的位置和图片框的位置：

Windows.Forms.Cursor.Position = New Point(x + Me.Location.X + PictureBox1.Location.X, _
                                          y + Me.Location.Y + PictureBox1.Location.Y)

更新：

表单的标题栏需要通过在 Y 方程中添加其高度来补偿。

Vb.Net 在 PictureBox 中移动鼠标

Vb.Net Move Mouse inside PictureBox

vb.net

mouseevent

mousemove