Autor | Thema: Listbox mit mehreren Spalten | | Datum:18.12.01 16:04 
(info@heinemaennchen.de) | |
Wie kann ich eine Listbox mit mehreren Spalten erzeugen ?
Mfg M.Heinemann
|
| | Datum:18.12.01 16:22 
(christian_devilbis@lycos.de) | |
>Wie kann ich eine Listbox mit mehreren Spalten erzeugen ?
Hi,
Das wäre dann aber keine Listbox mehr, sodern ein GRID,
(oder einfach, eine Tabelle).
Über API lässt sich soetwas erzeugen, der Code dafür
ist aber ziemlich lang, vorlage von "Richard Maurukas",
allerdings nicht ganz so einfach zu verwalten.
Einfacher getz mit der Powerdll und der Grid-Komponente.
|
| | Datum:18.12.01 19:19 
(andreas@andreas-miethe.de) | |
Hallo zusammen,
Das ist dann immer noch eine Listbox und kein Grid.
Hier ein Beispiel :
Gruss
Andreas
'----------------------------------
Declare MCLB&,x%
CLS
'Ein paar Eintraege anlegen
ClearList
whilenot x% = 100
AddString "Eintrag "+Str$(Int(x%+1))
inc x%
EndWhile
'Listbox mit Control anlegen
Let MCLB& = @Control("Listbox","",$50900200,0,0,400,300,%hwnd,1001,%HInstance)
'Spaltenweite auf 100 setzen
SendMessage(MCLB&,$0195,100,0)
'Eintraege in die Listbox
MoveListToList(MCLB&)
Waitinput
End
'----------------------------------
|
| | Datum:18.12.01 19:56 
(christian_devilbis@lycos.de) | |
>Das ist dann immer noch eine Listbox und kein Grid.
Wieder was dazugelernt. !!! Kannte diese Variante von
einer Listbox noch garnicht ...
|
| | | Datum:15.01.02 09:17 
(DiGe@gmx.net) | |
Hallo Andreas,
was kann man an einer mit Control erzeugten Listbox
noch so alles ändern?
Sind zum Beispiel unterschiedlich breite Spalten möglich?
Kann man eigentlich Bilder in einer Listbox anzeigen?
Gruß Dirk
|
| | Datum: 15.01.02 10:56 
(g.putschalka@utanet.at) | |
Hallo Dirk,
Du kannst einer Listbox auch Tabulatoren zuordnen.
In einer Bereichsvariablen hinterlegst Du in der erforderlichen Anzahl der Tabulatoren Longintgers.
z.B. für 3 Tabulatoren:
Declare Ber#,Box&,Zeile$
Dim Ber#,12 ' 3 Tabulatoren zu je 4 Stellen = 12
' die zuzuordnenden Wert mußt Du ausprobieren - abhängig von Schriftart
LONG Ber#,0 =30
LONG Ber#,4 =80
LONG Ber#,8 =115
Let Box& = @CreateListBox(N,S,X1,X2,Y1,Y2) ' entspr. Werte einsetzen
'Tabulatoren der Listbox zuordnen
@SendMessage(Box&,$0192,3,Ber#) ' Achtung: im Parm 3 Anzahl der Tabulatoren einsetzen!
' eine Zeile zusammensetzen. Werte in Feld1$ bis Feld4$ setzen.
' Zeile zeigt 4 Feldinhalte an. Zwischen den Feldern wird ein Tabulatore (\t) eingefügt.
Let Zeile$ = Feld1$;"\t";Feld2$;"\t";Feld3$;"\t";Feld4$
' und in die Listbox hinzufügen:
@AddString(Box&,Zeile$)
Mfg.
Gerhard.
|
|
|