Guest User

Untitled

a guest
Jan 27th, 2018
111
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 0.79 KB | None | 0 0
  1.     Local $aktiv = True
  2.     Local $arControl[8]
  3.  
  4.     $GUI = GUICreate('Titel')
  5.     $arControl[0] = GUICtrlCreate...
  6.     $arControl[1] = GUICtrlCreate...
  7.     $arControl[2] = GUICtrlCreate...
  8.     $arControl[3] = GUICtrlCreate...
  9.     $arControl[4] = GUICtrlCreate...
  10.     $arControl[5] = GUICtrlCreate...
  11.     $arControl[6] = GUICtrlCreate...
  12.     $arControl[7] = GUICtrlCreate... ; Button
  13.     ;...
  14.     If $msg = $arControl[7] Then _SwitchActiv()
  15.     ;...
  16.     Func _SwitchActiv()
  17.         Local $state
  18.         If $aktiv Then
  19.             $state = $GUI_DISABLE
  20.         Else
  21.             $state = $GUI_ENABLE
  22.         EndIf
  23.         $aktiv = Not $aktiv
  24.         For $i = 0 To 6
  25.             GUICtrlSetState($arControl[$i], $state)
  26.         Next
  27.     EndFunc ; ==>_SwitchActiv
  28.  
  29. While 1
  30.    
  31. WEnd
Add Comment
Please, Sign In to add comment