1,486
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Visible = False
Label2.Visible = False
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Visible = True
Label2.Visible = True
Label1.Left = X + 100
Label2.Left = X + 100
Label1.Top = Y
Label2.Top = Y + 200
Label1.Caption = "X=" & X
Label2.Caption = "Y=" & Y
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Left = X + 100
Label2.Left = X + 100
Label1.Top = Y
Label2.Top = Y + 200
Label1.Caption = "X=" & X
Label2.Caption = "Y=" & Y
End Sub