Открыть ListBox при обработке SelectionChange в Calc - OpenOffice/LibreOffice - Ответ 1169258

global sheet as integer
global column as integer
global row as integer
 
Sub sl()
 
   sheet=0
   column=7
   row=13
   ThisComponent.CurrentController.addSelectionChangeListener(createUnoListener("OOO_","com.sun.star.view.XSelectionChangeListener"))
 
End Sub
 
Sub OOO_selectionChanged(e as com.sun.star.lang.EventObject)
 
    oDoc=ThisComponent
    oCtl=oDoc.getSheets().getByName("Лист1").DrawPage.Forms.GetByIndex(0).GetByName("ListBox1")
    oListboxControl = oDoc.getCurrentController().getControl(oCtl)
 
   selectsheet=ThisComponent.getSheets().getByIndex(sheet)
   s=e.Source.Selection
   if HasUnoInterfaces(s, "com.sun.star.sheet.XCellAddressable") then
      if s.CellAddress.Column=column and s.CellAddress.Row=row and e.Source.getActiveSheet().Name=selectsheet.Name then
         
           oListboxControl.addItems(Array("І квартал", "ІI квартал"), 0)
           oListboxControl.Visible=True
         else
           oListboxControl.Visible=False
      end if
   end if
End sub