Вот нужно чтобы была в окне текстовая строка в ней надо написать определенную команду .
И там винузу есть кнопка пока ты не ввел эту команду в строку при нажатии этой кнопки ни чего не будет происходить.
А когда введешь её сразу можно будет нажать и при нажатии передет в другое окно и там будет последствие этой команды которую ты ввел.
Не могу найти пример
Страница: 1
Сообщений 1 страница 2 из 2
Поделиться102.11.2011 19:49:49
Поделиться202.11.2011 20:16:27
Код:
; PureBasic Visual Designer v3.95 build 1485 (PB4Code)
;- Window Constants
;
Enumeration
#Window_0
#Window_1
EndEnumeration
;- Gadget Constants
;
Enumeration
#String_0
#Button_0
EndEnumeration
Procedure Open_Window_0()
If OpenWindow(#Window_0, 444, 389, 210, 66, "New window ( 0 )", #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget)
TextGadget(#PB_Any, 10, 10, 55, 15, "Команда")
StringGadget(#String_0, 10, 25, 130, 20, "")
ButtonGadget(#Button_0, 150, 24, 50, 22, "OK")
EndIf
EndProcedure
Procedure Open_Window_1()
If OpenWindow(#Window_1, 293, 404, 282, 91, "New window ( 1 )", #PB_Window_SystemMenu | #PB_Window_WindowCentered, WindowID(#Window_0) )
TextGadget(#PB_Any, 40, 35, 205, 15, "Вы ввели правильную команду.")
DisableWindow(#Window_0, 1)
EndIf
EndProcedure
Procedure TestCommand()
If GetGadgetText(#String_0) = "Тут текст команды"
Open_Window_1()
EndIf
EndProcedure
Open_Window_0()
Repeat
Event = WaitWindowEvent()
Window = EventWindow()
If Window = #Window_0
If Event = #PB_Event_Gadget
If EventGadget() = #Button_0
TestCommand()
EndIf
EndIf
ElseIf Window = #Window_1
If Event = #PB_Event_CloseWindow
DisableWindow(#Window_0, 0)
CloseWindow(#Window_1)
EndIf
EndIf
Until Event = #PB_Event_CloseWindow And Window = #Window_0Страница: 1
Похожие темы
| USB+PIC18F4550+Proton | Программирование микроконтроллеров | 07.02.2013 |
| PureBasic Excel | PureBasic для Windows | 03.02.2022 |
| Мои программы | PureBasic для Windows | 11.07.2013 |
| FTP_Lib | Вопросы по PureBasic | 07.08.2010 |
| Вводl данных с клавиатуры с последующей обработкой | Вопросы по PureBasic | 22.04.2012 |