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

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

Аватара для Creat0R

Must AutoIt


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

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


Цитата eus_deus:
надо, чтобы второе окно появлялось по необходимости при нажатии на кнопку »
Код: Выделить весь код
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$hForm1 = GUICreate('Form1', 300, 200, 100, 100)
$iShowForm2_Bttn = GUICtrlCreateButton('Show Form2', 20, 170, 90, 20)
$aForm1_Elements = _FormElements($hForm1)

$hForm2 = GUICreate('Form2', 300, 200, 450, 100)
$aForm2_Elements = _FormElements($hForm2)

GUISetState(@SW_SHOW, $hForm1)

While 1
    $aMsg = GUIGetMsg(1)

    Switch $aMsg[0]
        Case $GUI_EVENT_CLOSE
            If $aMsg[1] = $hForm1 Then
                Exit
            Else
                ContinueCase ;To trigger next state
            EndIf
        Case $iShowForm2_Bttn
            If GUICtrlRead($iShowForm2_Bttn) = 'Show Form2' Then
                GUICtrlSetData($iShowForm2_Bttn, 'Hide Form2')
                GUISetState(@SW_SHOW, $hForm2)
            Else
                GUICtrlSetData($iShowForm2_Bttn, 'Show Form2')
                GUISetState(@SW_HIDE, $hForm2)
            EndIf
        Case $aForm1_Elements[1] To $aForm1_Elements[$aForm1_Elements[0]]
            MsgBox(64, 'Event', 'Event from element (' & GUICtrlRead($aMsg[0], 1) & ') in form 1', 0, $hForm1)
        Case $aForm2_Elements[1] To $aForm2_Elements[$aForm2_Elements[0]]
            MsgBox(64, 'Event', 'Event from element (' & GUICtrlRead($aMsg[0], 1) & ') in form 2', 0, $hForm2)
    EndSwitch
WEnd

Func _FormElements($hForm)
    GUISwitch($hForm)

    Local $aRet[3] = [2]

    $aRet[1] = GUICtrlCreateButton('Button1', 20, 20, 60, 20)
    $aRet[2] = GUICtrlCreateButton('Button2', 20, 40, 60, 20)

    Return $aRet
EndFunc

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 22:45, 08-09-2013 | #4