OpenOffice.info

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

Siehe dort das erste [i]sticky[/i] Posting:
[url=http://de.openoffice.info/viewtopic.php?f=18&t=1553]Informationen zur StarBasic-Programmierung[/url]

Zum einen kannst Du Dir das [url=http://docs.sun.com/app/docs/doc/819-1326?a=loadurl]Handbuch[/url] runterladen und dort auf Seite 213 mal nachsehen oder aber [url=http://wiki.services.openoffice.org/wiki/Extensions_development_basic#X-Ray_toolurl]xray[/url] und das Software Development Kit (SDK) aus dem Internet runterladen und Installieren.

[b]Edit:[/b] Hätte ich fast vergessen. Hier eine sehr gute [url=http://www.dannenhoefer.de/faqstarbasic/index.htmlurl]Adresse[/url] rund um OO.o-Basic.

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?

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

Hi,

versuche es mal hiermit:
[code]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[/code]

Reicht das?

The Ghost

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

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]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[/code]

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