| |
|
|
 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 per diese Liste in Windows?
Saluto Daniel |
|
|
| |
|
|
|
 | Schau Dir die listview.dll an. Es gibt auch eine Include und eine Unit welche sich damit befassen.
Salve. |
|
|
| |
|
|
|
 Peter Mallow | Hallow Daniel, habe mal nen super Programm auf der Page von Gerhard Putschalka gefunden: [...] 
Cerca dort mal unter Beispielprogramme per 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 ▲ |
|
|
|
|
 | So?
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
|
|
|
| |
|
|