:: com :: sun :: star :: form ::
|
interface XFormsSupplier |
|
- Description
- provides the access to a collection of forms.
|
Methods' Summary |
getForms |
accesses the forms.
|
Methods' Details |
getForms
- Description
- accesses the forms.
- Example
- StarBASIC
REM ***** BASIC *****
Sub createColorSelectionBox
' create a new shape
xShape = thisComponent.createInstance( "com.sun.star.drawing.ControlShape" )
Dim aPos as new com.sun.star.awt.Point
aPos.X = 200
aPos.Y = 100
xShape.Position = aPos
Erase aPos
Dim aSize as new com.sun.star.awt.Size
aSize.Width = 2500
aSize.Height = 5000
xShape.Size = aSize
Erase aSize
' create a combo box model
xControlModel = thisComponent.createInstance( "com.sun.star.form.component.ComboBox" )
xControlModel.Name = "ColorSelection"
xControlModel.Text = "red"
' marry the shape and the model
xShape.Control = xControlModel
if ( 0 = thisComponent.DrawPage.Forms.getCount() ) Then
xForm = thisComponent.createInstance( "com.sun.star.form.component.DataForm" )
xForm.Name = "SampleForm"
thisComponent.DrawPage.Forms.insertByIndex( 0, xForm )
End If
' insert the control model into the first form of the forms collection of the
' draw page of the document
thisComponent.DrawPage.Forms.getByIndex(0).insertByIndex( 0, xControlModel )
thisComponent.DrawPage.add( xShape )
End Sub
- Returns
- the container of all the top-level forms belonging to the component.
|
|
Top of Page
Copyright © 2010 Sun Microsystems, Inc.