Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 249618 (11054)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Sorted Listbox drucken
Frank Reinhold
| Datum:21.06.01 20:35 (a0176604@addcom.de) |
Hallo, weiß jemand wie man den Inhalt einer "Sorted Listbox" auf den Drucker, also sortiert, ausgeben kann? Gruß Frank.
Jörg Sellmeyer
| Datum:21.06.01 22:56 (joerse@gmx.de) |
Hallo, StartPrint let n%=0 whilenot equ(n%,%getcount) DrawText 150,add(10,mul(n%,20)) Listboxitem$(n%) inc n% wend EndPrint Allerdings kann es sein, daß Du für eine Sortiete Listboxliste (die "eingebaute") erst den Inhalt in eine Createsortedlistbox kopieren mußt und dann mit : DrawText 150,add(10,mul(n%,20)) getstring$(meineListbox&,n%) das ganze auslesen. Viele Grüße Jörg
Rolf Koch
| Datum: 21.06.01 23:00 (webmaster@rokosoft.de) |
Hi - hatte noch sowas auf meiner Platte - jedoch wird hier noch keine neue Seite bei vielen Zeilen angefangen:
    declare ende%,box%,x%
    declare eintrag%,eintrag$,i%
    SetTrueColor 1
    CLS RGB(192,192,192)
    Windowtitle "Bitte anklicken"
    let box%=@CreatesortedListbox(%hwnd,"",50,50,250,100)
    Print "Bitte F1 drücken zum drucken"
    clearlist
    addstring "Ich bin der erste Eintrag"
    addstring "Hallo vom zweiten Eintrag"
    addstring "Nummer drei zu sein ist auch schön"
    addstring "Auf die Nummer vier - ein Bier"
    addstring "Nummer Fünf lebt!"
    Movelisttolist(box%)
    Whilenot ende%
    waitinput
    i%=0
    x%=50
    if equ(%scankey,112)
       StartPrint
       Whilenot gt(i%,%GetCount)
           let eintrag$=@GetString$(Box%,i%) 'String auslesen
           DrawText 20,x%,eintrag$
           inc i%
           x%=add(x%,30)
       wend
       Endprint
    endif
    wend

| Zurück zur Übersicht