Как получить значение TextField1 диалога

[sttt]

Как получить значение TextField1 диалога? - пытался так:
   

Код Выделить Развернуть

        DialogLibraries.LoadLibrary("Standard")
Dlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1)
'ocControl = Dlg.getControl("TextField1")
ocControl = Dlg.Controls("TextField1")
ocControl.Model.TextColor = RGB(55,155,95)
ocControl.Model.HelpText = "тестовая подсказка..."
'MsgBox ocControl.Model.Text
'ocControl .Label = "Новая надпись"
MsgBox ocControl.getText()

[rami]

Как получить значение TextField1 диалога? - пытался так:

А в чём проблема? Так и получить, как у вас написано. Если ничего не показывает, значит текстовое поле пустое.

P.S. если хотите увидеть диалог с полем и записать текст, нужно добавить:

Код Выделить Развернуть

Dlg.execute()
перед

Код Выделить Развернуть

MsgBox ocControl.getText()

[JohnSUN]

А в чём проблема?

Возможно, не найден диалог с именем Dialog1 потому что он ещё не создан?.. Питоньяк, глава  10.2.  Dialogs

[sttt]

Как получить значение TextField1 диалога? - пытался так:

А в чём проблема? Так и получить, как у вас написано. Если ничего не показывает, значит текстовое поле пустое.

P.S. если хотите увидеть диалог с полем и записать текст, нужно добавить:

Код Выделить Развернуть

Dlg.execute()
перед

Код Выделить Развернуть

MsgBox ocControl.getText()

Код Выделить Развернуть


Dim Dlg As Object

Sub Main
'thisComponent.Parent.FormDocuments.getByName("FormTest").open
'FormTest.Show
'ThisComponent.DrawPage.Forms.getByName("FormTest")'.getByName("Text1")

DialogLibraries.LoadLibrary("Standard")
Dlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1)
Dlg.Execute()
Dlg.dispose()

End Sub

Sub RunTest

'Dim Dlg As Object
Dim Ctl As Object
Dim ocControl As Object
Dim text As String
Dim textControl As Object
Dim textComp As Object

'DialogLibraries.LoadLibrary("Standard")
'Dlg = CreateUnoDialog(DialogLibraries.Standard.Dialog1)
'ocControl = Dlg.getControl("TextField1")
ocControl = Dlg.Controls("TextField1")
ocControl.Model.TextColor = RGB(55,155,95)
ocControl.Model.HelpText = "тестовая подсказка..."
'MsgBox ocControl.Model.Text
'Ctl.Label = "Новая надпись"
MsgBox ocControl.getText()

End Sub


Main прописан у кнопки в экселе у события "Выполнить действие"
В открывшейся форме есть кнопка с выполнением процедуры RunTest

Где-то не то делаю (

[sttt]

вроде со всеми объектами получается работать, а с простейшим TextField1 не получается

[sttt]

сейчас попробовал нажать кнопку с процедурой RunTest и получил в MsgBox Label1 хотя должен быть тестовый текст. И, если сделать так:

Код Выделить Развернуть

ocControl.setText("просто тест") меняет текст метки, хотя логично полагаю, что должно меняться содержимое текстового поля

[sttt]

LibreOffice Версия: 5.4.0.3

[rami]

Давайте пустой документ с макросами и диалогом.

У меня всё нормально работает.

[sttt]

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

[rami]

сейчас попробовал нажать кнопку с процедурой RunTest и получил в MsgBox Label1 хотя должен быть тестовый текст. И, если сделать так:

Код Выделить Развернуть

ocControl.setText("просто тест") меняет текст метки, хотя логично полагаю, что должно меняться содержимое текстового поля

Скорей всего была путаница с именами переменных.

Заново сделал книгу с диалогом и все заработало.

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