Jede Checkbox in Dialog dynamisch auswerten

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Jede Checkbox in Dialog dynamisch auswerten

Beitrag von Stephan »

Meine Frage ist: gibt es in OO eine Möglichkeit im Dialog jede Checkbox dynamisch auszuwerten?
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: Alles auswählen

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

Gruß
Stephan
Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Jede Checkbox in Dialog dynamisch auswerten

Beitrag von Stephan »

Wie könnte die Kode in diesem speziellen Fall aussehen?
z.B. (statt fs_dialog muss das Dialog-Object DEines Dialogs eingetragen werden):

Code: Alles auswählen

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

Gruß
Stephan
Antworten