dim r,c as string
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
r = X
c = Y
End Sub
'I don't think I can help you with this programe
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = X
Text2.Text = Y
End Sub
'I don't think I can help you with this programe !!
将下面的代码加入你的程序中,你就可以使用GetCursorPos函数了
Public Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
Public Type POINTAPI
x As Long
y As Long
End Type