PureBoard

Verfasst: **16.07.2005 22:15**

If GetAsyncKeyState_(#VK_LBUTTON)
   Debug "Links"
EndIf

If GetAsyncKeyState_(#VK_RBUTTON)
   Debug "Rechts"
EndIf

EDIT: Dóh! Zu spät!

EDIT2: Dóh???

Ich meinte natürlich D´oh!

Verfasst: **16.07.2005 22:22**

Was soll ich dazu sagen...

Verfasst: **16.07.2005 22:26**

Am besten nix, sonst wirds noch peinlicher

Verfasst: **16.07.2005 22:31**

... das geht doch kaum noch!

Obwohl, doch:

Ich habe den Code

Code: Alles auswählen

If GetAsyncKeyState_(#VK_LBUTTON) 
   Debug "Links" 
EndIf 

If GetAsyncKeyState_(#VK_RBUTTON) 
   Debug "Rechts" 
EndIf

im Editor eingegeben und nix passiert!!!!

=

Verfasst: **16.07.2005 22:37**

Tja, niemand hat gesagt, dass es so fix und fertig ist!

Mach mal folgendes:

Code: Alles auswählen

Repeat
If GetAsyncKeyState_(#VK_LBUTTON)
  Debug "Links"
  Break
EndIf

If GetAsyncKeyState_(#VK_RBUTTON)
  Debug "Rechts"
  Break
EndIf 
Delay(10)
ForEver

Simon

P.S.: Edit mal all die Leerzeilen weg!

Verfasst: **16.07.2005 22:42**

Hab das jetzt alles so in Word eingegeben... da passiert immer noch nix!!!

WAS MACH ICH BLOSS FALSCH, BLUEJOKE?!

=

Verfasst: **16.07.2005 22:44**

So mal ganz klein am Rande: das ist hier kein Kindergarten. Der Kindergarten ist hier gleich um die Ecke...

Verfasst: **16.07.2005 22:46**

Och, MVXA... Spielverderber...

Verfasst: **16.07.2005 22:49**

Jaa ich bin ein großer Spielverderber. Deswegen ist auch ein T-Shirt mit großer Fettschrift "Spaßbremse" in meinem Kleiderschrank.

Hier noch was zum Topic:

Code: Alles auswählen

Global RBtn, LBtn

Repeat
    If GetAsyncKeyState_(#VK_LBUTTON)
        If LBtn = 0
            Debug "Links gedrückt"
            LBtn = 1
        Else
            Debug "Links immer noch gedrückt"
        EndIf
    Else
        If LBtn = 1
            Debug "Links los gelassen"
            LBtn = 0
        EndIf
    EndIf
    
    If GetAsyncKeyState_(#VK_RBUTTON)
        If RBtn = 0
            Debug "Rechts gedrückt"
            RBtn = 1
        Else
            Debug "Rechts immer noch gedrückt"
        EndIf
    Else
        If RBtn = 1
            Debug "Rechts los gelassen"
            RBtn = 0
        EndIf
    EndIf
    Delay(10)
ForEver

Verfasst: **16.07.2005 22:49**

LOL was treibt ihr hier noch so spät

PureBoard

Maus gedrückt