XProfan

Deutsch

Daniel
Mende

Hi Liebe Programmierer!

Wie erstelle ich in XProfan eine Liste mit Spalten und die dazu gehörige Überschrift? Gibt es ein Standard-Verfahren für diese Liste in Windows?

Gruß Daniel

04.10.2005 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Schau Dir die listview.dll

an. Es gibt auch eine Include und eine Unit welche sich damit befassen.

Salve.

04.10.2005 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Peter
Mallow

Hallow Daniel,
habe mal nen super Programm auf der Page von Gerhard Putschalka gefunden: [...]

Suche dort mal unter Beispielprogramme für Profan,Boxes und lade dir die Beispiele runter.
ListBox7.prf ist das, was du suchst

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

04.10.2005 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

So?

Kompilieren Markieren Separieren

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&=3 Anzahl der 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")

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