 | 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: |
1 message in org.openoffice.fr.prog[prog] Re: [users-fr] [Basic] boite d...| From | Sent On | Attachments |
|---|---|---|
| Jovial | Oct 1, 2004 1:20 pm |
| 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: | [prog] Re: [users-fr] [Basic] boite de dialogue création etc | Actions... |
|---|---|---|
| From: | Jovial (luck...@free.fr) | |
| Date: | Oct 1, 2004 1:20:20 pm | |
| List: | org.openoffice.fr.prog | |
Essayes cette macro ellle fonctionne très bien chez moi le code passé en commentaire sert juste à placer une image Il te faut créer la boîte de dialogue et changer le nom ici : A_Propos
Sub OuvrirBoiteApropos 'dim DialBox as object Dim CurPosSize as new com.sun.star.awt.Rectangle Dim MonDocument As Object
DialogLibraries.LoadLibrary("Standard") 'Charge explicitement les librairies DialBox = CreateUnoDialog(DialogLibraries.Standard.A_propos)' On déclare la boite Dialog1 qui fait partie du document 'Calcul pour centrer la boite FramePosSize = ThisComponent.getCurrentController().Frame.getComponentWindow.PosSize xWindowPeer = DialBox.getPeer() CurPosSize = DialBox.getPosSize() WindowHeight = FramePosSize.Height WindowWidth = FramePosSize.Width DialogWidth = CurPosSize.Width DialogHeight = CurPosSize.Height iXPos = ((WindowWidth/2) - (DialogWidth/2)) iYPos = ((WindowHeight/2) - (DialogHeight/2)) DialBox.setPosSize(iXPos, iYPos, DialogWidth, DialogHeight, com.sun.star.awt.PosSize.POS) 'Chemin de l'image 'MonDocument = ThisComponent ' Sélectionne le document activé 'DocAdresse = ConvertFromURL(MonDocument.Location) ' Adresse convertie au format système 'NomFichierDoc = dir(DocAdresse) ' Nom du fichier 'RepertoireDoc = Left(DocAdresse,Len(DocAdresse)- Len(NomFichierDoc)) ' Emplacement ou répertoire où se trouve le document 'CheminImage = RepertoireDoc & RepertoireODCF & ImageBienvenue ' chemin fichier image 'DglImage = DialBox.getControl("ImageControl1")'on séletrionne le control 'DglImage.Model.ImageURL = ConvertToURL(CheminImage) 'on attribut le chemin de l'image DialBox.setPosSize(iXPos, iYPos, DialogWidth, DialogHeight, com.sun.star.awt.PosSize.POS) DialBox.execute() 'on affiche la boite de dialogue end sub
*B*onne suite
Vaille-Brunet Orléans a écrit :
Bonjour ! Voulant créer une boîte de dialogue dans un writer, je suis bloqué après la création graphique. Mes premières recherches dans le document basic.pdf me donnent des lignes pour créer une boite de dialogue mais j'obtiens des messages d'erreurs. Le document est incomplet et je ne sais pas encore ce qu'il faut ajouter. D'autres recherche ne m'ont pas permis de trouver un lien vers une application utilisant une boite de dialogue et contenant le code associé. Avez vous un lien à me passer? Merci par avance. Philippe