AutoIt Français

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)

Example()

Func Example()
    Local $tab, $tab0, $tab1, $tab2
    Local $msg, $button
    
    GUICreate("My GUI Tab")

    $tab = GUICtrlCreateTab(30, 30, 300, 200)

    $tab0 = GUICtrlCreateTabItem("tab0")

    $tab1 = GUICtrlCreateTabItem("tab----1")

    $tab2 = GUICtrlCreateTabItem("tab2")

    GUICtrlCreateTabItem("")
    $button = GUICtrlCreateButton("clique!", 30, 250)

    GUISetState()

    While 1
        $msg = GUIGetMsg()
        
        If $msg = $GUI_EVENT_CLOSE Then ExitLoop
            
        If $msg = $button Then
            MsgBox(0, "", GUICtrlRead($tab))
        EndIf
    WEnd
EndFunc