Werken met formulieren
- Werken met formulieren
- Besturingselementen Formulieren
- Database-formulieren
Apache OpenOffice formulieren mogen tekstvelden, keuzelijsten, radioknoppen en een scala aan andere besturingselementen bevatten, welke direct worden ingevoegd in een tekst- of werkbladdocument. De werkbalk Besturingselementen wordt gebruikt voor het bewerken van formulieren.
Een formulier in Apache OpenOfficekan één van twee modi aannemen: de ontwerp-modus en de weergave- modus. In ontwerpmodus kan de positie van besturingselementen worden gewijzigd en hun eigenschappen kunnen worden bewerkt met behulp van een venster voor eigenschappen.
De werkbalk Besturingselementen wordt ook gebruikt voor het schakelen tussen die modi.
Bepalen van object Formulieren
Apache OpenOffice plaatst de besturingselementen van een formulier op het niveau van een object van een tekening. Het actuele object formulier kan worden benaderd via de lijst Forms op niveau van het object tekening. De objecten worden als volgt benaderd in tekstdocumenten:
Dim Doc As Object Dim DrawPage As Object Dim Formulier As Object Doc = ThisComponent DrawPage = Doc.DrawPage Formulier = DrawPage.Forms.GetByIndex(0)
De methode GetByIndex geeft het formulier weer met het index-getal 0.
Bij het werken met werkbladdocumenten is een tussenstation nodig, de lijst Sheets, omdat de niveau's voor de tekeningen niet direct in het document zijn gelegen, maar in de individuele werkbladen:
Dim Doc As Object Dim Blad As Object Dim DrawPage As Object Dim Formulier As Object Doc = ThisComponent Blad = Doc.Sheets.GetByIndex(0) DrawPage = Blad.DrawPage Formulier = DrawPage.Forms.GetByIndex(0)
Zoals al werd gesuggereerd door de methodenaam GetByIndex kan een document verschillende formulieren bevatten. Dit is bijvoorbeeld handig als de inhoud van verschillende gegevensbronnen worden weergegeven binnen één document, of als een relatie van een gegevensbron wordt weergegeven binnen een formulier. De optie voor het maken van sub-formulieren wordt mede voor dit doel verschaft.
De drie aspecten van een besturingselement van een formulier
Een besturingselement van een formulier heeft drie aspecten:
- Het Model van het besturingselement is het sleutel-object voor de programmeur in Apache OpenOffice BASIC bij het werken met besturingselementen voor formulieren.
- Het tegengestelde hiervan is de View van het besturingselement, dat de informatie voor de weergave beheert.
- Omdat besturingselement formulieren binnen de documenten worden beheerd als een speciaal tekenelement, is er ook een object Shape dat de tekenelement-specifieke eigenschappen van het besturingselement weergeeft (in het bijzonder zijn positie en grootte).
Toegang tot het Model van besturingselement Formulieren
De modellen van de besturingselementen van een formulier zijn beschikbaar via de methode GetByName van het object Form:
Dim Doc As Object Dim Form As Object Dim Ctl As Object Doc = ThisComponent Form = Doc.DrawPage.Forms.GetByIndex(0) Ctl = Form.getByName("MijnKeuzelijst")
Het voorbeeld bepaalt het model van het besturingselement MijnKeuzelijst, dat is gelegen in het eerste formulier van het huidige geopende tekstdocument.
Als u niet zeker bent van de vorm van een besturingselement, kunt u de optie voor het zoeken door alle vormen voor het vereiste besturingselement gebruiken:
Dim Doc As Object Dim Forms As Object Dim Form As Object Dim Ctl As Object Dim I as Integer Doc = ThisComponent Forms = Doc.Drawpage.Forms For I = 0 To Forms.Count - 1 Form = Forms.GetbyIndex(I) If Form.HasByName("MijnKeuzelijst") Then Ctl = Form.GetbyName("MijnKeuzelijst") Exit Function End If Next I
Het voorbeeld gebruikt de methode HasByName om alle formulieren van een tekstdocument te controleren of zij al dan niet een model van een besturingselement, genaamd MijnKeuzelijst, bevatten. Als een overeenkomend model wordt gevonden, dan wordt een verwijzing daarnaar bewaard in de variabele Ctl en wordt de zoekbewerking beëindigd. Het voorbeeld wordt weergegeven met in-regelige code, voor de duidelijkheid; in de praktijk zoude zoekactie binnen een functie staan, aangeroepen met de naam als een parameter string en inclusief foutafhandeling.
Toegang tot de View van besturingselement Formulieren
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)
- Position (struct)
- position of control element (com.sun.star.awt.Point data structure)
The following example shows how the position and size of a control element can be set using the associated shape object:
Dim Shape As Object Dim Point As New com.sun.star.awt.Point Dim Size As New com.sun.star.awt.Size ' ... Initialize Shape object, as previously shown ... Point.x = 1000 Point.y = 1000 Size.Width = 10000 Size.Height = 10000 Shape.Size = Size Shape.Position = Point
The shape object of the control element must already be known if the code is to function. If this is not the case, it must be determined using the preceding code.
Content on this page is licensed under the Public Documentation License (PDL). |