Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- OpenWindow(0,100,100,520,280,"Удалялка строк",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
- Enumeration
- #pole1
- #pole2
- #button
- #str
- EndEnumeration
- Editor_0 = EditorGadget(#pole1, 10, 40, 190, 230)
- AddGadgetItem(#pole1,1,"Как ")
- AddGadgetItem(#pole1,1,"жить")
- AddGadgetItem(#pole1,1,"дальше")
- Editor_0_Copy2 = EditorGadget(#pole2, 330, 40, 190, 230)
- Button_1 = ButtonGadget(#button, 210, 190, 100, 25, "Тыдыщ")
- Text_0 = TextGadget(#PB_Any, 210, 40, 120, 20, "Удалить каждую")
- String_0 = StringGadget(#str, 210, 70, 100, 25, "3")
- Text_0_Copy1 = TextGadget(#PB_Any, 210, 100, 120, 20, "строку из поля 1")
- Text_0_1 = TextGadget(#PB_Any, 10, 10, 100, 25, "Поле 1")
- Text_0_Copy1 = TextGadget(#PB_Any, 320, 10, 100, 25, "Поле 2")
- ; в винде все построено на получении ивентов и их контролировании
- ; поэтому мы создаем цикл с построверкой условия
- ; (повторять, пока не выполнится условие)
- Repeat
- ; вот тут мы получаем сам ивент и пишем его в переменную ev
- ; для дальнейшей обработки
- ; если мы этого делать не будем (или наше приложение повиснет при какой-то операции)
- ; то винда будет считать что оно зависло
- ; и предложит его завершить (уверен ты такое видел не раз)
- ; можешь закомментировать эту строку и посмотреть что будет
- ev = WaitWindowEvent()
- Text$ = GetGadgetText(#pole1)
- ;i = CountGadgetItems(#Gadget)
- ;l = GetGadgetText(#str)
- ; стандартный во многих языках case
- ; как if-else, но для большого количества условий
- ; тут мы проверяем какой нам ивент пришел
- Select ev
- ; если это ивент от гаджета
- Case #PB_Event_Gadget
- ; смотрим что это за гаджет
- Select EventGadget()
- Case #button
- ; и что за тип ивента
- Select EventType()
- ; типы ивентов можно посмотреть в хэлпе по конкретному гаджету
- Case #PB_EventType_LeftClick
- ;For k=0 To i
- SetGadgetText(#pole2, Text$)
- ;Next
- EndSelect
- EndSelect
- EndSelect
- ; если ивент вот такой, то значит юзер нажал на крестик
- ; и можно завершить цикл
- Until ev = #PB_Event_CloseWindow
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement