Вопрос по OpenBasic

[astrobeglec]

Был самописный макрос в VBA. Суть макроса:
1. Открывается форма (диалог)
2. В TextBox вносятся 2 значения
3. На основании значения функция вычисляет еще 3 значения (2 подстановки и математическое вычисление)
4. В TextBox выводятся полученные значения которые затем идут в текст документа.
Суть вопроса:
В VBA я задавал переменную как:

Код: [Выделить]

x=TextBox1.Text Соответственно возвращал данные в форму

Код: [Выделить]

TextBox2.Text = yЧем заменить указанные команды?
Пока что это единственное что удерживает на виртуалке WinXP... Ибо код в целом (56 килознаков) экономит каждый день по 2-3 часа рабочего времени. Всю обработку переписал, а вот с данным вопросом не получилось. К гуглу и яндексу не отсылать - 4 день там вечерами отвисаю.... Находил ряд примеров, но не сработали.
Пользователь решил продолжить мысль 24 Января 2011, 23:44:11:

Был самописный макрос в VBA... Всю обработку переписал

На что переписали?

На OOo Basic разумеется. В принципе там кода хоть и много, но операции простые - математика и подстановка. При запуске кода с изначально заданными параметрами все работает. Вот только как параметры из диалога вытянуть и определить? А заодно и назад поставить?

[smaharbA]

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

[alexander.pronin]

Эндрю Питоньяк. OpenOffice.org Объяснение Макросов. — Hentzenwerke Publishing, 2004
В LXF много статей Бейна.

[Jack Sparrow]

Используйте методы getText(string) и setText(string).

[alexwf]

Как-то так:

Код: [Выделить]

Dim oTxt As Object 'объявим ссылку на объект текстового поля

'код бла-бла
'а тут нужно вызвать наш диалог с текст-боксом и получить из него данные

 DialogLibraries.LoadLibrary("Standard" ) 'стандартная библа
 oDialog1 = CreateUnoDialog(DialogLibraries.Standard.FillCells)          'объект диалога (рисуется в дезигнере) с именем FillCells

 oTxt = oDialog1.GetControl("txfTxt") 'получить ссылку на текст-бокс по имени txfTxt
 oDialog1.Execute() 'показать форму диалога

'в диалоге есть кнопка, на неё повесим следующую пр-ру (исполнение)
'внутри код

 MsgBox(oTxt.Text) 'показать в мессаге чего ввели в поле
Не сложно. присвоить чего-либо oTxt.Text = "123456" , у объекта много доступных свойств, атрибутов и методов
Полезная фича ООо "запись макросов" - включаем, делаем чего-нибудь в док-те, глядим чего он нагенерил.

Очень полезный ресурс:
http://wiki.services.openoffice.org/wiki/Documentation/BASIC_Guide