Coordenadas relativas y absolutas ,Joystick en VBA Excel !!!

Compartir

Esta es una aplicación que demuestra el funcionamieto de las coordenadas relativas y absolutas que estan dentro de la hoja de cálculo

Aqui se da una pequeña muestra del código que se esta usando para llevar a cabo la aplicación


Public Declare Function GetCursorPos _
Lib "user32" (Some_String As POINTAPI) As Long

Type POINTAPI
X As Long
Y As Long
End Type

Dim RunPause As Boolean

Sub GetCoordinate()
Dim Pt As POINTAPI
Do
DoEvents
GetCursorPos Pt
[B5] = Pt.X
[C5] = Pt.Y
Loop
End Sub

Sub GetRelativeCoordinate()
Dim Pt0 As POINTAPI
Dim Pt1 As POINTAPI

GetCursorPos Pt0
Do
DoEvents
GetCursorPos Pt1
[B5] = Pt1.X - Pt0.X
[C5] = Pt0.Y - Pt1.Y
Loop
End Sub

Sub JoyStick()
Dim Pt0 As POINTAPI
Dim Pt1 As POINTAPI

RunPause = Not RunPause
GetCursorPos Pt0
Do While RunPause = True
DoEvents
GetCursorPos Pt1
[B5] = Pt1.X - Pt0.X
[C5] = -Pt1.Y + Pt0.Y
Loop
End Sub


Link de descarga ---> Click Aqui
Para poder tener acceso a los links de descargas se necesitas estar registrado o ser un seguidor.