Seite 1 von 1

Re: Jede Checkbox in Dialog dynamisch auswerten

Verfasst: Do, 06.06.2019 19:42
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

Re: Jede Checkbox in Dialog dynamisch auswerten

Verfasst: Do, 06.06.2019 23:24
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