Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для madmasles

Ветеран


Сообщения: 812
Благодарности: 353

Профиль | Отправить PM | Цитировать


Centrinar,
Код: Выделить весь код
#include <GUIConstantsEx.au3>

#region Main form
$hMain_GUI = GUICreate("Главное окно", 300, 200)
$nStngs_Btn = GUICtrlCreateButton("Настройки", 10, 170, 70, 20)
$nExit_Btn = GUICtrlCreateButton("Выход", 90, 170, 70, 20)
GUISetState(@SW_SHOW, $hMain_GUI)
#endregion Main form

Dim $AccelKeys[3][2] = [["{F5}", $nStngs_Btn],["^n", $nStngs_Btn],['^т', $nStngs_Btn]]
GUISetAccelerators($AccelKeys)

#region Settings form
$hStngs_GUI = GUICreate("Настройки", 400, 200)
$nStngs_Ok_Btn = GUICtrlCreateButton("ОК", 10, 170, 80, 25)
$nStngs_Close_Btn = GUICtrlCreateButton("Закрыть", 310, 170, 80, 25)
#endregion Settings form

While 1
    $aMsg = GUIGetMsg(1)

    Switch $aMsg[1]
        Case $hMain_GUI
            Switch $aMsg[0]
                Case $GUI_EVENT_CLOSE, $nExit_Btn
                    Exit
                Case $nStngs_Btn
                    GUISetState(@SW_SHOW, $hStngs_GUI)
            EndSwitch
        Case $hStngs_GUI
            Switch $aMsg[0]
                Case $GUI_EVENT_CLOSE, $nStngs_Close_Btn
                    GUISetState(@SW_HIDE, $hStngs_GUI)
            EndSwitch
    EndSwitch
WEnd
Это сообщение посчитали полезным следующие участники:

Отправлено: 23:01, 24-03-2011 | #2