Autor | Thema: Sorted Listbox drucken | | 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.
|
| | 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
|
| | 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
|
|
|