XProfan

'Dieser Code liest den Headertext eines Tabcontrols aus.
'von Jörg Sellmeyer zur freien Verfügung für alle
 $H commctrl.ph
Struct TC_ITEMHEADER = Mask&,lpReseved1&,lpReseved2&,pszText&,cchTextMax&,iImage&
Declare TC_Item#
Dim TC_Item#, TC_ITEMHEADER

Proc GetTabText

    Parameters hTab&,hwnd&,i&
    Declare Text#,Text$
    Dim Text#,12

    With TC_Item#

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

    EndWith

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

EndProc

Proc SetTabText

    Parameters 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

    Parameters hTab&,Index%,IconIndex%
    Declare TC_Item#
    Dim TC_Item#,TC_ITEMHEADER

    With TC_Item#

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

    EndWith

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

EndProc

Declare Tab&
Cls
var hToolBmp& = create("hPic", 0, "TOOLBAR")
var hIL& = Create("ImageList", 16, 16, hToolBmp&, rgb(192, 192, 192))
Tab&=Create("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

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

Wend

Randomize

While 1

    WaitInput
    Case %umessage = 16:Break

    If %mousePressed = 0

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

    EndIf

Wend

Dispose TC_Item#