XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Listbox erstellen (sortiert und unsortiert)
Lauffähig ab Profan-Version 5.0
-----------------------------------------------
titel:    Wie erstelle ich eine Liste und lese diese aus?
autor:    Rolf Koch - ROKO-SOFTWARE
e-mail:   webmaster/at/rokosoft.de
homepage: http://www.rokosoft.de
datum:    20.01.2001
-----------------------------------------------
Erklärung:
----------
Eine Liste ist besonders geeignet um dem Anwender
verschiedenen fertige Textzeilen zur Auswahl
anzubieten.
Man beachte hier: Es gibt 2 Befehle:
CreateListBox = einfache Liste, wo die Zeilen drin stehen, wie sie eingelesen wurden
CreateSortedListBox = egal wie eingelesen wird, alles wird nach Alphabet einsortiert.
declare ende%,box%,Ausgabe%                           Variablen vorbereiten
declare eintrag%,eintrag$                             dito
Window 30,30 - 400,300                                einfaches Fenster erstellen
Windowtitle Bitte anklicken (Listboxdemo)           Fenstertitel hizufügen
let box%=@CreateListbox(%hwnd,,50,50,250,100)       unsortierte Listbox einrichten
let ausgabe%=@CreateText(%hwnd,,50,200,300,18)      Wo die ausgelesene Listboxzeile
angezeigt wird
clearlist                                             vorhandene Listeinträge löschen
standardmäßig
addstring Ich bin der erste Eintrag                 Ersten Eintrag beifügen
addstring Hallo vom zweiten Eintrag                 Zweiten .....
addstring Nummer drei zu sein ist auch schön        Dritten .....
addstring Auf die Nummer vier - ein Bier            Vierten .....
addstring Nummer Fünf lebt!                         Fünften .....
Movelisttolist(box%)                                  Alle 5 Textzeilen in Liste rein

Whilenot ende%                                        solange ende%=0

    waitinput                                             wartet auf Ergeignis (Maus o. Taste)
    let eintrag%=@GetCursel(Box%)                         Position erkennen - welcher angeklickt wurde
    let eintrag$=@GetString$(Box%,eintrag%)               String auslesen
    Parameter: In welcher Liste (hier box%)
    Eintrag Nr. siehe deswegen @getcursel
    settext ausgabe%,eintrag$                             Ergebnis im Textfeld anzeigen.
    wend                                                  zurück zum Schleifenbeginn.