Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Beispiel für systemweite Mausabfrage

Uploader:Mitgliedjensma
Datum/Zeit:14.07.2009 18:18:54

'--------------------------------------------
' von jensma 2009
' Beispiel für systemweite Mausabfrage
' Codesnippet kann und darf kopiert werden =)
'--------------------------------------------

#Include once "windows.bi" 'WinAPI für die Mausabfrage einbinden
Screen 1 'Screen erstellen

Dim As point mouseposition 'Point auf die Mauskoordinaten
Dim As ubyte mousebutton 'Variable für den Mausbutton

Dim As String Button 'Nur zum Anzeigen des Buttons wichtig

Do
    Locate 1,1
    ? "X= " & mouseposition.X 'X-Koordinate systemweit
    ? "Y= " & mouseposition.Y 'Y-Koordinate systemweit
   ? "Button=" ; Button      'Mausbutton systemweit
   Button=space(10) 'Nur zu Anzeigezwecken
   mousebutton = 0

   GetCursorPos(@mouseposition) 'API-Befehl zur Abfrage der Mauskoordinaten,...

   If GetAsyncKeyState(VK_LBUTTON) Then mousebutton = 1'... des linken Buttons,
   If GetAsyncKeyState(VK_RBUTTON) Then mousebutton = 2'... und des Rechtens.

   If  mousebutton = 1 Then Button="Links "'Nur zu Anzeigezwecken
   If  mousebutton = 2 Then Button="Rechts"'Nur zu Anzeigezwecken

   Sleep 10

Loop Until GetAsyncKeyState(VK_ESCAPE)