Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 249618 (11054)
  Suchen
 Zurück zur Übersicht
 AutorThema: Sorted Listbox drucken
Frank Reinhold
Datum:21.06.01 20:35 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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 Antwortenals Email verschicken (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