Question

VB设计一个应用程序（如图8-1所示），可使图片跟随鼠标指针移动，两个标签显示X和Y坐标。

设计一个应用程序可使图片跟随鼠标指针移动，两个标签显示X和Y坐标。

hsztly_2006@qq.com

Answer 1

这个代码很简单，再创建一个Image1，通过它的Picture属性加载一张图片就可以了

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Move X, Y
Label1.Caption = "X坐标：" & X
Label2.Caption = "Y坐标：" & Y
End Sub

Answer 2

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Left = X - Image1.Left / 2
Image1.Top = Y - Image1.Height / 2
Label1.Caption = X
Label2.Caption = Y
End Sub