Objektvariable nicht belegt

[gianni]

Ich habe ein Problem:

In ein Dokument habe ich eine Schaltfläche eingefügt:


Der Name dieser Schaltfläche ist "JaNein":


Wenn ich die Schaltfläche betätige, kommt diese Fehlermeldung:


Was habe ich falsch gemacht?

Vielen Dank im voraus für eure Hilfe

Gianni

[gogo]

versuch's so:

Code: Alles auswählen

Sub Prova(oEvent)
print oEvent.Source.Model.Label
end sub

[mikele]

Hallo,

Was habe ich falsch gemacht?

Du gehst davon aus, dass Basic deine Schaltfläche als Objekt kennt und nach deinem Syntax angesprochen werden kann.

Code: Alles auswählen

Sub prova(oEvent)
	MsgBox "Prova!!!"
	Print oEvent.Source.Model.Label

Jetzt bekommt die Sub das ereignisauslösende Objekt als Parameter übergeben und kann genutzt werden.

edit: da war ich wohl zu langsam

[gianni]

Vielen, vielen Dank für euren Hinweis. Es ist wirklich sehr einfach.

In einem anderen Forum (https://forum.openoffice.org/en/forum/v ... 97#p406493) wurde mir diese Lösung empfohlen:

Code: Alles auswählen

oDP = ThisComponent.DrawPage
oForms = oDP.Forms
oF = oForms.getByIndex(0)
oJaNein = oF.getByName("JaNein")
print oJaNein.Label

Gibt es Vorteile und Nachteile für die eine und für die andere?

[gogo]

oEvent.Source.Model.Label ist kürzer

... es ist aber das selbe Objekt, nur wird anders darauf zugegriffen.