Что нового

[Окна, Диалоги] Не открывает два окна

RAZERx7

Новичок
Сообщения
5
Репутация
0
По идее должно открыть два окна сразу , но этого не происходит?
Код:
#include <GUIConstantsEx.au3> 

Opt("GUIOnEventMode", 1)  ; Включает режим OnEvent 
$mainwindow = GUICreate("Привет мир", 200, 100) 
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked") 
GUICtrlCreateLabel("Привет мир! Как дела?", 30, 10) 
$okbutton = GUICtrlCreateButton("OK", 70, 50, 60) 
GUICtrlSetOnEvent($okbutton, "OKButton")

$dummywindow = GUICreate("Пустое окно для теста ", 500, 600)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")

GUISetState(@SW_SHOW,$mainwindow) 

While 1 
  Sleep(1000)  ; Цикл ожидания 
WEnd 

Func OKButton() 
  ;Примечание: в этом месте @GUI_CtrlId равен $okbutton, 
  MsgBox(0, "Событие GUI", "Вы нажали OK!") 
EndFunc 

Func CLOSEClicked() 
  ;Примечание: в этом месте @GUI_CtrlId равен $GUI_EVENT_CLOSE, 
  ;@GUI_WinHandle может быть либо $mainwindow, либо $dummywindow
   If @GUI_WinHandle = $mainwindow Then 
	  MsgBox(0, "Событие GUI", "Вы нажали CLOSE! Завершаем...") 
	  Exit
   EndIf
EndFunc
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Код:
#include <GUIConstantsEx.au3> 

Opt("GUIOnEventMode", 1)  ; Включает режим OnEvent 
$hForm1 = GUICreate("Привет мир", 200, 100, 0, 0) 
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked") 
GUICtrlCreateLabel("Привет мир! Как дела?", 30, 10) 
$okbutton = GUICtrlCreateButton("OK", 70, 50, 60) 
GUICtrlSetOnEvent($okbutton, "OKButton")

$hForm2 = GUICreate("Пустое окно для теста ", 500, 600)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")

GUISetState(@SW_SHOW,$hForm1)
GUISetState(@SW_SHOW,$hForm2)

While 1 
  Sleep(1000)  ; Цикл ожидания 
WEnd 

Func OKButton() 
  ;Примечание: в этом месте @GUI_CtrlId равен $okbutton, 
  MsgBox(0, "Событие GUI", "Вы нажали OK!") 
EndFunc 

Func CLOSEClicked() 
  ;Примечание: в этом месте @GUI_CtrlId равен $GUI_EVENT_CLOSE, 
  ;@GUI_WinHandle может быть либо $mainwindow, либо $dummywindow
   If @GUI_WinHandle = $hForm1 Or @GUI_WinHandle = $hForm2 Then 
      MsgBox(0, "Событие GUI", "Вы нажали CLOSE! Завершаем...") 
      Exit
   EndIf
EndFunc
 
Верх