:: com :: sun :: star :: form ::

interface XFormsSupplier

Methods' Summary
getForms accesses the forms. @code{.bas} 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 @endcode  
Methods' Details
getForms
::com::sun::star::container::XNameContainer
getForms();

Description
accesses the forms. @code{.bas} 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 @endcode
Returns
the container of all the top-level forms belonging to the component.
Top of Page