OpenOffice.info

Dim aOpt()     'Array, welches die Optionselemente aufnimmt
oForm.getGroupByName("opt", aOpt)

for i = LBound(aOpt) to UBound(aOpt)
  if aOpt(i) state then
     msgbox "Ausgewählt wurde: " & aOpt(i).label
  end if
next

Hey Steffan, *,

ich versuche mal ein bischen Klarheit in die Optionsbutton-Geschichte zu bringen. So ganz einfach ist das nicht und so ganz "logisch" auch noch nicht, eben weil die Behandlung unterschiedlich ist zwischen Formularen und Dialogen.
Also:
Damit intern eine Abhängigkeit der Optionsbuttons hergestellt wird, muss bei Formularen der [b]Name[/b] gleich sein. Das habt ihr ja schon erkannt.
Nun habt ihr eine Gruppe von Optionsfeldern (intern) und die wird auch so behandelt. Um an diese heranzukommen, nutzt ihr nun die Methode "getGroupByName()", wobei diese diverse Parameter erwartet (zur Not in API nachlesen).
in 2.x bekommt ihr die Gruppe dann so:
[code]Dim aOpt() 'Array, welches die Optionselemente aufnimmt
oForm.getGroupByName("opt", aOpt)[/code]
"opt" ist dabei der Name der Optionsfelder (alle gleich), der jetzt acuh Gruppenname ist. Der Array speichert nun alle Objekte, die dann wieder einzeln abgefragt werden können:
[code]for i = LBound(aOpt) to UBound(aOpt)
if aOpt(i) state then
msgbox "Ausgewählt wurde: " & aOpt(i).label
end if
next
[/code]
Ausgegeben wird jetzt die Beschriftung (label) der Option. Genauso kann man natürlich jetzt auch die einzelnen Optionsfelder identifizieren - über die Beschriftung. Oder, man nutzt den zusätzliche Eigenschaft "Tag", der man schon bei der Konstruktion einen Wert mitgeben kann - zur eindeutigen Identifizierung :-)
Über diese Konstrukte kannst du dann auch deine entsprechenden Optionen erledigen., das wäre die "saubere" Lösung.
Es geht aber natürlich auch, wie ihr es gelöst habt :-)

Gruss
Thomas

Hallo,

@Stephan:
Du hast schon recht. Wer lesen (suchen) kann , ist klar im Vorteil (mich eingeschlossen). Allerdings bleibt der Fakt, dass man bei einer Optiongroup irgendwie erwartet, dass es eine einfache Lösung gibt, die den ausgewählten Radiobutton wiedergibt (z.B. State), was unbegreiflicherweise nicht so ist. Sowohl deine als auch meine Lösung muten da schon etwas konstruiert an. Wobei ich meiner wohl auf Grund der Codelänge den Verzug geben würde, ist aber Ansichtssache!

@Mino:
Meine Makros "Beim Aulösen" markieren / demarkieren die entsprechenden Radiobuttons und setzen den Wert für die globale Variable iState (bei mir 1-4). Nach dem Klick wird diese Variable gepeichert! Jetzt kannst Du noch diverse sonstige Einstellungen an deinem Formular vornehmen und bei der Auswertung iState abfragen, dann weisst Du doch welcher Button gewählt ist. Wo ist das Problem? Die MsgBox-Zeile habe ich lediglich zur Demonstration reingenommen, die kannst Du natürlich löschen.

Steffan.

der erste Thread des Basic-Forums bietet da einige Auswahl und schon das obenstehende banale StarBasic-Programmierhandbuch bietet reichlich Info, auch für diesen Thread hier.
Oder die Suchfunkttion des Forums benutzen? Kann man sowas hier finden:
http://de.openoffice.info/viewtopic.php?t=457&highlight=optionsbutton

ich habe mir auch erlaubt die damals entstandene Beispieldatei rauszusuchen und online zu stellen:
http://www.prooo-box.org/%7Eschmidjo/download.php?datei=Option_auf_Formular-c.sxw


Gruß
Stephan

oOpt=ThisComponent.drawpage.forms.getbyName("Standard").getbyname(sName)

oOpt=ThisComponent.sheets.getByName("Tabelle1").drawpage.forms(0).getbyName(sName)

Hallo Steffan,

vielen Dank für die schnelle Antwort und die Mühe.
Mich tröstet, dass ich anscheinend eine intelligente Frage gestellt habe. :D

Nachdem ich die RadioBottons ebenfalls mit opt1 .... opt4 bezeichnet habe und die Zeile
[code]oOpt=ThisComponent.drawpage.forms.getbyName("Standard").getbyname(sName)[/code] etwas angepasst habe
[code]oOpt=ThisComponent.sheets.getByName("Tabelle1").drawpage.forms(0).getbyName(sName)[/code]
hat der Code prima funktioniert.

Allerdings war meine Frage nicht präzise genug formuliert.
Nachdem ich ein RadioBotton ausgwählt habe, möchte ich in dem Formular weitere Einstellungen vornehmen. Erst dann möchte ich eine Aktion über eine Befehlsschaltfläche ausführen.
Somit kann ich das Ereignis "Beim Auslösen" für die RadioBottons leider nicht nutzen.
Meine Gedanken sind aber folgende:
Um auf einem Formular in OpenOffice die Funktionalität der RadioBottons zu gewährleisten, müssen alle zusammengehörigen RadioBottons den gleichen Name haben.
"Tief im Inneren von OpenOffice" muß das Programm also wissen:
RadioBotton(1) ist z.Z ausgewählt = Status1. Wenn RadioBotton(2) ausgewählt wird, setze den Status von RadioBotton(1) auf 0 und den Status von RadioBotton(2) auf 1. Ähnlich wie in Deinem Beispiel.
Aber wie :?

Ich hoffe dass wir über das Forum noch einige Gedanken austauschen können, denn aus Büchern allein wird man wohl nicht schlau.

Viele Grüße
Mino

Global iState

Sub Change1
	call change(1)
end Sub
Sub Change2
	call change(2)
end Sub
Sub Change3
	call change(3)
end Sub
Sub Change4
	call change(4)
end Sub


Sub change(iOpt as integer)
	for i=1 to 4
		sName="opt" & cStr(i)
		oOpt=ThisComponent.drawpage.forms.getbyName("Standard").getbyname(sName)
'Form-Name ggf. anpassen
		if i<>iOpt then
			oOpt.state=0
		else
			oOpt.State=1
		endif
	next
	iState=iOpt
	msgbox iState
end sub

Hallo Mino,

wirklich ein total seltsames Verhalten, ich hab das ganze mal nachvollzogen und kann es so bestätigen. Damit ist die Funktionalität der RadioButtons in einem Formular ja völlig aufgehoben, die Verwendung funktioniert (meiner Meinung nach) nur wenn Du einen Umweg gehts:

- 4 Radiobuttons im Dokument mit unterschiedlich Namen (bei mir opt1, opt2, opt3 und opt4), nicht gruppiert!
[code]Global iState

Sub Change1
call change(1)
end Sub
Sub Change2
call change(2)
end Sub
Sub Change3
call change(3)
end Sub
Sub Change4
call change(4)
end Sub


Sub change(iOpt as integer)
for i=1 to 4
sName="opt" & cStr(i)
oOpt=ThisComponent.drawpage.forms.getbyName("Standard").getbyname(sName)
'Form-Name ggf. anpassen
if i<>iOpt then
oOpt.state=0
else
oOpt.State=1
endif
next
iState=iOpt
msgbox iState
end sub[/code]
Den einzelnen Radiobuttons die Ereignismakros (Bei Auslösen) zuweisen:
opt1 -> change1
opt2 -> change2 etc.
Die variable iState enthält dann die Nummer des jeweils gewählten Buttons.

Das ganze ist zwar etwas umständlich, aber sollte funktionieren.

Steffan.

Sub Auswahl
     oForm =  ThisComponent.sheets.getByName("Tabelle1").drawpage.forms(0)
	  MsgBox oForm.getByName("RadioButton").state
End Sub

Hallo zusammen,

ich habe in ein Formular vier RadioButton eingefügt.
Bei der Auswahl sollen natürlich unterschiedliche Aktionen ausgeführt werden. Damit die Funktionalität (nur ein aktiver Button) gewährleistet ist, müssen alle RadioButton den gleichen Namen haben. (Bei unterschiedlichen Namen kann ich alle RadioButton gleichzeitig auswählen)
Wie kann ich dann dem ausgewählten Button eine Aktion zuweisen?

[code]Sub Auswahl
oForm = ThisComponent.sheets.getByName("Tabelle1").drawpage.forms(0)
MsgBox oForm.getByName("RadioButton").state
End Sub[/code]

Bei dem Code wird nur der Status "1" angezeigt, wenn der erste RadioButton angewählt wurde. Bei der Auswahl der anderen Button, erhalte ich den Status "0"

In einem Dialog scheint das geschilderte Problem schon wieder anders auszusehen.

Ich hoffe, das mir jemand weiterhelfen kann.
Vielen Dank im voraus

Mino