Макросы для Base
Материал из Forumooo wiki
(Различия между версиями)
Rami (Обсуждение | вклад)
(Новая страница: «{{DISPLAYTITLE: Макросы для Base}} ===Доступ к ListBox на форме=== <source lang="oobas">Sub changeLBSource dim oDoc as object, oForm as obje...»)
(Новая страница: «{{DISPLAYTITLE: Макросы для Base}} ===Доступ к ListBox на форме=== <source lang="oobas">Sub changeLBSource dim oDoc as object, oForm as obje...»)
Текущая версия на 08:27, 31 января 2017
Доступ к ListBox на форме
Sub changeLBSource dim oDoc as object, oForm as object dim oListBox as object Dim nCount As Integer oDoc = ThisComponent oForm = oDoc.DrawPage.Forms(0) oListBox = oForm.getByName("ListBox") oListboxControl = oDoc.getCurrentController().getControl(oListBox) oListboxControl.addItem("455", 0) End Sub