spørgsmål ang. musen

(nb. Jeg kan ikke benytte directX derfor win32API\'en)

\'--- Module1 ----
Declare Function GetAsyncKeyState Lib \"user32\" (ByVal vKey As Long) As Integer
\'--- Module1 ----


\'--- Form1 ---
Private Sub Form_Load()
Timer1.Interval = 5
End Sub

Private Sub Timer1_Timer()
For i = 0 To 255
KeyResult = GetAsyncKeyState(i)
If KeyResult = -32767 Then
Label1.Caption = \"Key nr: \" & i \'keybord Tast
If i = 1 Then Label1.Caption = \"Left Click\"
If i = 2 Then Label1.Caption = \"Right Click\"
If i = 4 Then Label1.Caption = \"Midt Click\"
Exit For
End If
Next i
End Sub
\'--- Form1 ---

Kan du ikke bruge mousedown event f.eks. på formen:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Debug.Print Button
End Sub

Her bliver knappen du trykkede på skrevet ud men numrene er 1 for venstre 2 for højre så kan du teste på disse værdier, det samme gælder for mouseup.