XProfan

Español

Daniel
Mende

Hi Liebe Programmierer!

Como erstelle Yo en XProfan una Liste con Spalten y el dazu gehörige Überschrift? Gibt lo una Standard-Verfahren para esta Liste en Windows?

Saludo Daniel

04.10.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Schau Usted el listview.dll

a. Lo son auch una Incluir y una Unit welche se así befassen.

Salve.

04.10.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Peter
Mallow

Hallow Daniel,
habe veces nen super Programa en el Page de Gerhard Putschalka gefunden: [...]

Búsqueda hay a veces Beispielprogramme para Profano,Boxes y lade dir el Beispiele runter.
ListBox7.prf es el, qué du suchst

WinXP Pro SP2, XProfan 9 + XPSE
AMD Athlon 64 X2 3800

04.10.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

So?

Kompilieren Marca Separación

WINDOWSTYLE 31
WINDOWTITLE "Listbox con Spalten"
WINDOW 0,0-640,440
Declarar MLISTBOX&,OK&,Anzahl_der_Tabs&,Tabbreiten&[10],Ergebnis&,Select$
LET OK&=@CREATEBUTTON(%HWND,"Select",20,360,100,30)
LET MLISTBOX&=@Control("ListBox","",$40000000+$10000000+$00400000+$80+2,20,60,300,250,%HWND,2112,%HINSTANCE)
LET Anzahl_der_Tabs&=3 Anzahl el Tabs
LET Tabbreiten&[0]=40negativer Valor = rechtbündig
LET Tabbreiten&[1]=90negativer Valor = rechtbündig
LET Tabbreiten&[3]=80negativer Valor = rechtbündig
LET Tabbreiten&[4]=180negativer Valor = rechtbündig
LET ERGEBNIS&=@sendmessage(MLISTBOX&,$0192,Anzahl_der_Tabs&,@addr(Tabbreiten&[0]))
@ADDSTRING(MLISTBOX&,"Angelika"+CHR$($9)+"Jöllenbeck"+CHR$($9)+"Neuenkirchen")
@ADDSTRING(MLISTBOX&,"Claudia"+CHR$($9)+"Grothaus"+CHR$($9)+"Osnabrück")
@ADDSTRING(MLISTBOX&,"Andreas"+CHR$($9)+"Hötker"+CHR$($9)+"Melle")

Mientras que 0=0

    Waitinput

    IF @getfocus(OK&)

        LET SELECT$=@GetString$(MLISTBOX&,@GetCursel(MLISTBOX&))

        IF SELECT$<>""

            @messagebox(@Substr$(SELECT$,1,CHR$($9)),"Vorname...",64)
            @messagebox(@Substr$(SELECT$,2,CHR$($9)),"Nachname...",64)
            @messagebox(@Substr$(SELECT$,3,CHR$($9)),"Geboren en...",64)

        endif

    endif

WEND