请教：显示PictureBox中某点相对位置的问题

Question

在picturebox中建了label，鼠标在图片框内移动时，在label上显示鼠标位置相对picture中某点的距离，此距离不随窗体在屏幕位置的影响。请问哪些途径可以实现？非常感谢！

Answer 1

以下代码能显示鼠标相对图片框原点的位置:Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.Caption = "X=" & X & vbNewLine & "Y=" & Y
    Shape1.FillColor = RGB(Val(Text4), Val(Text5), Val(Text6))
End Sub

Answer 2

修改代码,能显示鼠标相对图片框原点的位置:Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.Caption = "X=" & X & vbNewLine & "Y=" & Y
End Sub