VBNet - Форум - Combobox в OpenOffice

Вопрос: Combobox в OpenOffice Добавлено: 08.10.09 11:59

Автор вопроса: -АлександР- | Web-сайт: sham.clan.su

Добрый день!

На работе пришлось установить OpenOffice ввиду его бесплатного распространения.

И вот столкнулся с проблемой написать самый простейший макрос, который в обычном офисе сделал бы с завязаными глазами.

Тут какой-то хитрый способ программирования

Как получить доступ к свойствам контрола?

У меня combobox, мне нужно, чтобы при смене текста в нем, изменялись значения некоторых ячеек на то, что в комбобоксе

В принципе все сделал

sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
dim oComboBox as object
dim oDialog As Object

rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

oComboBox = oDialog.getControl("ComboBox")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = GetSelectedItem (oComboBox)

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args1())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array())

end sub

rem  функция для изымания текста (стащил с офиц сайта опенофис)

Function GetSelectedItem( oComboBoxModel As Object ) As String
     GetSelectedItem = oComboBoxModel.Text
End Function

выдает какую-то ошибку времени выполнения.

Хто нибудь в этих продуктах вообще программировал?
Ответить

Ответы Всего ответов: 0

Нет ответов

Страница: