Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <ButtonConstants.au3>
- #include <EditConstants.au3>
- #include <GUIConstantsEx.au3>
- #include <StaticConstants.au3>
- #include <WindowsConstants.au3>
- #Region ### START Koda GUI section ### Form=C:\Users\Rosangela\Desktop\Form Utilitario Janela Wally~.kxf
- $Form2 = GUICreate("Utilitario Janela By: Wally~", 458, 282, 644, 127)
- GUISetBkColor(0x434E54)
- $Group1 = GUICtrlCreateGroup("Esconder Janela:", 16, 16, 425, 113)
- GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
- $Input1 = GUICtrlCreateInput("Nome da Janela", 32, 40, 393, 24)
- $Button1 = GUICtrlCreateButton("Esconder Janela", 32, 72, 171, 33, $WS_GROUP)
- $Button2 = GUICtrlCreateButton("Mostrar Janela", 256, 72, 169, 33, $WS_GROUP)
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- $Group2 = GUICtrlCreateGroup("Mudar Nome:", 16, 152, 425, 113)
- GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
- $Input2 = GUICtrlCreateInput("Novo Nome da Janela", 32, 176, 393, 24)
- $Mudar = GUICtrlCreateButton("Mudar", 32, 208, 393, 33, $WS_GROUP)
- GUICtrlCreateGroup("", -99, -99, 1, 1)
- GUISetState(@SW_SHOW)
- #EndRegion ### END Koda GUI section ###
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- Exit
- Case $Button1
- WinSetState(GUICtrlRead($Input1), "", @SW_HIDE)
- Case $Button2
- WinSetState(GUICtrlRead($Input1), "", @SW_SHOW)
- Case $Mudar
- WinSetTitle(GUICtrlRead($Input1), "", GUICtrlRead($Input2))
- EndSwitch
- WEnd
Add Comment
Please, Sign In to add comment