Mausklicks zählen?

Für allgemeine Fragen zur Programmierung mit PureBasic.
Benutzeravatar
pvmichael
Beiträge: 144
Registriert: 29.08.2004 17:59
Wohnort: Rosenheim
Kontaktdaten:

Mausklicks zählen?

Beitrag von pvmichael »

Hallo!

hat von Euch jemand eine Idee, wie man Mausklicks mit PB zählen kann? Dabei soll die Standardfunktion allerdings nicht beeinträchtigt werden, es soll nur jeder Klick, evtl. sogar in Links- und Rechtsklick aufgeteilt, mitgezählt werden.

Grüsse

Michael
Benutzeravatar
vonTurnundTaxis
Beiträge: 2130
Registriert: 06.10.2004 20:38
Wohnort: Bayreuth
Kontaktdaten:

Beitrag von vonTurnundTaxis »

Müsste so funktionieren:

Code: Alles auswählen

Repeat
ExamineMouse()
If MouseButton(1) And losgelassen = 1
  gedruekt+1
  losgelassen = 0
EndIf

If MouseButton(1) = 0
  losgelassen = 1
EndIf
Until MouseButton(2)
Nicht durch Zorn, sondern durch Lachen tötet man
ClipGrab | Pastor - jetzt mit kurzen URLs!
Benutzeravatar
pvmichael
Beiträge: 144
Registriert: 29.08.2004 17:59
Wohnort: Rosenheim
Kontaktdaten:

Beitrag von pvmichael »

Das geht leider nur in Verbindung mit OpenScreen()


EDIT: Hab jetzt "plötzlich" was im CodeArchiv gefunden:

Code: Alles auswählen

Repeat
If GetAsyncKeyState_(#VK_LBUTTON)
    Beep_(1400,200)
    While GetAsyncKeyState_(#VK_LBUTTON) :Wend
  EndIf
  If GetAsyncKeyState_(#VK_RBUTTON)
    Beep_(1400,200)
    While GetAsyncKeyState_(#VK_RBUTTON) :Wend
  EndIf
  If GetAsyncKeyState_(#VK_MBUTTON)
    Beep_(1400,200)
    While GetAsyncKeyState_(#VK_MBUTTON) :Wend
  EndIf
  If GetAsyncKeyState_(#VK_ESCAPE)
    End
  EndIf
  Delay(1)
ForEver
Benutzeravatar
nco2k
Beiträge: 892
Registriert: 08.09.2004 23:13

Beitrag von nco2k »

is doch doof, dann wird ja das ganze programm angehalten...

wie wäre es mit sowas?

Code: Alles auswählen

Repeat
  If LeftMouse And GetAsyncKeyState_(#VK_LBUTTON) = #False
    LeftMouse = #False
    LeftMouseClicks + 1
  ElseIf GetAsyncKeyState_(#VK_LBUTTON)
    LeftMouse = #True
  EndIf
Until GetAsyncKeyState_(#VK_ESCAPE) : End
ist natürlich noch verbesserungswürdig, aber immerhin ein kleiner denkanstoss. :wink:

c ya,
nco2k
~|__/
..o.o.. <--- This is Einkaufswagen. Copy Einkaufswagen into your signature to help him on his way to world domination.
Antworten