gmane.comp.openoffice.devel.french

Philippe | 18 May 10:42

Attacher par code un gestionnaire d'événementà un bouton

Bonjour,

Je n'arrive pas à faire fonctionner le code suivant.
Pourriez vous m'aider?

Objectif: créer par code un bouton sur un formulaire et lui attacher un 
gestionnaire d'événement sur click.

Résultat: le formulaire est affiché avec le bouton.
Au click un message d'erreur: Propriété ou méthode introuvable

Merci d'avance

Philippe

Le code:

dim mdlg as object
' ======================================================
Sub Main
 ' obtenir une référence au formulaire Dialog1
 biblio=DialogLibraries.GetByName("Standard")
 oFrm=biblio.getByName("Dialog1")
 ' instancier le formulaire
 mdlg=createUNODialog(oFrm)
 ' ajouter un bouton et lui attacher un gestionnaire d'événement
 call AjoutBouton( mdlg ,"monBtn" ,3 , 3  ,1)
 ' afficher le formulaire
 mdlg.execute
 ' fermer le formulaire

(Continue reading)

headers

Jean-Michel | 18 Jun 13:37

Re: Attacher par code un gestionnaire d'événementà un bouton

Le 18 mai 2008 10:46, Philippe <phpons <at> gmail.com> a écrit :

> public sub NomBouton_actionperformed(e as object)
> 'on error resume next
>        msgbox "Salut :" & e.source.model.name
> end sub

fonctionne...

source : http://user.services.openoffice.org/fr/forum/viewtopic.php?f=8&t=8838

headers

Jean-Michel | 18 Jun 13:44

Re: Attacher par code un gestionnaire d'événementà un bouton

2008/6/18 Jean-Michel <jmchastagnier <at> gmail.com>:
> Le 18 mai 2008 10:46, Philippe <phpons <at> gmail.com> a écrit :
>
>> public sub NomBouton_actionperformed(e as object)
>> 'on error resume next
>>        msgbox "Salut :" & e.source.model.name
>> end sub
>
> fonctionne...

plus précisément : (quelques confusions dans le nom de ton bouton dans
ton code  )

**************************
dim mdlg as object
' ======================================================
Sub Main
 biblio=DialogLibraries.GetByName("Standard")
 oFrm=biblio.getByName("Dialog1")
 mdlg=createUNODialog(oFrm)
 call AjoutBouton( mdlg ,"monBtn" ,3 , 3  ,1)
 mdlg.execute
End Sub

Sub AjoutBouton( dialogue as object,nomBouton as string, positionX as
integer,positionY as integer)

 Dim oDialogModel As Object , oButtonModel As Object
 NomObj = nomBouton
 oDialogModel = dialogue.Model

(Continue reading)