Joined: 25 Aug 2008
|Posted: Mon Sep 22, 2008 12:39 pm Post subject: actionPerformed method for button on impress page
I'm trying to implement an action performed method for a button. I found several simple examples but they all did not work. Only ones I got a reaction and never again after that which I don't know the reason for...
That's my code:
Dim oShape As Object
Dim aPosition as new com.sun.star.awt.Point
Dim aSize as new com.sun.star.awt.Size
'creating a CommandButton
button = thisComponent.createInstance("com.sun.star.form.component.CommandButton")
buttonEventListener = createUnoListener("buttonClicked_", "com.sun.star.awt.XEventListener")
'creating a ControlShapes for the button
oShape = thisComponent.createInstance("com.sun.star.drawing.ControlShape")
aPosition.x = 13000
aPosition.y = 18000
aSize.width = 1500
aSize.height = 1500
oShape.Position = aPosition
oShape.Size = aSize
oShape.Control = button
'creating a Form, adding the button to it
oForm = thisComponent.createInstance("com.sun.star.form.component.Form")
oForm.Name = "form_Button"
'adding Form and ControlShape to page
oPage = thisComponent.getCurrentController().getCurrentPage()
Sub buttonClicked_eventPerformed(event As Object)
I also found one example using XActionListener and button.addActionListener() but found out that CommandButton does not have a method addActionListener... Why does that work for someone else?
Why does that code not work for me? Did I forget something? Or is there a problem in adding the button to the page?