Posicion del raton

[hectorzx]

Hola, querria saber como es posible saber las coordenadas del raton en la pantalla.

Salu2

[zXxOsirisxXz]

Aki te dejo el codigo, me parece k ya estaba, para la proxima, te acosejo que buskes mas..

Private Type POINTAPI
x As Long
y As Long
End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim Pt As POINTAPI
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfte r As Long, ByVal x As Long, y, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const TOPMOST_FLAGS = SWP_NOMOVE Or SWP_NOSIZE


Public Sub MakeTopMost(hwnd As Long)
    SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS
End Sub






Private Sub Form_Load()
Call MakeTopMost(Me.hwnd)

Timer1.Interva l = 100
Me.FontSize = 13

End Sub

Private Sub Timer1_Timer()
GetCursorPos Pt

Me.CurrentX = 0
Me.CurrentY = 0
Me.Cls
Me.Print "Poisicion::"
Me.Print "X:" + Str$(Pt.x) + vbCrLf + "Y:" + Str$(Pt.y)

End Sub

Salu2

[metroix]

este man siempre ase las cosas dificiles... bueno agrega esta api en la parte de declaraciones

Código:

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

Private Type POINTAPI
x As Long
y As Long
End Type
Dim a As POINTAPI
Dim b As Long
Dim c As Long

y agrega un boton y un  2 labels y en el evento clik del command agrega

Código:

ret = GetCursorPos(a)
b = a.x
c = a.y
label1.caption = b
label2.caption = c

[zXxOsirisxXz]

este man siempre ase las cosas dificiles... bueno agrega esta api en la parte de declaraciones

Código:

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

Private Type POINTAPI
x As Long
y As Long
End Type
Dim a As POINTAPI
Dim b As Long
Dim c As Long

y agrega un boton y un  2 labels y en el evento clik del command agrega

Código:

ret = GetCursorPos(a)
b = a.x
c = a.y
label1.caption = b
label2.caption = c

Es k el mio tiene el MakesMeTopMost, osea, tiene flow/estilo

[metroix]

el no tava preguntando por MakesMeTopMost, flow/estilo :-\lol

[ActiveSheet]

Código:

Private Sub Form_Mousemove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
    Mouse Button, Shift, X, Y
End Sub
Private Sub Mouse(Button As Integer, Shift _
As Integer, X As Single, Y As Single)
    Dim descr As String
    descr = Space$(20)
descr = "(" & X & "," & Y & ")" + descr
Label1.Caption = descr
End Sub

saludos