im Dialog: OptionButtonX deaktiviert OptionButtonA bis ?

[balu]

Hallo liebe Gemeinde,

in einem Dialog habe ich 2 Gruppen mit Optionbuttons, einmal mit 8 und einmal mit 4 Stück. Und in jeder Gruppe kann jeweils nur ein OptionButton ausgewählt werden, bis hierhin alles kein Problem.

Nun möchte ich aber, dass so bald ein OptionButton in einer Gruppe angeklickt wurde, das dort alle anderen auf .enable = False gesetzt werden. Das dumme ist nur, ich weiß nicht wie ich jetzt vorgehen soll. Denn die Holzhammer-Methode(*) würde wohl funktionieren, aber das taucht ja nun überhaupt nicht.

(*)Holzhammer-Methode

Code: Alles auswählen

Sub OptAus1bis7 <____________________________________wenn OptionButton8 angeklickt wurde
	For i = 1 to 7
	oDialog1.getControl("OptionButton" & i).enable = False
	next i
end Sub

Sub OptAus1bis6und8 <____________________________________wenn OptionButton7 angeklickt wurde
	For i = 1 to 6
	oDialog1.getControl("OptionButton" & i).enable = False
	next i
	oDialog1.getControl("OptionButton8").enable = False
end Sub

etc...

Nun Frage ich euch, liebe Leute:
- Wie kann ich mein Vorhaben am besten mit einer Sub erledigen, oder vor mir aus auch mit 2 Subs?
- Und wo müsste ich dann die dementsprechende Sub überhaupt anhängen, etwa an dem "Gruppierungsrahmen" oder wo?
- Könnt ihr mir bitte behilflich sein?

Und falls ihr einen Link zu einem ähnlichen Thread kennt, würde ich mich auch darüber freuen.

Für eure Bemühungen bedanke ich mich schon mal, und freue mich auf eure Antworten.


Gruß
balu

[Karolus]

Hallo
Vielleicht so:
Im Kopfbereich des Moduls: Dim oDialog1

Code: Alles auswählen

sub resetbuttons( )

with oDialog1.model
for i = 1 to 8
.getbyname("OptionButton" & i).enabled = .getbyname("OptionButton" & i).state
next
end with

end sub

Das müsstest du dann bei allen Buttons dem Ereignis "Status geändert" zuordnen.

Gruß Karo

[balu]

Moin Karo,

den Dialog habe ich schon seit beginn als Public deklariert.

Wegen der Sub war ich vom Grundgedanken her ja schon fast auf dem richtigem Weg, aber halt nur fast. Schade das man dem "Gruppierungsrahmen" in dieser Situation nichts anhängen kann, denn das fände ich irgendwie eleganter. Aber nun gut, gibt schlimmeres.

Karo, ich danker dir trotzdem recht Herzlich für deine Lösung, die natürlich fuktioniert .


Gruß
balu