XProfan

'Dieser Code liest el Headertext uno Tabcontrols de.
'de Jörg Sellmeyer a freien Disposición para todos
 $H commctrl.ph
Struct TC_ITEMHEADER = Mask&,lpReseved1&,lpReseved2&,pszText&,cchTextMax&,iImage&
Declarar TC_Item#
Dim TC_Item#, TC_ITEMHEADER

Proc GetTabText

    Parámetros hTab&,hwnd&,i&
    Declarar Texto#,Texto$
    Dim Texto#,12

    With TC_Item#

        .cchTextMax& = 24
        .Mask& = $0001
        .pszText& = Texto#

    EndWith

    SendMessage(hTab&,$01305,i&,TC_Item#)
    Texto$ = String$(Texto#,0)
    Disponer Texto#
    Volver Texto$

ENDPROC

Proc SetTabText

    Parámetros hdl&,Id%,txt$

    With TC_Item#

        .Cchtextmax& = Len(txt$)
        .Mask& = $0001
        .Psztext& = Addr(txt$)

    Endwith

    SendMessage(Tab&,~TCM_SETITEM,Id%,TC_Item#)

ENDPROC

Proc SetTabIcon

    Parámetros hTab&,Index%,IconIndex%
    Declarar TC_Item#
    Dim TC_Item#,TC_ITEMHEADER

    With TC_Item#

        .Mask& = ~TCIF_IMAGE
        .iImage& = IconIndex%

    EndWith

    SendMessage(hTab&,~TCM_SETITEM,Index%,TC_Item#)

ENDPROC

Declarar Tab&
Cls
var hToolBmp& = create("HPIC", 0, "TOOLBAR")
var hIL& = Crear("ImageList", 16, 16, hToolBmp&, rgb(192, 192, 192))
Tab&=Crear("Tabctrl",%hWnd,"Test 5",130,30,460,300)
SendMessage(Tab&, ~TCM_SETIMAGELIST, 0, hIL&)

WhileLoop 4,1,-1

    InsertTab(Tab&,0,"Test " + Str$(&Loop))

Wend

WhileLoop 0,4

    imprimir "Text = " + GetTabText(Tab&,%hwnd,&Loop)

Wend

Selección aleatoria

Mientras que 1

    WaitInput
    Case %umessage = 16:Romper

    If %mousePressed = 0

        SetTabText(Tab&,GetActiveTab(Tab&),Str$(&GetTickCount))
        SetTabIcon(Tab&,GetActiveTab(Tab&),Rnd(GetCount(hIL&)))

    EndIf

Wend

Disponer TC_Item#