Libreoffice无法填充ListBox，因为我无法正确地声明列表框

Question

我的计算工作表中有一个Listbox，我正在尝试解决它，以便用数据填充它

DialogLibraries.LoadLibrary("Standard")
oDialog = CreateUnoDialog(DialogLibraries.Standard)
listBoxGruppe = oEvent.Source.Context.getControl("Drop_Down_5") 'oDialog.getControl("Drop_Down_5")
aItems = sheetb.getCellRangeByName(subStrRan).dataarray
Dim sItems(ubound(aItems))
For i = 0 To ubound(aItems)
sItems(i) = aItems(i)(0)
Next i

listBoxGruppe.addItems(sItems, 0)
oDialog.Execute()  

然而，你似乎需要调用某个对话框，但我想知道我的对话框在这种情况下的名称是什么-这就是我的代码隐藏看起来像

Answer 1

我认为在这种情况下不需要对话框

dim RangeAddr as new com.sun.star.table.CellRangeAddress

RangeAddr.EndColumn = 1
RangeAddr.EndRow = Cell.CellAddress.Row
RangeAddr.Sheet = 2
RangeAddr.StartColumn = 1
RangeAddr.StartRow = 0

dim initParam(0) as new com.sun.star.beans.NamedValue
initParam(0).Name="CellRange"
initParam(0).Value = RangeAddr
CellRangeListSource = doc.createInstanceWithArguments("com.sun.star.table.CellRangeListSource", initParam )
listBoxGruppe.setListEntrySource CellRangeListSource