[VB6] Afvangen muis positie / beweging

[Verwijderd]

Ik heb een vraag:

Hoe is het in VB6 mogelijk de actuele muis positie en daarmee verandering af te vangen? Het moet door meerdere module's heen werken.

Ik vond dit stukje code, maar dat werkt niet. Ik heb een module gemaakt en de onderstaande code erin gezet, maar dan wordt de Private Declare Function regel rood

code:

Type POINTAPI
    x As Long
    y As Long
End Type

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

Please help

[Verwijderd]

private function in een module is sowieso niet echt slim lijkt mij ? meeste wat je in een module doet is public.

[Sponge]

Weet niet of dat hier door GoT er in komt, maar iig die twee \ moeten weg... dan zal de regel niet meer rood zijn

Daarna gewoon:

code:

Sub DoeWat()
Dim MousePos as PointApi

GetCursorPos MousePos

debug.print "Muis is nu op x", mousepos.x, "y",mousepos.y

[OZ-Gump]

Als je wil dat de muis niets meer kan kun je dat ook anders doen: je kunt alle hardware (toetsenbord & muis) volledig stopzetten met een API (en dus ook weer starten) Is natuurlijk wel een iets grovere manier.

code:

Declare Function EnableHardwareInput Lib "User" (ByVal bEnableInput As Integer) As Integer

[ Voor 4% gewijzigd door OZ-Gump op 19-02-2003 20:59 . Reden: gump != tiepmiep ]

[Verwijderd]

Het werkt.....

Iedereen bedankt