Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

Maus?

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Andre



Anmeldungsdatum: 06.09.2006
Beiträge: 47
BeitragVerfasst am: 24.09.2006, 12:36    Titel: Maus? Antworten mit Zitat
Also, mal wieder ne Frage von mir...

Ich habe eine Maus erstellt und soweit konfiguriert. Ich kann die Position der Maus mir anzeigen lassen und welche Knöpfe gedrückt sind. Aber wie kann ich einbinden, wenn knopf A in Bereich B gedrückt wird mache C.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
volta



Anmeldungsdatum: 04.05.2005
Beiträge: 1876
Wohnort: D59192
BeitragVerfasst am: 24.09.2006, 14:25    Titel: Antworten mit Zitat
schau mal hier:
http://forum.qbasic.at/viewtopic.php?p=33623#33623
da wurde das ausfühlich diskutiert.
_________________
Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Michael712
aka anfänger, programmierer


Anmeldungsdatum: 26.03.2005
Beiträge: 1593
BeitragVerfasst am: 24.09.2006, 14:26    Titel: Antworten mit Zitat
Hier ein kleines Beispiel:

Code:
Dim As Integer x, y, t, talt

Screen 18,24

Line(130,220)-(320, 420),&Hff0000,b

Do
    getmouse x, y,, t
   
   
    If t = 1 And x>130 And x<320 And y>220 And y<420 And talt=0 Then
        Line(131,221)-(319, 419),&H00ff00,bf
    Else
        If t = 1 Then talt=1 Else talt=0
        Line(131,221)-(319, 419),&H0,bf
    End If
    Sleep 10
Loop Until inkey<>""

Sleep


Edit: Mist, zu langsam grinsen
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
Andre



Anmeldungsdatum: 06.09.2006
Beiträge: 47
BeitragVerfasst am: 26.09.2006, 23:15    Titel: Antworten mit Zitat
Danke für die Antworten.

@volta, Der Link hat mir nur soweit geholfen das ich mir nun die CASE Befehle anschauen muss... aber trozdem Danke...

@programmierer, ich habe keine Ahnung was genau dein Code bezweckt aber ich teste das mal aus...
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC. Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz