[R] Evenement Clic sur Tab Control

[zed]

Bonjour à tous !

Y a-t-il un moyen simple de réagir à la sélection d'un onglet de Tab Control dans le style du code suivant (qui ne fonctionne pas c'est mon problème )

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 525, 438, 282, 124)
$Tab1 = GUICtrlCreateTab(32, 96, 337, 273)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
$TabSheet3 = GUICtrlCreateTabItem("TabSheet3")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $TabSheet1
            MsgBox(0,"","Clic sur $TabSheet1")
        Case $TabSheet2
            MsgBox(0,"","Clic sur $TabSheet2")
        Case $TabSheet3
            MsgBox(0,"","Clic sur $TabSheet3")
    EndSwitch
WEnd

Je précise que j'aimerais me passer du OnEventMode : Est-ce possible ?

Merci d'avance !

[timmalos]

Voilà qui devrait vous aider:

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 525, 438, 282, 124)
$Tab1 = GUICtrlCreateTab(32, 96, 337, 273)
$TabSheet0 = GUICtrlCreateTabItem("TabSheet0")
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Tab1
            $i = GUICtrlRead ( $Tab1 )
            MsgBox(0,"","Clic sur $TabSheet"&$i)
            Switch $i
                Case 0
                    ;Action a faire dans TabSheet0
                Case 1
                    ;Action a faire dans TabSheet1
                Case 2
                    ;Action a faire dans TabSheet2
            EndSwitch
    EndSwitch
WEnd

[zed]

C'était si simple !

Un grand merci !