Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [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)