Bonjour
Ci-dessous un exemple de procédure dans un module de la bibliothèque
Standard de "Mes macros" :
option explicit
sub PysMajDoc
dim PysDlg as object, PysBibli as object, PysDialogue as object
DialogLibraries.Loadlibrary("Standard")
PysBibli = DialogLibraries.GetByName("Standard")' On charge la bibli
PysDialogue = PysBibli.GetByName("Dialog1") ' on accède à la boite
PysDlg = CreateUnoDialog(PysDialogue) ' création du dialogue
'Si on a quitté le dialogue par OK
if PysDlg.Execute = com.sun.star.ui.dialogs.ExecutableDialogResults.OK then
print PysDlg.getControl("TxtExemple").text
end if
end sub
Cordialement
Pierre-Yves
--
View this message in context:
http://nabble.documentfoundation.org/Boite-de-dialogue-tp3443193p3443261.html
Sent from the Users mailing list archive at Nabble.com.
--
Envoyez un mail à [email protected] 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
