Auf Werte eines Buttons zugreifen

[TheSHEEEP]

Heyho,

Ich hoffe mal, das wurde nicht schon einmal gefragt (Ich hab' zumindest bei der Suche nichts gefunden).
Ich bin völliger Neuling, was Excel, Calc, VBA und OO-Basic angeht, daher auch die Anfängerfrage

Wie kann ich in einem Makro auf einen Button zugreifen, um z.B. dessen Caption zu verändern oder die Caption erstmal abzufragen, etc.?

Hier mal ein Beispiel

Code: Alles auswählen

Function Test()

Dim CalcDokument as Object
Dim Tabellenblatt as Object
Dim Zelle as Object
Dim Zelle2 as Object

CalcDokument = ThisComponent
Tabellenblatt = CalcDokument.Sheets(0)
Zelle = Tabellenblatt.getCellByPosition( 3, 0 )
Zelle2 = Tabellenblatt.getCellByPosition( 2, 4 )

If Zelle2.Value < 24 Then
help = Zelle.Value 
Zelle.Value = help + 5
End If

End Function

Ich würde hier ganz gerne die If-Bedingung so ändern, dass abgefragt wird, ob ein Button eine bestimmte Caption hat...

[ghostwriter]

Hi,

versuche es mal hiermit:

Code: Alles auswählen

Sub Button
	oForms = ThisComponent.CurrentController.ActiveSheet.DrawPage.Forms
	vForm=oForms.getByIndex(0)
	MyButton = vForm.getByName("PushButton")
	ReadLabel=mybutton.label 'Label auslesen
	if ReadLabel = "Lesen" Then 'wenn Label = Lesen
	MyButton.Label = "Schreiben" 'dann Label Schreiben
	Else 
	MyButton.Label = "Lesen" 'sonst Label schreiben
end if
End Sub

Reicht das?

The Ghost

[TheSHEEEP]

Hab das etwas umgeändert, so wie ichs gebraucht hab, und jetzt klappts.
Danke dir ^^

Noch eine kleine Frage:
Gibt es irgendwo im Inet eine Referenz zu den ganzen Buttoneigenschaften?

[ghostwriter]

Zum einen kannst Du Dir das Handbuch runterladen und dort auf Seite 213 mal nachsehen oder aber xray und das Software Development Kit (SDK) aus dem Internet runterladen und Installieren.

Edit: Hätte ich fast vergessen. Hier eine sehr gute Adresse rund um OO.o-Basic.

[komma4]

Basic-Fragen sind besser im Forum OOo Basic und Java augehoben.

Siehe dort das erste sticky Posting:
Informationen zur StarBasic-Programmierung