| |
|
|
Jörg Sellmeyer |
$H commctrl.ph
$H structs.ph
Struct LV_COLUMN = ~LV_COLUMN
Proc LV_SetColumnText
Parameters Hdl&,Index%,Text$
Declare Column#,Erfolg%
Dim Column#,LV_COLUMN
With Column#
.mask& = ~LVCF_TEXT
.pszText& = Addr(Text$)
Erfolg% = SendMessage(Hdl&,~LVM_SETCOLUMN,Index%,Column#)
EndWith
Dispose Column#
Return Erfolg%
EndProc
Cls
Var LV& = Create("GridBox",%hwnd,"Test 1;0;100;Test 2;0;100;Test 3;0;100",0,2,100,320,300)
waitinput
WhileLoop 0,2
LV_SetColumnText(LV&,&Loop ,"Neu " + Str$(&Loop + 1))
Wend
waitinput
|
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 06.11.2011 ▲ |
|
|
|
|
Jörg Sellmeyer | So kann man auch noch die Breite einstellen und den Text auslesen. Das Ganze dann auch mal ohne Struktur:
$H commctrl.ph
Proc LV_SetColumn
Parameters Hdl&,Mask&,Index%,Text$,w%
Declare Column#,Erfolg%
Dim Column#,24
Long Column#,0=Mask&
Long Column#,8= w%
Long Column#,12=Addr(Text$)
Erfolg% = SendMessage(Hdl&,~LVM_SETCOLUMN,Index%,Column#)
Dispose Column#
Return Erfolg%
EndProc
Proc LV_GETCOLUMN
Parameters Hdl&,Index%
Declare Column#,Text$,Erfolg%
Dim Column#,24
Text$ = MkStr$("\z",160)' hier anpassen, wenn die Texte länger sein sollten
Long Column#,0=~LVCF_TEXT
Long Column#,12=Addr(Text$)
Long Column#,16=160' s.o.
SendMessage(Hdl&,~LVM_GETCOLUMN,Index%,Column#)
Return Text$
EndProc
Cls
Randomize
Var LV& = Create("GridBox",%hwnd,"Test 1;0;90;Test 2;0;90;Test 3;0;90;Test 4;0;90;Test 5;0;90",0,2,100,340,300)
waitinput
WhileLoop 0,4
LV_SetColumn(LV&,(~LVCF_TEXT * Rnd(2)) | ~LVCF_WIDTH,&Loop ,"Neu " + Str$(&Loop + 1),Width(LV&) \ 5)
Wend
Print Trim$(LV_GETCOLUMN(LV&,Rnd(6)))
waitinput
|
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 06.11.2011 ▲ |
|
|
|