vicbox777
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
VitAlll2013
13:19 22-09-2009
Цитата:| Как изменить размер окна (формы) самого приложения AutoIT? Нажал на кнопку, и окно увеличилось на сколько то там пикселей... |
Вот примерно так это делается:
Код: #include <GuiConstants.au3>
$GUI = GUICreate("Resize GUI", 300, 200)
$ResizeGUI_Button = GUICtrlCreateButton("Resize", 20, 40, 70, 20)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
GUISetState(@SW_SHOW, $GUI)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $ResizeGUI_Button
Local $aGUI_Pos = WinGetPos($GUI)
;Увеличиваем размер GUI на 5 единиц с каждой стороны (в высоту и в ширену)
WinMove($GUI, "", $aGUI_Pos[0], $aGUI_Pos[1], $aGUI_Pos[2] + 5, $aGUI_Pos[3] + 5)
EndSwitch
WEnd |
Цитата:| Почему при закрытии дочернего окна закрывается сразу вся программа? |
Значит неправильный код. Вот так будет работать:
Код: #include <GuiConstantsEx.au3>
$hGUI_Main = GUICreate("Main GUI", 300, 200)
$AboutButton = GUICtrlCreateButton("About", 105, 50, 75, 23)
$hGUI_Child = GUICreate("Child GUI", 200, 100, -1, -1, -1, -1, $hGUI_Main)
GUISetState(@SW_SHOW, $hGUI_Main)
While 1
$msg = GUIGetMsg(1)
Select
Case ($msg[0] = $GUI_EVENT_CLOSE) And ($msg[1] = $hGUI_Main)
Exit
Case ($msg[0] = $GUI_EVENT_CLOSE) And ($msg[1] = $hGUI_Child)
GUISetState(@SW_ENABLE, $hGUI_Main)
GUISetState(@SW_HIDE, $hGUI_Child)
Case $msg[0] = $AboutButton
GUISetState(@SW_DISABLE, $hGUI_Main)
GUISetState(@SW_SHOW, $hGUI_Child)
EndSelect
WEnd |
|
