OpenOffice.info

[quote="Ironzwerg"]eine Fehlermeldung[/quote]
der inhalt der fehlermeldung ist manchmal hilfreich :roll:

Dank eines Geistesblitz habe ich es viel einfacher gelöst.
Habe eine neue Methode geschrieben, die nur die entsprechende Methode zum öffnen des Dialoges aufruft und einfach keinen Parameter übergibt, da die aufzurufende Methode nur einen optionalen Parameter besitzt.
Wenn ich den Button mit dem Ereignis "Beim Auslösen" direkt mit der Methode verbinde, kommt eine Fehlermeldung. Da scheint es noch ein Problem mit optionalen Parametern zu geben, oder so.

Sub CreatePropertyChangeListener

	FormButton = createUnoListener("FormButtonClick_", "com.sun.star.beans.XPropertyChangeListener")	

End Sub


Sub FormButtonClick_propertyChange(sProperty as String, oEvent() as Object)

	Dim oContext as Object
	Dim oModel as Object

	
	oContext =  oEvent(0).Source.getContext()
	oModel = oContext.getModel()
	
	MasterData.ShowSearchMasterDataDialog()

End Sub


Sub InitialVariables
...
...
...
	oDrawPage = oSheet.DrawPage
	oForm = oDrawPage.Forms.getByIndex(0)
	
	oCtrl = oForm.getByName("SearchMasterDataButton")
...
...
	oCtrl.addPropertyChangeListener("", FormButton)
End Sub

Hey zusammen,

ich habe ein kleines aber großes Problem und zwar weiß ich nicht, welches Event ein Button in einem Formular auslöst, wenn dieser angeklickt wurde.
Also ich habe ein Tabellenblatt und dort habe ich einen Button hinzugefügt und dieser soll per Makro etwas tun.
Ich muss es per Makro machen, da ich in der auszulösenden Methode eine andere Methode aufrufe, die einen Parameter benötigt.
Über die GUI kann ich ja keine Parameter übergeben, oder etwa doch?

Anfangs war ich beim ActionListener, aber als ich bei Xray nachschaute, war ich etwas verwundert, dass mir für den Button die addActionListener-Methode angezeigt wurde.
Muss ich mit dem PropertyChangeListener arbeiten?
Wenn ja, wie mache ich es, dass es auch ausgelöst wird?

So sieht das in etwa bei mir aus:

[code]Sub CreatePropertyChangeListener

FormButton = createUnoListener("FormButtonClick_", "com.sun.star.beans.XPropertyChangeListener")

End Sub


Sub FormButtonClick_propertyChange(sProperty as String, oEvent() as Object)

Dim oContext as Object
Dim oModel as Object


oContext = oEvent(0).Source.getContext()
oModel = oContext.getModel()

MasterData.ShowSearchMasterDataDialog()

End Sub


Sub InitialVariables
...
...
...
oDrawPage = oSheet.DrawPage
oForm = oDrawPage.Forms.getByIndex(0)

oCtrl = oForm.getByName("SearchMasterDataButton")
...
...
oCtrl.addPropertyChangeListener("", FormButton)
End Sub
[/code]

Ich hoffe ihr könnt mir helfen, bin schon am Verzweifeln, da ich nirgends brauchbare Infos bekommen habe.

Gruß

Ironzwerg