Checkbox erstellen und ihren Zustand abfragen

'Checkbox erstellen und ihren Zustand abfragen

Beitrag, 15.07.2007 21:48: ;createCode() 'Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt: 'Checkbox erstellen und ihren Zustand abfragen 'Lauffähig ab Profan-Version 5.0 'Erklärung: '---------- 'Diese Beispiel demonstriert, wie eine Checkbox erstellt und ihr Zustand abgefragt wird. 'Es bedeuten: '------------ 'Window x1,y1 - x2,y2 ein Fenster wird erstellt '%MaxX horizontale Auflösung des Bildschirmes '%MaxY vertikale Auflösung des Bildschirmes '%Hwnd Handle des Hauptfensters 'Createcheckbox siehe Profan² - Hilfe '----------------------------------------------- declare ende%,y%,x%,Test%,checkbox% 'Variablen declarieren let x%=200 'Breite des Fensters let y%=150 'Höhe des Fensters Window div(sub(%MaxX,x%),2),div(sub(%MaxY,y%),2) - x%,y% 'ein Fenster wird erstellt, es steht immer in der 'Bildschirmmitte (egal wie gross das Fenster ist!) let test%=createbutton(%Hwnd,"Test",45,50,100,25) ' "OK"-Button erstellen let checkbox%=createcheckbox(%Hwnd,"CheckBox",52,20,85,20) let ende%=0 whilenot ende% waitinput if equ(%key,2) let ende%=1 elseif getfocus(test%) 'Abfrage, ob Button "Test" gedrückt wurde if getcheck(checkbox%) 'danach wird abgefragt, ob die Checkbox aktiviert wurde messagebox("CheckBox aktiviert!","I N F O",4160) 'irgendetwas auslösen... else messagebox("CheckBox nicht aktiviert!","I N F O",4160) 'wenn Checkbox nicht aktiviert wurde, mache das..., 'kann auch weggelassen werden, wenn nur wichtig ist 'zu wissen, ob die Checkbox aktiviert wurde endif endif wend end

Dies ist die Offlinevariante vom Thread [Checkbox erstellen und ihren Zustand abfragen].