Beitrag, 16.07.2007 00:43: ;createCode() 'Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt: 'Maustasten abfragen (2) 'Lauffähig ab Profan-Version 5.0 'Erklärung: '---------- 'Diese Beispiel demonstriert, wie bei einem Mausklick die Position 'des Cursors und die gedrückte Maustaste abgefragt wird. 'Es bedeuten: '------------ '%Mousepressed systemvariable für gerade grdrückte Maustaste '%MouseX Systemvariable für aktuelle Position der Maus (X-Achse) '%MouseY Systemvariable für aktuelle Position der Maus (Y-Achse) 'Window x1,y1 - x2,y2 ein Fenster wird erstellt '%MaxX horizontale Auflösung des Bildschirmes '%MaxY vertikale Auflösung des Bildschirmes '----------------------------------------------- declare ende%,Text$,Mausy%,Mausx% 'Variablen declarieren Window 0,0 - %MaxX,%MaxY 'Fenster wird geöffnet (so gross wie der Bildschirm) let ende%=0 whilenot ende% waitinput if equ(%key,2) 'Abfrage von "x" (rechts o.) 'und doppelklick auf das Programmsymbol (links o.) let ende%=1 'Beenden-Schleife, Programm beendet mit Klick auf "x" 'oder mit Doppelklick auf Programmsymbol links-oben elseif equ(%Mousepressed,1) 'Abfrage der linken Mt let MausX%=%MouseX 'X-koordinate des Mauscursors let Mausy%=%MouseY 'Y-koordinate des Mauscursors let Text$=add$(add$(add$("Linke Maustaste wurde gedrückt. \nMauskoordinaten: ",Str$(MausX%)),","),str$(MausY%)) messagebox(Text$,"I N F O",4160) 'eine Aktion auslösen (hier: Messagebox mit Info, Mauskoordinaten elseif equ(%Mousepressed,2) 'Abfrage der rechten Mt let MausX%=%MouseX 'X-koordinate des Mauscursors let Mausy%=%MouseY 'Y-koordinate des Mauscursors let Text$=add$(add$(add$("Rechte Maustaste wurde gedrückt. \nMauskoordinaten: ",Str$(MausX%)),","),str$(MausY%)) messagebox(Text$,"I N F O",4160) 'eine Aktion auslösen (hier: Messagebox mit Info, Mauskoordinaten endif wend end
Dies ist die Offlinevariante vom Thread [Maustasten abfragen (2)].
©2006 XProfan.Com