Работа клавишами в гаджетах

@spycor · Регистрация: 29.09.2016

Студворк — интернет-сервис помощи студентам

Добрый день!

Помогите разобраться, как использовать (в данном случае) клавишу enter в stringgadget. Задача: есть две строки, написав что-то в первой и нажав enter вывести это куда-то (пока в дебаг) и переместить курсор на вторую. Во второй строке тоже написав что-то вывести это в дебаг и переместить курсор на первую строку. Как правильно это сделать? Вот неправильно работающий набросок:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
  If OpenWindow(0, 0, 0, 322, 205, "StringGadget Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    StringGadget(0, 8,  10, 306, 20, "")
    AddKeyboardShortcut(0, #PB_Shortcut_Return, 0)
    StringGadget(1, 8,  35, 306, 20, "")
    ;AddKeyboardShortcut(0, #PB_Shortcut_Return, 1)
    Repeat
      Event = WaitWindowEvent()
      If Event = #PB_Event_Menu
        Select EventMenu()
          Case 0
            If GetActiveGadget()=0
              Debug GetGadgetText(0)
              SetActiveGadget(1)
              SetGadgetText(1,"")
            EndIf
          Case 1
            If GetActiveGadget()=1
              Debug GetGadgetText(1)
              SetActiveGadget(0)
              SetGadgetText(0,"")
            EndIf       
        EndSelect
      EndIf  
    Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf

Спасибо.

@locm · 15.06.2017, 19:28

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
If OpenWindow(0, 0, 0, 322, 205, "StringGadget Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  StringGadget(0, 8,  10, 306, 20, "")
  AddKeyboardShortcut(0, #PB_Shortcut_Return, 0)
  StringGadget(1, 8,  35, 306, 20, "")
  Repeat
    Event = WaitWindowEvent()
    If Event = #PB_Event_Menu
      Select EventMenu()
        Case 0
          If GetActiveGadget()=0
            Debug GetGadgetText(0)
            SetActiveGadget(1)
            SetGadgetText(1,"")
          ElseIf GetActiveGadget()=1
            Debug GetGadgetText(1)
            SetActiveGadget(0)
            SetGadgetText(0,"")
          EndIf     
      EndSelect
    EndIf  
  Until Event = #PB_Event_CloseWindow
EndIf

@spycor · 16.06.2017, 10:31 **[ТС]**

Спасибо за помощь. В данном конкретном случае удобно так поступить, но если задача немного усложняется, как решить ее?

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
If OpenWindow(0, 0, 0, 322, 205, "StringGadget Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  PanelGadget (10, 0, 0, WindowWidth(0), WindowHeight(0))
  AddGadgetItem (10, -1, "Закладка 1")
  StringGadget(0, 8,  10, 306, 20, "")
  AddKeyboardShortcut(0, #PB_Shortcut_Return, 0)
  StringGadget(1, 8,  35, 306, 20, "")
  StringGadget(2, 8,  65, 306, 20, "")
  AddGadgetItem (10, -1, "Закладка 2")  
  StringGadget(3, 8,  10, 306, 20, "")  
  StringGadget(4, 8,  35, 306, 20, "")
  StringGadget(5, 8,  65, 306, 20, "")
  CloseGadgetList()
  
  Repeat
    Event = WaitWindowEvent()
    If Event = #PB_Event_Menu
      Select EventMenu()
        Case 0
          If GetActiveGadget()=0
            Debug GetGadgetText(0)
            SetActiveGadget(1)
            SetGadgetText(1,"")
          ElseIf GetActiveGadget()=1
            Debug GetGadgetText(1)
            SetActiveGadget(0)
            SetGadgetText(0,"")
          EndIf     
      EndSelect
    EndIf  
  Until Event = #PB_Event_CloseWindow
EndIf

@spycor · 19.06.2017, 16:05 **[ТС]**

Когда узнал, что ElseIF, в отличии от IF, можно использовать несколько раз в одном условии, то всё стало просто. Не мешало бы отразить это в хелпе. Если у кого с фантазией та же история, что и у меня, то вот что получилось:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
If OpenWindow(0, 0, 0, 322, 205, "StringGadget Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  PanelGadget (10, 0, 0, WindowWidth(0), WindowHeight(0))
  AddGadgetItem (10, -1, "Закладка 1")
  StringGadget(0, 8,  10, 306, 20, "")
  AddKeyboardShortcut(0, #PB_Shortcut_Return, 0)
  StringGadget(1, 8,  35, 306, 20, "")
  StringGadget(2, 8,  65, 306, 20, "")
  AddGadgetItem (10, -1, "Закладка 2")  
  StringGadget(3, 8,  10, 306, 20, "")  
  StringGadget(4, 8,  35, 306, 20, "")
  StringGadget(5, 8,  65, 306, 20, "")
  CloseGadgetList()
  
  Repeat
    Event = WaitWindowEvent()
    If Event = #PB_Event_Menu
      Select EventMenu()
        Case 0
          If GetActiveGadget()=0
            Debug GetGadgetText(0)
            SetActiveGadget(1)
            SetGadgetText(1,"")
          ElseIf GetActiveGadget()=1
            Debug GetGadgetText(1)
            SetActiveGadget(2)
            SetGadgetText(2,"")
          ElseIf GetActiveGadget()=2
            Debug GetGadgetText(2)
            SetActiveGadget(0)
            SetGadgetText(0,"")
          ElseIf GetActiveGadget()=3
            Debug GetGadgetText(3)
            SetActiveGadget(4)
            SetGadgetText(4,"")   
          ElseIf GetActiveGadget()=4
            Debug GetGadgetText(4)
            SetActiveGadget(5)
            SetGadgetText(5,"")
          ElseIf GetActiveGadget()=5
            Debug GetGadgetText(5)
            SetActiveGadget(3)
            SetGadgetText(3,"")
          EndIf          
      EndSelect
    EndIf  
  Until Event = #PB_Event_CloseWindow
EndIf

@locm · 20.06.2017, 12:09

Можно сделать проще.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
If OpenWindow(0, 0, 0, 322, 205, "StringGadget Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  PanelGadget (10, 0, 0, WindowWidth(0), WindowHeight(0))
  AddGadgetItem (10, -1, "Закладка 1")
  StringGadget(0, 8,  10, 306, 20, "")
  AddKeyboardShortcut(0, #PB_Shortcut_Return, 0)
  StringGadget(1, 8,  35, 306, 20, "")
  StringGadget(2, 8,  65, 306, 20, "")
  AddGadgetItem (10, -1, "Закладка 2")  
  StringGadget(3, 8,  10, 306, 20, "")  
  StringGadget(4, 8,  35, 306, 20, "")
  StringGadget(5, 8,  65, 306, 20, "")
  CloseGadgetList()
  
  Repeat
    Event = WaitWindowEvent()
    
    If Event = #PB_Event_Menu
      Select EventMenu()
        Case 0
          Gadget = GetActiveGadget()
          If Gadget<>-1
            SetFocus_(GetNextDlgTabItem_(GetParent_(GadgetID(Gadget)), GadgetID(Gadget), #False)) 
          EndIf
      EndSelect
    EndIf
  Until Event = #PB_Event_CloseWindow
  
EndIf

@spycor · 20.06.2017, 14:27 **[ТС]**

Вот это очень интересно. Спасибо!

Новые блоги и статьи Все статьи Все блоги /
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .

@spycor 0 / 0 / 0 Регистрация: 29.09.2016 Сообщений: 38
	20.06.2017, 14:27 [ТС]
	Вот это очень интересно. Спасибо! 0

Работа клавишами в гаджетах

Решение