Существует программа, в которой содержатся 2 окна. При запуске программы открывается только одно окно, на котором есть кнопка, которая открывает второе окно и через секунду закрывает первое. Помогите составить фрагмент кода, открывающий и закрывающий окна, пожалуйста.
Переход из одного окна в другое
Страница: 1
Сообщений 1 страница 2 из 2
Поделиться225.12.2017 09:48:24
Вариантов кода по такому тех.заданию может быть не один.
например один из самых простых и непригодных для реальных задач
Enumeration FormWindow
#Window_0
#Window_1
EndEnumerationEnumeration FormGadget
#btnPressMe
#txtTime
EndEnumerationIf OpenWindow(#Window_0, 200, 100, 260, 90, "Window 0", #PB_Window_SystemMenu)
ButtonGadget(#btnPressMe, 60, 20, 170, 40, "Press Me")
Else
MessageRequester("","Open window Win0 - filed")
End
EndIfIf OpenWindow(#Window_1, 200, 200, 240, 100, "Win 1", #PB_Window_SystemMenu)
TextGadget(#txtTime, 10, 30, 200, 20, "TextGadget Center", #PB_Text_Center)
HideWindow(#Window_1,#True)
Else
MessageRequester("","Open window Win1 - filed")
End
EndIfRepeat
Event = WaitWindowEvent()
Select EventWindow()
Case #Window_0
If Event=#PB_Event_Gadget And EventGadget()=#btnPressMe
HideWindow(#Window_1,#False)
SetGadgetText(#txtTime,"Ждем 20 сек")
Delay(2000) ; msec
HideWindow(#Window_0,#True)
SetGadgetText(#txtTime,"20 сек ожидания закончились")
EndIf
EndSelect
Delay(10)
Until Event = #PB_Event_CloseWindow
Страница: 1
Похожие темы
| Помогите ответте на вопросы. | Вопросы по PureBasic | 03.09.2011 |
| Вопросы новичка | Вопросы по PureBasic | 23.12.2010 |
| Ищу наставника (ментора). | PureBasic для Windows | 27.07.2022 |