 | Start a set with this search |
 | Include this search in one of my sets |
 | Exclude this search from one of my sets |
 | Permalink to these results Paste this link in email or IM: |
 | Atom feed for tracking future search results Paste this URL into your reader: |
4 messages in org.openoffice.fr.progRéf. : Re: [prog] Réf. : [prog] Créer...| From | Sent On | Attachments |
|---|---|---|
| Françoise | Sep 16, 2006 4:17 am | |
| Françoise | Sep 17, 2006 4:57 am | |
| Manuel NAUDIN | Sep 17, 2006 5:35 am | |
| Françoise | Sep 17, 2006 9:16 am |
| Permalink for this message Paste this link in email or IM: |
| Permalink for this thread Paste this link in email or IM: |
| Atom feed for this thread Paste this URL into your reader: |
| Subject: | Réf. : Re: [prog] Réf. : [prog] Créer une section incluant des contrôles de formulaires ? | Actions... |
|---|---|---|
| From: | Françoise (fran...@versateladsl.be) | |
| Date: | Sep 17, 2006 9:16:27 am | |
| List: | org.openoffice.fr.prog | |
Bonjour Manuel
Merci beaucoup de m'avoir aidé, je suis vraiment novice et je n'aurais pas trouvé les erreurs sans votre intervention.
En ce qui concerne le rajout d'éléments dans la listBox il y a un tuto juste ici http://fr.openoffice.org/Documentation/Macros/indexmac.html
Je remets la macro corrigée si jamais quelqu'un en aurait besoin :
Option Explicit Sub creation_controle 'Attention aux coupures par la messagerie au niveau des signes = '****** creer un controle ******** 'créer une forme pour le controle dim MonDocument as object Dim MonTexte as object dim oSource as object dim oConnexion as object MonDocument = ThisComponent
Dim Ctl2Shape as object Ctl2Shape = MonDocument.createInstance("com.sun.star.drawing.ControlShape )
Dim Taille As New com.sun.star.awt.Size Taille.Width = 3500 Taille.Height = 700 Ctl2Shape.Size = Taille
'crée un modèle de controle, ici une listbox dim ModeleCtl2 as object ModeleCtl2 = MonDocument.createInstance("com.sun.star.form.component ListBox") ModeleCtl2.Border = 1 ModeleCtl2.Name = "MaListbox" ModeleCtl2. BackgroundColor = 65200
'lier modèle et forme Ctl2Shape.setControl(ModeleCtl2)
'insérer la forme à la fin de la page de dessin du document Writer Dim MonCurseur MonCurseur=MonDocument.Text.createTextCursor MonCurseur.gotoEnd(false) MonTexte = MonDocument.Text MonTexte.insertTextContent( MonCurseur, Ctl2Shape, false)
End Sub
Encore merci :) Françoise
-------Message original-------
De : Manuel NAUDIN Date : 17/09/2006 14:36:20 A : pr...@fr.openoffice.org Sujet : Re: [prog] Réf. : [prog] Créer une section incluant des contrôles de formulaires ?
bonjour,
Le 17/09/06, Françoise<fran...@versateladsl.be> a écrit :
Bonjour à tous,
N'y a-t-il vraiment personne pour m'aider ?
En cherchant j'ai trouvé cette macro de Agnès Simonet, mais elle ne fonctionne pas sous OOo 2.0.3 il y a deux erreurs :
Option Explicit Sub creation_controle 'Attention aux coupures par la messagerie au niveau des signes = '****** creer un controle ******** 'créer une forme pour le controle dim MonDocument as object Dim MonTexte as object dim oSource as object dim oConnexion as object MonDocument = ThisComponent
Dim Ctl2Shape as object Ctl2Shape = MonDocument.createInstance("com.sun.star.drawing.ControlShape")
Dim Taille As New com.sun.star.awt.Size Taille.Width = 1000 Taille.Height = 800 Ctl2Shape.Size = Taille
'crée un modèle de controle, ici une listbox dim ModeleControle as object
'supprimer la ligne précédente 'rajouter dim ModeleCtl2 as object
ModeleCtl2 = MonDocument.createInstance("com.sun.star.form.component.ListBox") XRay.XRay ModeleCtl2 ModeleCtl2.Border = 1 ModeleCtl2.Name = "MaListbox" ModeleCtl2. BackgroundColor = 65200
'lier modèle et forme Ctl2Shape.setControl(ModeleCtl2)
'insérer la forme à la fin de la page de dessin du document Writer Dim MonCurseur MonCurseur=MonDocument.Text.createTextCursor MonCurseur.gotoEnd(false) 'rajouter MonTexte = MonDocument.Text MonTexte.insertTextContent( MonCurseur, Ctl2Shape, false)
End Sub
par contre la zone de liste créée ne contient aucun élément
Manuel