OpenOffice.info

Sub alle_Checkboxen()
	alle = fs_dialog.getControls
	k = ""
	For i = 0 To UBOUND(alle())
		'k = k & alle(i).ImplementationName & CHR(13)
		If Right(alle(i).ImplementationName, 18) = "UnoCheckBoxControl" Then
			k = k & alle(i).Model.Name & ": " & alle(i).Model.State & CHR(13)
		End If
	Next i
	Msgbox k
End Sub

[quote]Wie könnte die Kode in diesem speziellen Fall aussehen?[/quote]

z.B. (statt fs_dialog muss das Dialog-Object DEines Dialogs eingetragen werden):

[code]Sub alle_Checkboxen()
alle = fs_dialog.getControls
k = ""
For i = 0 To UBOUND(alle())
'k = k & alle(i).ImplementationName & CHR(13)
If Right(alle(i).ImplementationName, 18) = "UnoCheckBoxControl" Then
k = k & alle(i).Model.Name & ": " & alle(i).Model.State & CHR(13)
End If
Next i
Msgbox k
End Sub[/code]


Gruß
Stephan

Sub auswertung(rueckgabe)
	With rueckgabe.Source.Model
		Msgbox "Die Checkbox """ & .Name & """ hat den Status " & .State & "."
	End With
End Sub

[quote]Meine Frage ist: gibt es in OO eine Möglichkeit im Dialog jede Checkbox dynamisch auszuwerten?[/quote]

Ja.

Nur worauf zielt die Frage? Normalerweise würde man einfach dem Ereignis "Status geändert" der Checkbox ein Makro zuordnen und kann dann damit die Checkbox auswerten, z.B.:

[code]Sub auswertung(rueckgabe)
With rueckgabe.Source.Model
Msgbox "Die Checkbox """ & .Name & """ hat den Status " & .State & "."
End With
End Sub[/code]


Gruß
Stephan