Guest User

Untitled

a guest
Jun 14th, 2018
98
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 1.37 KB | None | 0 0
  1. #include <ButtonConstants.au3>
  2. #include <EditConstants.au3>
  3. #include <GUIConstantsEx.au3>
  4. #include <StaticConstants.au3>
  5. #include <WindowsConstants.au3>
  6. #Region ### START Koda GUI section ### Form=C:\Users\Rosangela\Desktop\Form Utilitario Janela Wally~.kxf
  7. $Form2 = GUICreate("Utilitario Janela By: Wally~", 458, 282, 644, 127)
  8. GUISetBkColor(0x434E54)
  9. $Group1 = GUICtrlCreateGroup("Esconder Janela:", 16, 16, 425, 113)
  10. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  11. $Input1 = GUICtrlCreateInput("Nome da Janela", 32, 40, 393, 24)
  12. $Button1 = GUICtrlCreateButton("Esconder Janela", 32, 72, 171, 33, $WS_GROUP)
  13. $Button2 = GUICtrlCreateButton("Mostrar Janela", 256, 72, 169, 33, $WS_GROUP)
  14. GUICtrlCreateGroup("", -99, -99, 1, 1)
  15. $Group2 = GUICtrlCreateGroup("Mudar Nome:", 16, 152, 425, 113)
  16. GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
  17. $Input2 = GUICtrlCreateInput("Novo Nome da Janela", 32, 176, 393, 24)
  18. $Mudar = GUICtrlCreateButton("Mudar", 32, 208, 393, 33, $WS_GROUP)
  19. GUICtrlCreateGroup("", -99, -99, 1, 1)
  20. GUISetState(@SW_SHOW)
  21. #EndRegion ### END Koda GUI section ###
  22.  
  23. While 1
  24. $nMsg = GUIGetMsg()
  25. Switch $nMsg
  26. Case $GUI_EVENT_CLOSE
  27. Exit
  28. Case $Button1
  29. WinSetState(GUICtrlRead($Input1), "", @SW_HIDE)
  30.  
  31. Case $Button2
  32. WinSetState(GUICtrlRead($Input1), "", @SW_SHOW)
  33.  
  34. Case $Mudar
  35.     WinSetTitle(GUICtrlRead($Input1), "", GUICtrlRead($Input2))
  36.  
  37.  
  38. EndSwitch
  39. WEnd
Add Comment
Please, Sign In to add comment