Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 249249 (10685)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Listbox mit mehreren Spalten
M.Heinemann
| Datum:18.12.01 16:04 (info@heinemaennchen.de) |
Wie kann ich eine Listbox mit mehreren Spalten erzeugen ? Mfg M.Heinemann
Christian Devilbis
| 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.
Andreas Miethe
| 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 '----------------------------------
Christian Devilbis
| 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 ...
M.Heinemann
| Datum:20.12.01 07:17 (info@heinemaennchen.de) |
Danke schön. Hat mir sehr geholfen.
Dirk
| 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
Gerhard Putschalka
| 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.

| Zurück zur Übersicht