[fr-users] Re: Boite de dialogue

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 à users+help@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