Code : Tout sélectionner
#include <GUIConstantsEx.au3>
#include <GuiToolbar.au3>
#Include <GuiTab.au3>
#include <TabConstants.au3>
#include <ToolbarConstants.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
Opt('MustDeclareVars', 1)
Opt("GUIOnEventMode", 1)
Local Enum $IDToolBar_New = 100, $IDToolBar_Properties, $IDToolBar_Delete
Dim $TabSheet[3]
Dim $Edit[3]
Local $Form1 = GUICreate("Form", 450, 200)
GUISetOnEvent($GUI_EVENT_CLOSE, "WindowCloseForm")
Local $ToolBar1 = _GUICtrlToolbar_Create($Form1, 0)
_GUICtrlToolbar_AddBitmap($ToolBar1, 1, -1, $IDB_VIEW_SMALL_COLOR)
_GUICtrlToolbar_AddButton($ToolBar1, $IDToolBar_New, $STD_FILENEW)
_GUICtrlToolbar_AddButtonSep($ToolBar1)
_GUICtrlToolbar_AddButton($ToolBar1, $IDToolBar_Properties, $STD_PROPERTIES)
_GUICtrlToolbar_AddButtonSep($ToolBar1)
_GUICtrlToolbar_AddButton($ToolBar1, $IDToolBar_Delete, $STD_DELETE)
Local $Tab1 = GUICtrlCreateTab(0, 30, 450, 170)
$TabSheet[0] = GUICtrlCreateTabItem("Tab 0")
$Edit[0] = GUICtrlCreateEdit("Edit 1", 10, 60, 430, 130)
$TabSheet[1] = GUICtrlCreateTabItem("Tab 1")
$Edit[1] = GUICtrlCreateEdit("Edit 2", 10, 60, 430, 130)
$TabSheet[2] = GUICtrlCreateTabItem("Tab 2")
$Edit[2] = GUICtrlCreateEdit("Edit 3", 10, 60, 430, 130)
GUICtrlCreateTabItem("")
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
DisableOrEnableButton()
GUISetState(@SW_SHOW)
While 1
Sleep(50)
WEnd
Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
If ($iwParam = $Tab1) Then
DisableOrEnableButton()
EndIf
EndFunc
Func DisableOrEnableButton()
Switch _GUICtrlTab_GetCurSel($Tab1)
Case 0
_GUICtrlToolbar_EnableButton($ToolBar1, $IDToolBar_New, True)
_GUICtrlToolbar_EnableButton($ToolBar1, $IDToolBar_Properties, True)
_GUICtrlToolbar_EnableButton($ToolBar1, $IDToolBar_Delete, False)
Case 1
_GUICtrlToolbar_EnableButton($ToolBar1, $IDToolBar_New, False)
_GUICtrlToolbar_EnableButton($ToolBar1, $IDToolBar_Properties, True)
_GUICtrlToolbar_EnableButton($ToolBar1, $IDToolBar_Delete, True)
Case 2
_GUICtrlToolbar_EnableButton($ToolBar1, $IDToolBar_New, True)
_GUICtrlToolbar_EnableButton($ToolBar1, $IDToolBar_Properties, False)
_GUICtrlToolbar_EnableButton($ToolBar1, $IDToolBar_Delete, True)
EndSwitch
EndFunc
Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
Switch _WinAPI_LoWord($iwParam)
Case $IDToolBar_New
GUICtrlSetData($Edit[_GUICtrlTab_GetCurSel($Tab1)], "Bouton : New | Tab ID : " & _GUICtrlTab_GetCurSel($Tab1))
Case $IDToolBar_Properties
GUICtrlSetData($Edit[_GUICtrlTab_GetCurSel($Tab1)], "Bouton : Properties | Tab ID : " & _GUICtrlTab_GetCurSel($Tab1))
Case $IDToolBar_Delete
GUICtrlSetData($Edit[_GUICtrlTab_GetCurSel($Tab1)], "Bouton : Delete | Tab ID : " & _GUICtrlTab_GetCurSel($Tab1))
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc
Func WindowCloseForm()
Exit
EndFunc