Merci Laurent pour les infos.
Le code suivant marche trés bien:
Dim DialBox As object 'c'est la variable qui référence la boite de
dialogue
Sub OuvrirBoiteDial
DialBox = CreateUnoDialog(DialogLibraries.Standard.Dialog1) ' On
déclare la boite Dialog1 qui fait partie du document
cmdNext = DialBox.getControl("BtnValide") 'Variable qui reférence
le Champ texte nomé "BtnValide"
cmdNext.Model.label = "Modifier" ' change le texte du bouton
DialBox.execute() ' affiche la boite de dialogue
End Sub
Laurent Godard a écrit :
Bonjour Jean-Luc,
2 questions sur les boites de dialogue
1 - J'ai une boite de dialogue que je lance avec les instructions
suivantes:
msgbox "C'est Ok" ne s'execute qu'à la fermeture de la boite or je
voudrai qu'il s'exécute automatiquement dés l'ouverture de la boite .
comment faire ?
oui l'appel à la méthode execute() est bloquant
2 possibilites:
- tu mets ta msgbox avant l'appel à execute
- tu te serts d'un des evenement d'un des controles dela boite (mais
c'est un peu tiré par les cheveux)
il y a surement d'autres astuces ....
2 - Que fait l'instruction DialBox.dispose() ?
elle detruit la référence à l'objet DialBox
10 messages in org.openoffice.fr.progRe: [prog] Boite dialogue
