#include #include #include #include Opt( "GUIOnEventMode", 1) Global $nMsg Global $Form1 Global $Tab1 Global $Form1GUI Global $TabSheet1 Global $TabSheet2 Global $SubTab1GUI Global $SubTab2GUI Global $Button1 Global $Button2 Func _CreateMainTab() $Form1 = GUICreate("Form1", 615, 437, 192, 124) $Form1GUI = GUICreate("", 615, 437, 0, 0, $WS_POPUP, $WS_EX_MDICHILD, $Form1) $Tab1 = GUICtrlCreateTab(8, 8, 601, 385) $TabSheet1 = GUICtrlCreateTabItem("TabSheet1") $TabSheet2 = GUICtrlCreateTabItem("TabSheet2") GUICtrlCreateTabItem("") GUICtrlSetOnEvent($Tab1, _SwitchTab) GUISetState(@SW_SHOW, $Form1GUI) $Button1 = GUICtrlCreateButton("Run Process 1", 100, 400, 139, 25) GUICtrlSetOnEvent($Button1,_RunProcess1) $Button2 = GUICtrlCreateButton("Run Process 2", 250, 400, 139, 25) GUICtrlSetOnEvent($Button2,_RunProcess2) GUICtrlSetState($Button1, @SW_SHOW) GUICtrlSetState($Button2, @SW_SHOW) EndFunc Func _SwitchTab() Switch GUICtrlRead($Tab1) Case 0 GUISetState(@SW_SHOW, $SubTab1GUI) GUISetState(@SW_HIDE, $SubTab2GUI) Case 1 GUISetState(@SW_SHOW, $SubTab2GUI) GUISetState(@SW_HIDE, $SubTab1GUI) EndSwitch EndFunc Func _CreateSubTab1() $SubTab1GUI = GUICreate("", 580, 350, 18, 38, $WS_POPUP, $WS_EX_MDICHILD, $Form1GUI) GUISetBkColor(0xFF0000, $SubTab1GUI) GUISetState(@SW_HIDE, $SubTab1GUI) EndFunc Func _CreateSubTab2() $SubTab2GUI = GUICreate("", 580, 350, 18, 38, $WS_POPUP, $WS_EX_MDICHILD, $Form1GUI) GUISetBkColor(0x00FF00, $SubTab2GUI) GUISetState(@SW_HIDE, $SubTab2GUI) EndFunc Func _RunProcess1() GUICtrlSetState( $Button2, $GUI_DISABLE) Sleep(60000) GUICtrlSetState( $Button2, $GUI_ENABLE) EndFunc Func _RunProcess2() GUICtrlSetState( $Button1, $GUI_DISABLE) Sleep(60000) GUICtrlSetState( $Button1, $GUI_ENABLE) EndFunc Func Main() _CreateMainTab() _CreateSubTab1() _CreateSubTab2() GUISetState(@SW_SHOW, $Form1) GUISetState(@SW_SHOW, $SubTab1GUI) EndFunc Main() While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd