Bonjour,
Je me lance dans les macros... Après avoir lu bien
attentivement "Programmation OOo 2", j'ai un petit problème avec
les "listener"
Mon code fonctionne mais le message "Feuille modifiée !" ne disparait qu'au
bout de 7 ou 8 clics sur OK.
D'où vient l'erreur ?
D'autre part, quelqu'un peut-il m'expliquer la différence entre la méthode
addChartDataChangeEventListener et addModifyListener ?
Merci d'avance pour vos éclairages.
Mon code :
Option Explicit
Private ecouteur As Object
Sub Surveiller()
Dim Classeur As Object, Feuilles As object, Feuille as object
Classeur = ThisComponent
Feuilles = Classeur.Sheets
Feuille = Feuilles.getbyindex(0)
ecouteur = CreateUnoListener("perf_",
"com.sun.star.util.XModifyListener")
Feuille.addModifyListener(ecouteur)
End Sub
Sub Relacher(ecouteur As Object)
Feuille.removeModifyListener(ecouteur)
End Sub
Sub perf_modified(ecouteur As Object)
print "Feuille modifiée !"
End Sub
Sub perf_disposing(ecouteur As Object)
print "Disposing..."
End Sub
--
Michel Grentzinger
OpenPGP key ID : B2BAFAFA
Available on http://www.keyserver.net
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
