Bonjour Michel,
Le 11/08/2014 09:49, Michel Blanchard a écrit :
Bonjour,
En ce qui concerne la propriété IsMaximized tu peux effectivement
supprimer la ligne mais comme dans LO les formulaires sont des objets
writer, pour retrouver une fenêtre normale il faut revenir en mode
édition et la sauvegarder telle que tu le souhaite.
C'est fait déjà comme cela et avec la macro que j'utilise actuellement
je n'ai pas de problème, les dimensions sont conservées lors de
l'ouverture. Mais avec la tienne, la fenêtre est systématiquement
maximisée, même si je supprime la ligne en question. C'est dommage,
j'aurai bien aimé pouvoir l'utiliser.
Pour utiliser une macro dans la totalité des applications LO, elle
doit être sauvegardée dans la bibliothéque "Mes Macros".
Oui, je sais. Comme je te disais, j'y ai déjà enregistré la macro de
fermeture qui est indépendante du document dans lequel elle est utilisée.
En cas de changement de version ou bien de déplacement vers une autre
machine il faut récupérer le dossier basic du dossier roaming>user>4
et l'installer au nouvel emplacement.
Je sauvegarde ce dossier régulièrement.
Tu trouvera une foule de renseignements sur le site :
wiki.documentfoundation.org/Documentation/Publications/fr
et pour LO basic la bible : "Programmation OpenOffice et LibreOffice
de Bernard Marcelly et Laurent Godart"
Si un jour j'ai plein de courage :-)
Bonne journée,
Bernard
Le 10/08/2014 17:45, Bernard Ribot a écrit :
Le 10/08/2014 10:03, Michel Blanchard a écrit :
Bonjour,
Il est possible d'utiliser une macro unique qui permet d'ouvrir
n'importe quel formulaire.
Il faut indiquer dans les propriétés générales du *bouton* ouvrant
le formulaire, le nom du formulaire dans la propriété *"complément
d'information"*.
La macro ci-dessous est ensuite affectée à la propriété *"exécuter
action"* de l'onglet évènements du bouton.
Le nom du formulaire est récupéré par la ligne de code
"nomFormulaire = bouton.Model.tag"
*Sub OuvrirFormulaire(evt As Object)
rem ---------------ouvrir un
formulaire----------------------------------------------------------------
Dim bouton As Object, nomFormulaire As String
bouton = evt.Source
nomFormulaire = bouton.Model.tag
LibOForm
=ThisDatabaseDocument.FormDocuments.getByName(nomFormulaire).open
LibOForm.currentController.frame.ContainerWindow.IsMaximized = true
End Sub*
Cordialement
Michel B.
Le 10/08/2014 09:31, Bernard Ribot a écrit :
Le 10/08/2014 08:21, demande_aide_fr@libreoffice.org a écrit :
Bonjour
Voici une nouvelle question envoyée à l'aide du formulaire de
demande d'aide
(http://fr.libreoffice.org/get-help/poser-une-question/).
Si vous répondez, merci de penser à utiliser la fonction "répondre
à tous" de votre logiciel de courrier électronique de façon que le
demandeur reçoive une copie de votre réponse.
Email: - gerard.daubois@laposte.net
Sujet: - base de données
Question: - Comment ouvrir et fermer un formulaire dans la base de
données Liboffic.
Je débute en ooobasic par contre, j'ai beaucoup programmé en vba.
Cordialement et merci pour votre réponse
Bonjour,
Pour ouvrir un formulaire à partir d'un autre formulaire, tu
associes cette macro à un bouton du formulaire "lanceur" :
Sub OuvrirForm
'Etablit la connexion
ThisDatabaseDocument.CurrentController.connect("","")
'Ouvre le formulaire nommé Table1
ThisDatabaseDocument.FormDocuments.getByName( "Table1" ).open
End Sub
Et pour fermer le formulaire "lancé" et retourner au formulaire
"lanceur" tu associes cette macri à un bouton :
Sub QuitterForm
oFrame = thisComponent.CurrentController.getFrame()
oFrame.close( True )
End Sub
Bernard
Re-bonjour Michel,
J'ai essayé ta macro qui fonctionne mais j'aimerais que le formulaire
ne s'ouvre pas pas maximisé. J'ai essayé (au pif, je ne connais rien
en LO Basic) : ...IsMaximized = false, ... IsMinimized = trur et
même d'enlever carrément la ligne, rien n'y fait.
Autre chose : ce serait possible une macro indépendante de la base de
données ? En lui fournissant "base.formulaire" dans "compléments
d'information". Ce serait pour mettre la macro dans les macros
communes (Mes macros) comme je peux le faire avec la macro QuitterForm.
Bernard
--
Bernard Ribot
LibreOffice 4.1.5.3 - 4.2.5.2 - 4.3.1.1 / Windows 7/x86
LibreOffice 3.6.7 / Windows XP
--
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être
supprimés
Context
Privacy Policy |
Impressum (Legal Info) |
Copyright information: Unless otherwise specified, all text and images
on this website are licensed under the
Creative Commons Attribution-Share Alike 3.0 License.
This does not include the source code of LibreOffice, which is
licensed under the Mozilla Public License (
MPLv2).
"LibreOffice" and "The Document Foundation" are
registered trademarks of their corresponding registered owners or are
in actual use as trademarks in one or more countries. Their respective
logos and icons are also subject to international copyright laws. Use
thereof is explained in our
trademark policy.