Advertisement
anatolt

2 поля

Jan 23rd, 2015
406
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. OpenWindow(0,100,100,520,280,"Удалялка строк",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  2.  
  3. Enumeration
  4.   #pole1
  5.   #pole2
  6.   #button
  7.   #str
  8. EndEnumeration
  9.   Editor_0 = EditorGadget(#pole1, 10, 40, 190, 230)
  10.   AddGadgetItem(#pole1,1,"Как ")
  11.   AddGadgetItem(#pole1,1,"жить")
  12.   AddGadgetItem(#pole1,1,"дальше")
  13.   Editor_0_Copy2 = EditorGadget(#pole2, 330, 40, 190, 230)
  14.   Button_1 = ButtonGadget(#button, 210, 190, 100, 25, "Тыдыщ")
  15.   Text_0 = TextGadget(#PB_Any, 210, 40, 120, 20, "Удалить каждую")
  16.   String_0 = StringGadget(#str, 210, 70, 100, 25, "3")
  17.   Text_0_Copy1 = TextGadget(#PB_Any, 210, 100, 120, 20, "строку из поля 1")
  18.   Text_0_1 = TextGadget(#PB_Any, 10, 10, 100, 25, "Поле 1")
  19.   Text_0_Copy1 = TextGadget(#PB_Any, 320, 10, 100, 25, "Поле 2")
  20.  
  21. ; в винде все построено на получении ивентов и их контролировании
  22. ; поэтому мы создаем цикл с построверкой условия
  23. ; (повторять, пока не выполнится условие)
  24. Repeat
  25.   ; вот тут мы получаем сам ивент и пишем его в переменную ev
  26.   ; для дальнейшей обработки
  27.   ; если мы этого делать не будем (или наше приложение повиснет при какой-то операции)
  28.   ; то винда будет считать что оно зависло
  29.   ; и предложит его завершить (уверен ты такое видел не раз)
  30.   ; можешь закомментировать эту строку и посмотреть что будет
  31.   ev = WaitWindowEvent()
  32.   Text$ = GetGadgetText(#pole1)
  33.   ;i = CountGadgetItems(#Gadget)
  34.   ;l = GetGadgetText(#str)
  35.   ; стандартный во многих языках case
  36.   ; как if-else, но для большого количества условий
  37.   ; тут мы проверяем какой нам ивент пришел
  38.   Select ev
  39.     ; если это ивент от гаджета
  40.     Case #PB_Event_Gadget
  41.       ; смотрим что это за гаджет
  42.       Select EventGadget()
  43.         Case #button
  44.           ; и что за тип ивента
  45.           Select EventType()
  46.             ; типы ивентов можно посмотреть в хэлпе по конкретному гаджету
  47.             Case #PB_EventType_LeftClick
  48.               ;For k=0 To i
  49.                 SetGadgetText(#pole2, Text$)
  50.                 ;Next
  51.           EndSelect
  52.       EndSelect
  53.   EndSelect
  54. ; если ивент вот такой, то значит юзер нажал на крестик
  55. ; и можно завершить цикл
  56. Until ev = #PB_Event_CloseWindow
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement