OpenOffice.org BASIC Guide - OpenOffice.org wiki

Accessing the View of Control Element Forms
Working With Forms
To access the view of a control element form, you need the associated model. The view of the control element
can then be determined with the assistance of the model and using the document controller.
Dim Doc As Object
Dim DocCrl As Object
Dim Forms As Object
Dim Form As Object
Dim Ctl As Object
Dim CtlView As Object
Dim I as Integer
Doc = ThisComponent
DocCrl = Doc.getCurrentController()
Forms = Doc.Drawpage.Forms
For I = 0 To Forms.Count - 1
Form = Forms.GetbyIndex(I)
If Form.HasByName("MyListBox") Then
Ctl = Form.GetbyName("MyListBox")
CtlView = DocCrl.GetControl(Ctl)
Exit Function
End If
Next I
The code listed in the example is very similar to the code listed in the previous example for determining a control
element model. It uses not only the Doc document object but also the DocCrl document controller object which
makes reference to the current document window. With the help of this controller object and the model of the
control element, it then uses the GetControl method to determine the view (CtlView variable) of the control
element form.
Accessing the Shape Object of Control Element Forms
The method for accessing the shape objects of a control element also uses the corresponding drawing level of the
document. To determine a special control element, all drawing elements of the drawing level must be searched
through.
Dim Doc As Object
Dim Shape as Object
Dim I as integer
Doc = ThisComponent
For i = 0 to Doc.DrawPage.Count - 1
Shape = Doc.DrawPage(i)
If HasUnoInterfaces(Shape, "com.sun.star.drawing.XControlShape") Then
If Shape.Control.Name = "MyListBox" Then
Exit Function
End If
End If
Next
The example checks all drawing elements to determine whether they support the
com.sun.star.drawing.XControlShape interface needed for control element forms. If this is the case, the
Control.Name property then checks whether the name of the control element is MyListBox. If this is true, the
function ends the search.
Determining the Size and Position of Control Elements
As already mentioned, the size and position of control elements can be determined using the associated shape
object. The control element shape, like all other shape objects, provides the Size and Position properties for
this purpose:
Size (struct)
size of control element (com.sun.star.awt.Size data structure)
Chapter 12 · Forms 169