Beitrag, 15.07.2007 23:35: ;createCode()'Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
'Fensterbereiche abfragen
'Lauffähig ab Profan-Version 5.0
'titel: Fensterbereiche abfragen (Koordinaten)
'autor: Rolf Koch - ROKO-SOFTWARE
'e-mail: webmaster@rokosoft.de
'homepage: http://www.rokosoft.de
'datum: 27.01.2001
'-----------------------------------------------
'Erklärung:
'----------
'Hat man z.B. ein Bild angezeigt und will es aktiv
'werden lassen (reaktionsfähig), so kann man dies
'mit dem Befehl @Mouse erledigen.
Declare ende% 'Variable für Endeschalter vorbereiten.
Window 30,10 - 350,200 'Fenster erstellen
Windowtitle "Koordinatenabfrage" 'Titel des Fensters
Print "Bitte mal ins leere und dann in irgendein"
Print "Bild klicken"
'Hier werden Bilder (absichtlich vorhandene Bilder aus dem Windowsverzeichnis) an
'der X,Y Position im hinter dem Semikolon stehenden Kopierwert angezeigt.
'Kopierwerte siehe Profanhilfe. O = normale Anzeige.
Loadbmp "C:\WINDOWS\KACHELN.BMP",30,51;0
Loadbmp "C:\WINDOWS\KREISE.BMP",80,51;0
Loadbmp "C:\WINDOWS\KUGELN.BMP",148,51;0
Loadbmp "C:\WINDOWS\BLAUE NOPPEN.BMP",240,50;0
Loadbmp "C:\WINDOWS\HAHNENTRITT.BMP",240,90;0
whilenot ende% 'Solange Variable ende% = 0
waitinput 'wartet auf eine Eingabe - Maus oder Taste
If @Mouse(30,50 - 62,82) 'Wenn Mausklick im Bereich X 30 Y50 (linke obere Ecke Bild) und
'x62,y82 (rechte untere Ecke)
@MessageBox("Bild Kacheln.bmp wurde gedrückt","Bild Nr.1",64)
'Eine Hinweisfenster anzeigen wenn im Maus im Klickbereich
'Parameter: @message(Text,Überschrift,Iconnr (siehe Profanhilfe))
ElseIf @Mouse(80,50 - 112,82) 'wennaber .......
@MessageBox("Bild Kreise.bmp wurde gedrückt","Bild Nr.2",64)
ElseIf @Mouse(149,51 - 211,113) 'wennaber.....
@MessageBox("Bild Kugeln.bmp wurde gedrückt","Bild Nr.3",64)
ElseIf @Mouse(240,50 - 256,66) 'wennaber...
@MessageBox("Bild Blaue Noppen.bmp wurde gedrückt","Bild Nr.4",64)
ElseIf @Mouse(240,90 - 267,115) 'wennaber..
@MessageBox("Bild Hahnentritt.bmp wurde gedrückt","Bild Nr.5",64)
Endif 'Ende der Abfrage
wend 'zurück zu Whilenot ende%
Dies ist die Offlinevariante vom Thread [Fensterbereiche abfragen].
©2006 XProfan.Com