Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!Code-Beispiel
Maus (Für Anfänger)
| Lizenz: | Erster Autor: | Letzte Bearbeitung: |
| k. A. |  helloworld |  16.04.2010 |
Screen 19, 32
Dim As Any Ptr bild
Dim As String datei, lizenz
Dim As Integer breite, hoehe
Dim As Integer x, y, wheel, buttons
datei = "DeinBild.bmp"
breite = 467
hoehe = 236
bild = ImageCreate (breite, hoehe, 0)
BLoad datei, bild
Put (100, 100), bild, PSet
Do
GetMouse x, y, wheel, buttons
If buttons = 1 Then
Locate 1, 1
Print x, y
If x < 280 Then
Print "c"
Else
Print "b"
EndIf
EndIf
Sleep 1 'Auslastung des Prozessors in der Schleife senken
Loop Until InKey = Chr(27) 'Die Schleife mit ESC verlassen
ImageDestroy(bild) 'Nicht vergessen - den Speicher für das Bild wieder freigeben
Nun folgt eine kleine Erklärung:
Mit
GetMouse x, y, wheel, buttons
wird der Zustand der Maus abgerufen
x = Die X Koordinate
y = Die Y Koordinate
wheel = Mausrad-Stellung
buttons = Maustasten : 0 keine, 1 linke, 2 rechte
Mit dem If wird ermittelt welche Hälfte des bildes geklickt wird
(die Koordinate die gewählt werden muss kann so ermittelt werden:
Screen 19, 32
Dim As Any Ptr bild
Dim As String datei, lizenz
Dim As Integer breite, hoehe
Dim As Integer x, y, wheel, buttons
datei = "DeinBild.bmp"
breite = 467
hoehe = 236
bild = ImageCreate (breite, hoehe, 0)
BLoad datei, bild
Put (100, 100), bild, PSet
Do
GetMouse x, y, wheel, buttons
Print x, y
Sleep 1 'Auslastung des Prozessors in der Schleife senken
Loop Until InKey = Chr(27) 'Die Schleife mit ESC verlassen
ImageDestroy(bild) 'Nicht vergessen - den Speicher für das Bild wieder freigeben
| Zusätzliche Informationen und Funktionen | |||||||
|---|---|---|---|---|---|---|---|
|
|
||||||
Bearbeiten
Versionen