VB中,如何令X Y坐标跟随滑鼠

来源：百度知道 编辑：UC知道 时间：2024/05/26 02:41:15
请教我程式码 谢谢
我要的是鼠标右下方出现当前的X坐标 Y坐标

不需要创建任何控件

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Cls
CurrentX = X
CurrentY = Y
Print X; Y
End Sub

事件mousemove mousedown mouseup中有自带变量x,y已经储存了当前鼠标的XY坐标值

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1 = X
Text2 = Y
End Sub

放置一个Label控件，如label1，然后输入代码：

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "X:" & X & " Y:" & Y
Label1.Move X + 220, Y + 120
End Sub