OpenOffice.info

Code: Alles auswählen

Sub Formular_Optionsfeld

oForm=ThisComponent.drawpage.forms.getByIndex(0)

sOptionName="RadioGroup1"                                           'so heißt das Element

for i =0 to oForm.count-1                                                'alle Elemente des Formulars durchlaufen
	oFeld=oForm.getByIndex(i)
	
	if oFeld.name=sOptionName then                         'bis der Name des Elementes mit sOptionName übereinstimmt
		
		if oFeld.state=1 then                                 'das merkierte Element hat State=1
			iWert=oFeld.RefValue                    'RefValue liefert den hinterlegten Referenzwert
			sLabel=oFeld.Label                        'angezeigter Name der Option
		end if
		
	end if
next
REM **** und die weitere Verarbeitung
msgBox sLabel + ": "+iWert

end sub

Code: Alles auswählen

Sub Formular_Optionsfeld

oForm=ThisComponent.drawpage.forms.getByIndex(0)
oGruppe=oForm.getByName("GroupBox")               'das ist der Gruppierrahmen
for i =1 to oGruppe.parent.count-1                'die Elemente der Gruppe durchlaufen (ACHTUNG: GroupBox ist auch ein Element)
	oFeld=oForm.getByIndex(i)
	if oFeld.state=1 then                         'das merkierte Element hat State=1
		iWert=oFeld.RefValue                      'RefValue liefert den hinterlegten Referenzwert
		sLabel=oFeld.Label                        'Label ist die Benennung der Option
	end if
next

msgBox sLabel + ": "+iWert

end sub

Code: Alles auswählen

...
For n = 0 to oForm.Count - 1
   Radio_Gruppe = oForm.GetByIndex( n )
   If Radio_Gruppe.Name = "Gruppe1" Then 
       REM  ^^^^ hier wird es mehrere Ergebnisse geben
         If Radio_Gruppe.RefValue = 1 then
               msgBox "erstes Optionsfeld"
                tuwas....
         Elseif Radio_Gruppe.RefValue = 2 then
               msgbox "zweites Optionsfeld"
               tuwas....
          ..... und so weiter
         End If 

Code: Alles auswählen

Option Explicit

Global oDoc as Object
Global oView as Object
Global oForm as Object
Global anzeige as String


Sub formular_initialisieren
oDoc = ThisComponent
oView = oDoc.CurrentController
'nur ein Formular namens 'Standard' wird berücksichtigt
oForm = oDoc.DrawPage.Forms.GetByName("Standard")
'Optionen voreinstellen für beide Gruppen
option_setzen ("Option 1-1")
option_setzen ("Option 2-1")
End Sub

sub ergebnis_anzeigen

Dim Radio_Gruppe
Dim a , b AS String
Dim n As Integer
Dim wert As String

For n = 0 to oForm.Count - 1
   Radio_Gruppe = oForm.GetByIndex( n )
   If Radio_Gruppe.Name = "Gruppe1" Then
         If Radio_Gruppe.State = 0 then 
               wert = "FALSE"
            Else
               wert = "TRUE"
         End If
         a = a & "Optionsbutton '" & Radio_Gruppe.label & "' hat Wert:  " & wert & CHR(13)
      Else
         If Radio_Gruppe.Name = "Gruppe2" Then
            If Radio_Gruppe.State = 0 then 
                  wert = "FALSE"
               Else
                  wert = "TRUE"
            End If
            b = b & "Optionsbutton '" & Radio_Gruppe.label & "' hat Wert:  " & wert & CHR(13)
         End If
   End if
Next   

msgbox a & CHR(13) & b
End sub

Sub option_11_setzen
option_setzen ("Option 1-1")
End Sub

Sub option_12_setzen
option_setzen ("Option 1-2")
End Sub

Sub option_13_setzen
option_setzen ("Option 1-3")
End Sub

Sub option_21_setzen
option_setzen ("Option 2-1")
End Sub

Sub option_22_setzen
option_setzen ("Option 2-2")
End Sub

Sub option_23_setzen
option_setzen ("Option 2-3")
End Sub

Function option_setzen (anzeige)
Dim Radio_Gruppe
Dim n
For n = 0 to oForm.Count - 1
   Radio_Gruppe = oForm.GetByIndex( n )
   If Radio_Gruppe.label = anzeige Then
      Radio_Gruppe.State = 1
   End If
Next
End Function