XProfan

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

Proc LV_SetColumnText

    Parámetros Hdl&,Index%,Texto$
    Declarar Column#,Erfolg%
    Dim Column#,LV_COLUMN

    With Column#

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

    EndWith

    Disponer Column#
    Volver Erfolg%

ENDPROC

Cls
Var LV& = Crear("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

 $H commctrl.ph

Proc LV_SetColumn

    Parámetros Hdl&,Mask&,Index%,Texto$,w%
    Declarar Column#,Erfolg%
    Dim Column#,24
    Largo Column#,0=Mask&
    Largo Column#,8= w%
    Largo Column#,12=Addr(Texto$)
    Erfolg% = SendMessage(Hdl&,~LVM_SETCOLUMN,Index%,Column#)
    Disponer Column#
    Volver Erfolg%

ENDPROC

Proc LV_GETCOLUMN

    Parámetros Hdl&,Index%
    Declarar Column#,Texto$,Erfolg%
    Dim Column#,24
    Texto$ = MkStr$("\z",160)' hier adaptar, si la Textos länger ser debería
    Largo Column#,0=~LVCF_TEXT
    Largo Column#,12=Addr(Texto$)
    Largo Column#,16=160' s.o.
    SendMessage(Hdl&,~LVM_GETCOLUMN,Index%,Column#)
    Volver Texto$

ENDPROC

Cls
Selección aleatoria
Var LV& = Crear("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

Imprimir Trim$(LV_GETCOLUMN(LV&,Rnd(6)))
waitinput