XProfan

Français

Daniel
Mende

Hi Liebe Programmierer!

comment erstelle je dans XProfan une liste avec Spalten et qui en supplément gehörige Überschrift? Gibt es un Standard-procéder pour cet liste dans Windows?

Salut Daniel

04.10.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

exposition Dir qui listview.dll

à. il y a aussi une Include et une Unit quelle sich avec cela befassen.

Salve.

04.10.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Peter
Mallow

Hallow Daniel,
habe la fois nen super Programme sur qui le chasseur de Gerhard Putschalka trouvé: [...]

cherche là la fois sous Exemples de programmes pour Profan,Boxes et lade dir qui Beispiele runter.
ListBox7.prf ist cela, quoi tu cherches

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

04.10.2005 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

So?

Kompilieren Marque Séparation

WINDOWSTYLE 31
WINDOWTITLE "Listbox avec Spalten"
WINDOW 0,0-640,440
Déclarer MLISTBOX&,OK&,Anzahl_der_Tabs&,Tabbreiten&[10],Ergebnis&,Select$
LET OK&=@CREATEBUTTON(%HWND,"Select",20,360,100,30)
LET MLISTBOX&=@Contrôle(ListBox,»,$40000000+$10000000+$00400000+$80+2,20,60,300,250,%HWND,2112,%HINSTANCE)
LET Anzahl_der_Tabs&=3 Anzahl qui Tabs
LET Tabbreiten&[0]=40negativer Wert = rechtbündig
LET Tabbreiten&[1]=90negativer Wert = rechtbündig
LET Tabbreiten&[3]=80negativer Wert = rechtbündig
LET Tabbreiten&[4]=180negativer Wert = 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")

Tandis 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 dans...",64)

        endif

    endif

WEND