Hvordan sjekke om venstre museknapp er trykket ned

[Alexen]

Jeg skal prøve å lage en interaktiv rapport i ms-access, hvor en msgbox skal dukke opp viss man trykker på en knapp men det ser ikke ut til at man kan bruke hendelser i rapporter, så jeg må "jukse" litt. Tenkte å bruke api for å sjekke om venstre museknapp er trykket ned og så finne ut om musepekeren er over kommandoknappen. Problemet er ganske enkelt at jeg ikke husker hvilken api jeg må bruke for å sjekke om museknappen er nedtrykt. Noen som vet?

[Jonas]

API:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Kode:

If Not GetAsyncKeyState(vbMouse1) = 0 Then Msgbox "hallo

Har ikke tid til å teste, og finne riktig "Key", men tror den er noen lunde riktig.

 

Edit: Fant dette i API-Viewer:

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Endret 24. september 2004 av Jonas

[aadnk]

Korreksjon, slik skal man sjekke om venste musetast er nedtrykt:

 

If GetAsyncKeyState(vbLeftButton) <> 0 Then Msgbox "hallo"

[Alexen]

Tusen takk folkens.. dere er en utømmelig kilde av informasjon...