GUICtrlCreateTab with $TCS_BUTTONS

[Polyphem]

HiHo,

recently changed the style of a Tab control to $TCS_BUTTONS (i like that style muttley ). But now i cant find a way to properly set focus to the tab anymore, with _GUICtrlTab_SetCurFocus($tab, 1) the button is pressed but the tabs content is not displayed. Anyone got a hint for me?

Cheers

[rasim]

Polyphem

To select a tab use the _GUICtrlTab_SetCurSel() function.

[Polyphem]

@rasim: Thanks for your reply. But _GUICtrlTab_SetCurFocus($tab, 1) is what did the trick for me on a Tab control without the $TCS_BUTTONS style set. Tried that AND _GUICtrlTab_SetCurSel($tab, 1) both on the style, neither works. Below is a sample code. GUI one behaves like i want, GUI two doesnt. The only difference between the two functions is the tab style...

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <GuiTab.au3>

Example_Tab_without_TCS_BUTTONS()

Example_Tab_with_TCS_BUTTONS()

Func Example_Tab_without_TCS_BUTTONS()
    GUICreate("My GUI Tab", 250, 150)
    $tab = GUICtrlCreateTab(10, 10, 200, 100)
    $tab0 = GUICtrlCreateTabItem("tab0")
    GUICtrlCreateLabel("label0", 30, 80, 50, 20)
    $tab1 = GUICtrlCreateTabItem("tab1")
    GUICtrlCreateLabel("label1", 30, 80, 50, 20)
    $tab2 = GUICtrlCreateTabItem("tab2")
    GUICtrlCreateLabel("label2", 30, 80, 50, 20)
    GUISetState()
    
    _GUICtrlTab_SetCurFocus($tab, 1)
    ;_GUICtrlTab_SetCurSel($tab, 1)
        
    While 1
        $msg = GUIGetMsg()
        If $msg = $GUI_EVENT_CLOSE Then
            ExitLoop
            GUIDelete (-1)
        endif
    WEnd
EndFunc

Func Example_Tab_with_TCS_BUTTONS()
    GUICreate("My GUI Tab", 250, 150)
    $tab = GUICtrlCreateTab(10, 10, 200, 100,$TCS_BUTTONS)
    $tab0 = GUICtrlCreateTabItem("tab0")
    GUICtrlCreateLabel("label0", 30, 80, 50, 20)
    $tab1 = GUICtrlCreateTabItem("tab1")
    GUICtrlCreateLabel("label1", 30, 80, 50, 20)
    $tab2 = GUICtrlCreateTabItem("tab2")
    GUICtrlCreateLabel("label2", 30, 80, 50, 20)
    GUISetState()
    
    _GUICtrlTab_SetCurFocus($tab, 1)
    ;_GUICtrlTab_SetCurSel($tab, 1)
        
    While 1
        $msg = GUIGetMsg()
        If $msg = $GUI_EVENT_CLOSE Then
            ExitLoop
            GUIDelete (-1)
        endif
    WEnd
EndFunc

Thanks for your reply, maybe someone else got a hint?

Cheers

Poly

Edit: Tweaked the code a little...

Edited July 17, 2008 by Polyphem

[smashly]

Is there any reason your not using GUICtrlSetState($tab1, $GUI_SHOW) ?

[Polyphem]

Ehhhhh, yes.... i didnt know that that function works on tabs muttley... but it does , thanks for the reply m8!

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <GuiTab.au3>

Example_Tab_without_TCS_BUTTONS()

Example_Tab_with_TCS_BUTTONS()

Func Example_Tab_without_TCS_BUTTONS()
    GUICreate("My GUI Tab", 250, 150)
    $tab = GUICtrlCreateTab(10, 10, 200, 100)
    $tab0 = GUICtrlCreateTabItem("tab0")
    GUICtrlCreateLabel("label0", 30, 80, 50, 20)
    $tab1 = GUICtrlCreateTabItem("tab1")
    GUICtrlCreateLabel("label1", 30, 80, 50, 20)
    $tab2 = GUICtrlCreateTabItem("tab2")
    GUICtrlCreateLabel("label2", 30, 80, 50, 20)
    GUISetState()
    
    ;_GUICtrlTab_SetCurFocus($tab, 1)
    ;_GUICtrlTab_SetCurSel($tab, 1)
    GUICtrlSetState($tab1, $GUI_SHOW)
        
    While 1
        $msg = GUIGetMsg()
        If $msg = $GUI_EVENT_CLOSE Then
            ExitLoop
            GUIDelete (-1)
        endif
    WEnd
EndFunc

Func Example_Tab_with_TCS_BUTTONS()
    GUICreate("My GUI Tab", 250, 150)
    $tab = GUICtrlCreateTab(10, 10, 200, 100,$TCS_BUTTONS)
    $tab0 = GUICtrlCreateTabItem("tab0")
    GUICtrlCreateLabel("label0", 30, 80, 50, 20)
    $tab1 = GUICtrlCreateTabItem("tab1")
    GUICtrlCreateLabel("label1", 30, 80, 50, 20)
    $tab2 = GUICtrlCreateTabItem("tab2")
    GUICtrlCreateLabel("label2", 30, 80, 50, 20)
    GUISetState()
    
    ;_GUICtrlTab_SetCurFocus($tab, 1)
    ;_GUICtrlTab_SetCurSel($tab, 1)
    GUICtrlSetState($tab1, $GUI_SHOW)
        
    While 1
        $msg = GUIGetMsg()
        If $msg = $GUI_EVENT_CLOSE Then
            ExitLoop
            GUIDelete (-1)
        endif
    WEnd
EndFunc

[smashly]

Your welcome