XProfan

WINDOWSTYLE 31
WINDOWTITLE "Listbox mit 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&=2 Anzahl der Tabs
LET Tabbreiten%[0]=50 negativer Wert = rechtbündig
LET Tabbreiten%[1]=50 negativer 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")

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