Как получить фокус на подчиненной форме в LibreOffice Base, используя вкладку - PullRequest
Новая
       62

Как получить фокус на подчиненной форме в LibreOffice Base, используя вкладку

0 голосов
/ 14 апреля 2019

Вопрос и ответ LibreOffice Base; Порядок табуляции от основной формы до подчиненной почти решает проблему, которая у меня есть, но не полностью.

У меня есть таблица mytable (id, name, textfield). Я отображаю id и name в форме с макетом таблицы (управление таблицей). Я добавил столбец textfield из той же таблицы, что и подчиненная форма с элементом управления текстовым полем (причина в том, что я хочу вводить текст с символами новой строки, в то же время имея возможность быстро перемещаться по записям в основной таблице). Вот как это выглядит в режиме конструктора:

Form and subform from one table

Я добавил этот базовый макрос на основе двух ответов, указанных выше: 

Sub Main

Dim root_doc As Object
Dim form_container, form_ctrlr As Object
Dim main_frm, sub_frm, tab_target As Object
root_doc = ThisComponent
form_container = root_doc.Drawpage.Forms
form_ctrlr = root_doc.getCurrentController()
main_frm = form_container.getByName("MainForm")
sub_frm = main_frm.getByName("SubForm")
tab_target = sub_frm.getByName("TextField")
form_ctrlr.getControl(tab_target).setFocus()

End Sub

Теперь, если я добавлю макрос в событие When losing focus столбца name, я получаю фокус на текстовом поле при нажатии клавиши Tab, но на следующей строке.

Если я добавлю макрос к событию On key press столбца name, я получу то, что хочу, нажав, например, например. Space, но Tab или Enter ведут меня только к следующему ряду в основной форме.

Есть ли способ заставить это работать с Tab?

1 Ответ

0 голосов
/ 18 апреля 2019

Варианты решения этой проблемы, из ответов на ask.libreoffice.org :

  1. Просто используйте стандартный Ctrl + Tab для переключения фокуса.

  2. Назначьте макрос для пользовательской комбинации клавиш и используйте ее.Не все комбинации работают, я остановился на Shft + Enter.

и макросе (предоставленном пользователем Ratslinger): 

Sub Main
    Dim oForm, oCtrlr, oField As Object
    oForm = ThisComponent.Drawpage.Forms.getByName("MainForm")
    oCtrlr = ThisComponent.getCurrentController()
    oField = main_frm.getByName("TextField")
    oCtrlr.getControl(oField).setFocus()
End Sub
...