Accessing Push Button or Text Box or LabelField with code

[hosta]

Hello,

I have a problem to establish control within Macro for Push Button, Text Box and Label Field which are not a part of Dialog, but they are lying on a Draw Page.
There is a lot of tutorials of accessing Controls within Dialog or Forms.

Code: Select all

	
Sub transferTextFromTextBox   
   Dim oDoc as Object
   Dim oPage as Object
   Dim oTextBox as Object
REM set oDoc object variable to the current document 
   oDoc = ThisComponent
REM set oPage  object variable to the current page
   oPage = oDoc.getDrawPages().getByIndex(0)
REM Get text from TextBoxTITLE
   oTextBox = oPage.getByName("TextBoxTITLE")
REM Show MSGBOX
   MsgBox (MasterTitle,0,"TITLE TextBox")
End Sub

There is error when code stop at oTextBox

Please Help

[JeJe]

There isn't a getbyname method, only getbyindex. If you use MRI, you can find this out easily. You'll have to loop through every index to find the one with the chosen name.

[hosta]

Thanx for hint.
I will try.
Report follows...

[Sébastien C]

A function “findObjectByName” is available in the book (in French) « Programmation OpenOffice.org et LibreOffice » by Bernard Marcelly and Laurent Godard, Eyrolle editor.

The editor offers, in free reading, the appendix where, precisely, it is located. This is page 24/695 of this PDF.
« Rechercher un objet par son nom », so: “Search for an object by name”

If you do not understand (at all) French, I will translate this passage in this thread for you. If not, that should help you a little…

Edit: I am not at all sure that the service com.sun.star.drawing.Shape3DScene described in table B-1 of the PDF still exists... On the other hand, the PDF (of this version of the book) does not speak of a service which corresponds precisely to your request... It is : com.sun.star.drawing.ControlShape