Макросы для Base
Материал из Forumooo wiki
Доступ к 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