Re: [prog] accéder à un bouton depuis le code

Thu, 10 Feb 2005 02:39:20 -0800

Bonjour,
Le snippet signalé par Laurent affecte un même traitement à tous les boutons du formulaire.
J'ai réussi à affecter un traitement à un bouton donné, en m'inspirant des pages 572-574 et604-605 du bouquin Programmation OpenOffice.org
Au lieu du code du snippet, écrire ceci :


 oDocument = StarDesktop.getCurrentComponent
   oView = oDocument.CurrentController
   oDrawPage = oView.getActiveSheet.DrawPage

   ' get the first form
   oForm = oDrawPage.getForms.getByIndex(0)

Dim modeleBouton As Object, monBouton As Object
Dim ecouteur As Object

modeleBouton = oForm.getByName("Bouton1")
monBouton = oView.GetControl(modeleBouton)
ecouteur = CreateUnoListener("monBouton1_", "com.sun.star.awt.XActionListener")
monBouton.addActionListener(ecouteur)


' ------------- gestionnaires d'évènements ---


Sub monBouton1_actionPerformed(evt As Object)
MsgBox("C'est moi, le bouton !")
End Sub

Sub monBouton1_disposing(evt As Object)
End Sub

*******

A noter :
La routine monBouton1_disposing est nécessaire même si on ne l'utilise pas.
L’afficheur de propriétés du contrôle Bouton ne « voit » pas le traitement de l’évènement.
Le traitement est désactivé à la fermeture du document. La sauvegarde du document ne permet pas de mémoriser l'affectation de traitement à l'évènement. Peut-être qu'on peut améliorer.

   Bernard


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Répondre à