Как программно добавлять или удалять элементы в элементе управления ListBox FORM

Question

У меня возникла проблема с элементом управления ListBox OpenOffice.org. Я создал небольшую форму (не диалог), которая содержит текстовое поле и ListBox и 2 кнопки.

Sub AddToList_ButtonClicked()

Dim oThisDoc As Object 
Dim oForms as Object 
Dim oForm as Object 

oThisDoc = thisComponent.getDrawPage() 
oForms = oThisDoc.getForms() 
oForm = oForms.getByName("SimpleForm") 

Dim oTextBox As Object 
Dim oListBox As Object 

oListBox = oForm.getByName("simpleListBox") 
oTextBox = oForm.getByName("simpleTextBox").Text 
oListBox.stringitemlist() = Array("One", "Two", "Three") '<--- Only possible way to add items to the ListBox Form Control :(

End Sub

Sub RemoveFromList_ButtonClicked()

Dim oThisDoc As Object 
Dim oForms as Object 
Dim oForm as Object 

oThisDoc = thisComponent.getDrawPage() 
oForms = oThisDoc.getForms() 
oForm = oForms.getByName("SimpleForm") 

Dim oListBox As Object 

oListBox = oForm.getByName("simpleListBox") 

oListBox.stringitemlist() '<--- contains array of items 
oListBox.SelectedItems '<--- contains items selected for removal 

End Sub

Я бы полностью оценить любое решение этой проблемы !.

Answer 1

Это вы что искали?

' Add items. 
oListBox.StringItemList() = Array("One", "Two", "Three") 
oListBox.insertItemText(oListBox.ItemCount, "Four") ' This works even if oListBox starts out empty. 
oListBox.insertItemText(oListBox.ItemCount, "Five") 

' Remove the last item in the list. 
oListBox.removeItem(oListBox.ItemCount - 1) 

XrayTool показывает, что oListBox реализует XItemList.

Форма, которую я использовал для проверки этого кода, была в Writer, без какого-либо подключения к Base.