26.05.2010, 01:07
Bueno, mi pregunta es esa, hay alguna forma de obtener la posicion del cursor en Visual Basic 6.0?, cual?. Gracias desde ya

Option Explicit ' * Colocar un control Timer '------------------------------------------------- 'Estructura de coordenadas para el api GetCursorPos Private Type POINTAPI X As Long Y As Long End Type Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Dim Mouse As POINTAPI Private Sub Form_Load() 'Ponemos el Timer en 100 Timer1.Interval = 100 Me.FontSize = 10 End Sub Private Sub Timer1_Timer() 'Ejecutamos la funciуn y recuperamos la posicion del cursor Call GetCursorPos(Mouse) ' limpia el form Me.Cls Me.Print "Posicion del cursor :" 'Imprimimos las cordenadas X e Y devueltas por el api Me.Print "X:" + Str$(Mouse.X) + vbCrLf + "Y:" + Str$(Mouse.Y) End Sub