OpenOffice.org BASIC Guide.pdf - OpenOffice.org wiki

Working With Forms 231
Accessing the Model of Control Element Forms
The models of the control elements of a form are available through the GetByName method
of the Object form:
Dim Doc As Object
Dim Form As Object
Dim Ctl As Object
Doc = StarDesktop.CurrentComponent
Form = Doc.DrawPage.Forms.GetByIndex(0)
Ctl = Form.getByName("MyListBox")
The example determines the model of the MyListBox control element, which is located in
the first form of the text document currently open.
If you are not sure of the form of a control element, you can use the option for searching
through all forms for the control element required:
Dim Doc As Object
Dim Forms As Object
Dim Form As Object
Dim Ctl As Object
Dim I as Integer
Doc = StarDesktop.CurrentComponent
Forms = Doc.Drawpage.Forms
For I = 0 To Forms.Count - 1
Form = Forms.GetbyIndex(I)
If Form.HasByName("MyListBox") Then
Ctl = Form.GetbyName("MyListBox")
Exit Function
End If
Next I
The example uses the HasByName method to check all forms of a text document to
determine whether they contain a control element model called MyListBox. If a
corresponding model is found, then a reference to this is saved in the Ctl variable and the
search is terminated.