Mouse click

Tags:    visual-basic

Jeg er ved at lave et program der husker hvor jeg klikker

noget alla dette her

Timer1 ...
if button = 1 then
Dosave
else
endif

et eller andet af dette her men har søgt og søgt efter mouse click uden for formen og kan fandma ikke få det til at virke kan jeg få lidt hjælp?
//ETA aka Emil Thor Andersen
Http://www.eta-wall.tk/



Indsaet i et modul:

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

Private Type POINTAPI
X As Long
Y As Long
End Type

Global mouseposition as POINTAPI


Herefter kan du kalde funktionen hvor du har brug for den, f.eks:

Private Sub Timer1_Timer()

Call GetCursorPos(mouseposition)

Label1.Caption="X: " & mouseposition.x & " Y: " & mouseposition.y
End Sub





t