Default Pushbutton on every Tab

[Emiel Wieldraaijer]

Hi All, 

Is it possible to have a defaultbutton on every tab ?

The code below does not work

expandcollapse popup

; *** Start added by AutoIt3Wrapper ***
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>

; *** End added by AutoIt3Wrapper ***
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; *** Start added by AutoIt3Wrapper ***

$Parent = GuiCreate ("Test", 400, 400)
$Menu = GUICtrlCreateMenu("help")
$sTab = GUICtrlCreateTab(10, 10, 380, 380)
$sTab1 = GUICtrlCreateTabItem("Tab1")

$sButton1 = GuictrlCreateButton("Button 1", 200,100,150,20);,$BS_DEFPUSHBUTTON)
$sTab2 = GUICtrlCreateTabItem("Tab2")
$sButton2 = GuictrlCreateButton("Button 2", 200,100,150,20)
$sTab3 = GUICtrlCreateTabItem("Tab3")
$sButton3 = GuictrlCreateButton("Button 3", 200,100,150,20)
GUICtrlCreateTabItem("")
GUISetState()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $sTab
                Switch GUICtrlRead($sTab)
                    Case 0
                        GUICtrlSetStyle($sButton1, $BS_DEFPUSHBUTTON)
                    Case 1
                        GUICtrlSetStyle($sButton2, $BS_DEFPUSHBUTTON)
                    Case 2
                        GUICtrlSetStyle($sButton3, $BS_DEFPUSHBUTTON)
                EndSwitch
        Case $sButton1
            Msgbox (0, "Button", "1")
        Case $sButton2
            Msgbox (0, "Button", "2")
        Case $sButton3
            Msgbox (0, "Button", "3")
    EndSwitch
WEnd

[Melba23]

Emiel Wieldraaijer,

You can only have one $BS_DEFPUSHBUTTON per script. But this thread should give you plenty of ideas of how to get round that problem.

M23

[Emiel Wieldraaijer]

Thanks