Få koordinatene til musen?

[Blaster2k]

Hvordan kan man få koordinatene til musepekeren, x og y separat :>

[Vain]

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Cls
Print X & " " & Y
End Sub

[Blaster2k]

takker og bukker =) Hva gjøre .Cls?

[Vain]

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Cls
me.print X & " " & Y
End Sub

 

me.cls fjerner det som har bltt skrevet på form1 med print-funksjonen.

Endret 28. november 2004 av 86Fredrik

[Jonas]

Her er en annen måte:

Option Explicit

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

   Private Type POINTAPI
           x As Long
           y As Long
   End Type

Private lpPoint As POINTAPI

Private Sub Form_Load()

GetCursorPos lpPoint

MsgBox "X: " & lpPoint.x & vbNewLine & _
      "Y: " & lpPoint.y

End Sub