XProfan

'cette Code liest den Headertext eines Tabcontrols aus.
'de Jörg Sellmeyer zur freien Disposition pour alle
 $H commctrl.ph
Struct TC_ITEMHEADER = Mask&,lpReseved1&,lpReseved2&,pszText&,cchTextMax&,iImage&
Déclarer TC_Item#
Faible TC_Item#, TC_ITEMHEADER

Proc GetTabText

    Paramètres hTab&,hwnd&,i&
    Déclarer Text#,Text$
    Faible Text#,12

    With TC_Item#

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

    EndWith

    SendMessage(hTab&,$01305,i&,TC_Item#)
    Text$ = String$(Text#,0)
    Dispose Text#
    Retour Text$

ENDPROC

Proc SetTabText

    Paramètres 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

    Paramètres hTab&,index%,IconIndex%
    Déclarer TC_Item#
    Faible TC_Item#,TC_ITEMHEADER

    With TC_Item#

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

    EndWith

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

ENDPROC

Déclarer Tab&
Cls
var hToolBmp& = create(«PCSI», 0, "TOOLBAR")
var hIL& = Créer("ImageList", 16, 16, hToolBmp&, rgb(192, 192, 192))
Tab&=Créer("Tabctrl",%hWnd,"Test 5",130,30,460,300)
SendMessage(Tab&, ~TCM_SETIMAGELIST, 0, hIL&)

WhileLoop 4,1,-1

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

Wend

WhileLoop 0,4

    imprimer "Text = " + GetTabText(Tab&,%hwnd,&Boucle)

Wend

Randomiser

Tandis que 1

    WaitInput
    Cas %umessage = 16:Pause

    Si %mousePressed = 0

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

    EndIf

Wend

Dispose TC_Item#