XProfan

English

Daniel
Mende

Hi love Programmer!

How create I in XProfan a list with Split and the moreover gehörige Headline? gives it one standard-take action for these list in windows?

Greeting daniel

10/04/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

look you The listview.dll

on. there's too a Include and a Unit which itself so befassen.

salvo.

10/04/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Peter
Mallow

Hallow daniel,
have time NEN super Program on the Page of Gerhard Putschalka found: [...]

Search there times under Example Programs for Profan,Boxes and load you The Examples down.
ListBox7.prf is the, what You seek

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

10/04/05 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

so?

Compile Mark Separation

WINDOWSTYLE 31
WINDOWTITLE "Listbox with Spalten"
WINDOW 0,0-640,440
Declare 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 amount the Tabs
LET Tabbreiten&[0]=40negativer worth = rechtbündig
LET Tabbreiten&[1]=90negativer worth = rechtbündig
LET Tabbreiten&[3]=80negativer worth = rechtbündig
LET Tabbreiten&[4]=180negativer worth = 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")

While 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 in...",64)

        endif

    endif

WEND