(Re-) bonjour à tous,
Après d'autres essai, j'ai trouvé cette méthode pour fermer les fenêtres
ouvertes et le programme principal,
à partir de l'évènement appui sur un bouton du formulaire principal :
ThisComponent.getParent.Close(False)
Quelque soit le nombre de fenêtres ouvertes, cela fe
Merci à Cedric, Manuel et Laurent pour vos remarques.
J'avais repéré certaines fautes dans le code de départ : notamment que
le compteur
n'était pas incrémenté (utilisé) dans la boucle for .. next, mais bon
j'ai cru à une "feinte" :
pour moi cet API est assez hermétique...
Je vais étudier att
Bonjour
Dim serviceManager As Object, Desktop As Object, i As Byte
Set serviceManager = CreateObject("com.sun.star.serviceManager")
Set Desktop =
serviceManager.createInstance("com.sun.star.frame.Desktop")
tu peux t'affranchir du servicemanager et utilisant soit StarDesktop
comem dé
Bonjour,
For i = 0 To StarDesktop.Frames.Count
StarDesktop.getFrames().getFrames().getByIndex(0).Close(False)
Next i
peut être plutôt :
For i = 0 To StarDesktop.Frames.Count -1
;-)
Manuel
Bonjour Jean-Luc,
Thiebaut Jean-Luc a écrit :
pour ma base de données, j'ai une sorte de formulaire principal qui ne
comporte que des boutons.
La plupart ouvre des formulaires, le dernier "Quitter" devrait fermer
tous les formulaires ouverts,
et si possible quitter Ooo.
Il faut utiliser Star
Bonjour à Tous et meilleurs voeux,
pour ma base de données, j'ai une sorte de formulaire principal qui ne
comporte que des boutons.
La plupart ouvre des formulaires, le dernier "Quitter" devrait fermer
tous les formulaires ouverts,
et si possible quitter Ooo.
j'ai trouvé sur Internet un morcea