2008/6/18 Jean-Michel <[EMAIL PROTECTED]>:
> Le 18 mai 2008 10:46, Philippe <[EMAIL PROTECTED]> 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
oButtonModel =
oDialogModel.createInstance("com.sun.star.awt.UnoControlButtonModel" )
With oButtonModel
.Name = NomObj
.Label = "affecter"
.PushButtonType="STANDARD"
.Tabstop = True
.PositionX = positionX 'position horizontale
.PositionY = positionY 'position verticale
.Width = 27 'largeur
.Height = 14 'hauteur
End With
oDialogModel.insertByName( NomObj , oButtonModel )
oButtonControl = dialogue.getControl(NomObj)
cEventListenerName =NomObj
oActionListener = CreateUnoListener( cEventListenerName +
"_","com.sun.star.awt.XActionListener" )
oButtonControl.addActionListener( oActionListener )
End Sub
public sub monBtn_actionperformed(e as object)
msgbox "Salut :"& e.source.model.name
end sub
**************************
fonctionne
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
