Tabsheet flakert

#cs **************************************************************************

Tabsheet flakert

http://www.autoit.de/index.php?page…2785#post102785

#ce **************************************************************************

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $TabSheet2, $TabSheet3

$Form1 = GUICreate("ScriptMaker by Freaky https://autoit.de/www.NosHacks.de", 338, 271, 192, 124)
$Tab1 = GUICtrlCreateTab(0, 0, 337, 241)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Seite 1")
$Label1 = GUICtrlCreateLabel("(C)(R) by Freaky for https://autoit.de/www.NosHacks.de", 136, 216, 190, 17)
$Edit1 = GUICtrlCreateEdit("", 32, 112, 273, 89, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "Edit1")
$Checkbox3 = GUICtrlCreateCheckbox("Sollen Tasten gedrückt werden ?", 13, 47, 177, 17)
$Checkbox1 = GUICtrlCreateCheckbox("Script mit Login", 13, 25, 81, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Soll nach Farben gesucht werden ?", 13, 72, 209, 17)

GUICtrlCreateTabItem("")
$Button1 = GUICtrlCreateButton("Script erstellen", 8, 240, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Ende", 88, 240, 75, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Speichern", 168, 240, 75, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Forum", 248, 240, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)

While 1

ToolTip(GUICtrlGetState($TabSheet1), 0, 0)

$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUICtrlSetState($Checkbox1, 4)
GUICtrlSetState($Checkbox2, 4)
GUICtrlSetState($Checkbox3, 4)
Case $Checkbox2
If GUICtrlRead($Checkbox2) = 4 Then GUICtrlDelete($TabSheet3)
If GUICtrlRead($Checkbox2) = 1 Then
If GUICtrlGetState($TabSheet3) = -1 Then
_Tab_2()
If GUICtrlGetState($TabSheet1) <> $GUI_SHOW Then
GUICtrlSetState($TabSheet1, $GUI_SHOW)
EndIf
EndIf
EndIf
Case $Checkbox3
If GUICtrlRead($Checkbox3) = 4 Then GUICtrlDelete($TabSheet2)
If GUICtrlRead($Checkbox3) = 1 Then
If GUICtrlGetState($TabSheet2) = -1 Then
_Tab_1()
If GUICtrlGetState($TabSheet1) <> $GUI_SHOW Then
GUICtrlSetState($TabSheet1, $GUI_SHOW)
EndIf
EndIf
EndIf

EndSwitch
WEnd

Func _Tab_1()
$TabSheet2 = GUICtrlCreateTabItem("Tasten")
$Combo1 = GUICtrlCreateCombo("Combo1", 232, 56, 81, 25)
$Label2 = GUICtrlCreateLabel("Wieviele Tasten sollen gerdrückt werden ?", 8, 56, 206, 17)
$Label3 = GUICtrlCreateLabel("1", 8, 112, 10, 17)
$Input1 = GUICtrlCreateInput("Input1", 24, 112, 41, 21)
$Input2 = GUICtrlCreateInput("Input2", 72, 112, 41, 21)
$Input3 = GUICtrlCreateInput("Input2", 72, 136, 41, 21)
$Input4 = GUICtrlCreateInput("Input1", 24, 136, 41, 21)
$Label4 = GUICtrlCreateLabel("1", 8, 136, 10, 17)
$Input5 = GUICtrlCreateInput("Input2", 72, 160, 41, 21)
$Input6 = GUICtrlCreateInput("Input1", 24, 160, 41, 21)
$Label5 = GUICtrlCreateLabel("1", 8, 160, 10, 17)
$Input7 = GUICtrlCreateInput("Input2", 72, 184, 41, 21)
$Input8 = GUICtrlCreateInput("Input1", 24, 184, 41, 21)
$Label6 = GUICtrlCreateLabel("1", 8, 184, 10, 17)
$Input9 = GUICtrlCreateInput("Input2", 72, 208, 41, 21)
$Input10 = GUICtrlCreateInput("Input1", 24, 208, 41, 21)
$Label7 = GUICtrlCreateLabel("1", 8, 208, 10, 17)
$Input11 = GUICtrlCreateInput("Input2", 248, 112, 41, 21)
$Input12 = GUICtrlCreateInput("Input1", 200, 112, 41, 21)
$Label8 = GUICtrlCreateLabel("1", 184, 112, 10, 17)
$Input13 = GUICtrlCreateInput("Input2", 248, 136, 41, 21)
$Input14 = GUICtrlCreateInput("Input1", 200, 136, 41, 21)
$Label9 = GUICtrlCreateLabel("1", 184, 136, 10, 17)
$Input15 = GUICtrlCreateInput("Input2", 248, 160, 41, 21)
$Input16 = GUICtrlCreateInput("Input1", 200, 160, 41, 21)
$Label10 = GUICtrlCreateLabel("1", 184, 160, 10, 17)
$Input17 = GUICtrlCreateInput("Input2", 248, 184, 41, 21)
$Input18 = GUICtrlCreateInput("Input1", 200, 184, 41, 21)
$Label11 = GUICtrlCreateLabel("1", 184, 184, 10, 17)
$Input19 = GUICtrlCreateInput("Input2", 248, 208, 41, 21)
$Input20 = GUICtrlCreateInput("Input1", 200, 208, 41, 21)
$Label12 = GUICtrlCreateLabel("1", 184, 208, 10, 17)
$Label13 = GUICtrlCreateLabel("Taste", 24, 88, 31, 17)
$Label14 = GUICtrlCreateLabel("Zeit", 72, 88, 22, 17)
$Label15 = GUICtrlCreateLabel("Taste", 200, 88, 31, 17)
$Label16 = GUICtrlCreateLabel("Zeit", 248, 88, 22, 17)
EndFunc ;==>_Tab_1

Func _Tab_2()
$TabSheet3 = GUICtrlCreateTabItem("Farben Suche")
$Input = GUICtrlCreateInput("Input20", 32, 88, 73, 21)
$Input21 = GUICtrlCreateInput("Input21", 112, 88, 41, 21)
$Input22 = GUICtrlCreateInput("Input22", 160, 88, 41, 21)
$Label19 = GUICtrlCreateLabel("Zeit warten nachdem Farbe gefunden wurde", 32, 120, 214, 17)
$Input23 = GUICtrlCreateInput("Input23", 256, 120, 57, 21)
$Label20 = GUICtrlCreateLabel("Taste die nach der Zeit gerdückt werden soll", 32, 144, 215, 17)
$Input24 = GUICtrlCreateInput("Input24", 256, 144, 57, 21)
$Label21 = GUICtrlCreateLabel("Zeit warten nachdem Farbe gefunden wurde", 32, 168, 214, 17)
$Input25 = GUICtrlCreateInput("Input25", 256, 168, 57, 21)
$Label17 = GUICtrlCreateLabel("Farbe", 40, 64, 31, 17)
$Label18 = GUICtrlCreateLabel("x", 128, 64, 9, 17)
$Label22 = GUICtrlCreateLabel("y", 176, 64, 9, 17)
EndFunc ;==>_Tab_2