XProfan

 $H commctrl.ph
 $H structs.ph
Struct LV_COLUMN = ~LV_COLUMN

Proc LV_SetColumnText

    Paramètres Hdl&,index%,Text$
    Déclarer Column#,Erfolg%
    Faible Column#,LV_COLUMN

    With Column#

        .mask& = ~LVCF_TEXT
        .pszText& = Addr(Text$)
        Erfolg% = SendMessage(Hdl&,~LVM_SETCOLUMN,index%,Column#)

    EndWith

    Dispose Column#
    Retour Erfolg%

ENDPROC

Cls
Var LV& = Créer("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&,&Boucle ,"Neu " + Str$(&Boucle + 1))

Wend

waitinput

 $H commctrl.ph

Proc LV_SetColumn

    Paramètres Hdl&,Mask&,index%,Text$,w%
    Déclarer Column#,Erfolg%
    Faible Column#,24
    Long Column#,0=Mask&
    Long Column#,8= w%
    Long Column#,12=Addr(Text$)
    Erfolg% = SendMessage(Hdl&,~LVM_SETCOLUMN,index%,Column#)
    Dispose Column#
    Retour Erfolg%

ENDPROC

Proc LV_GETCOLUMN

    Paramètres Hdl&,index%
    Déclarer Column#,Text$,Erfolg%
    Faible Column#,24
    Text$ = $ MkStr("\z",160)' ici anpassen, si le Textes länger son devrait
    Long Column#,0=~LVCF_TEXT
    Long Column#,12=Addr(Text$)
    Long Column#,16=160' s.o.
    SendMessage(Hdl&,~LVM_GETCOLUMN,index%,Column#)
    Retour Text$

ENDPROC

Cls
Randomiser
Var LV& = Créer("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 * Tour(2)) | ~LVCF_WIDTH,&Boucle ,"Neu " + Str$(&Boucle + 1),Width(LV&) \ 5)

Wend

Imprimer Trim$(LV_GETCOLUMN(LV&,Tour(6)))
waitinput