[РЕШЕНО]Base. Установка фокуса на листбокс

[Ириминаге]

Здравствуйте! Мне необходимо, чтобы фокус в определенный момент встал на листбокс. Курение интернета и Питоньяка результатов не дали... Листбокс находится на Форме, а не в Диалоге. Не подскажете ли, как это лучше сделать?

[economist]

Для успешного "выделения" контрола нужно получить View контрола. Помним что Model, View, Control - это три стороны одной медальки. Найти вью проще всего с помощью готовой LO-либы Tools, которую стоит подключить макросом при открытии документа:

Код Выделить Развернуть


If GlobalScope.BasicLibraries.hasByName("Tools") Then
     GlobalScope.BasicLibraries.LoadLibrary("Tools")
End If


Ну а дальше просто:

Код Выделить Развернуть


sNameControl = "Имя моего контрола"
oForm = ThisComponent.drawpage.forms.GetByName("Имя Формы") ' для Writer/Calc, в Base - иначе!
cControl = oForm.GetByName(sNameControl) ' получили контрлл
oController = ThisComponent.CurrentController ' получили контрллер
oControlView = oController.GetControl(cControl) ' получили вью контрола
oControlView.SetFocus ' установили фокус


Фокус выглядит по разному для режима Разработки и Обычного. Чтобы код заработал в Base - нужно переписать строку с oForm = ... 

[Ириминаге]

Спасибо за ответ! Пока форум лежал в реанимации, удалось найти решение. Хватило пяти строк, для Base:

Код Выделить Развернуть

zForm = ThisComponent.Drawpage.Forms.getByName("ZapMain") 'доступ к Форме
ZapBoxDat = zForm.getByName("ZapDat") 'доступ к боксу даты
zControl =  ThisComponent.CurrentController
zLBC = zControl.getcontrol(ZapBoxDat)
zLBC.setfocus