option

[Luda]

hallo ich arbeite mit vb 6 und habe nun 4 option steuerelemente eingefügt.
und bei eienem klick soll die jeweilige aktiviert werden und die ander deaktiviert.
das funktioniert auch. es sind 4 option felder die die in 2 zeilen stehen. die in einer zeile stehen gehören zusamme und sollen sich ändern. wenn ich aber jetzt in die 2. klicke dann verschwindet die markierung der 1. zeile. woran liegt das


Private Sub optAbholJa_Click()
Me.optAbholNein.Value = False
abholung = "Ja"
End Sub

Private Sub optAbholNein_Click()
Me.optAbholJa.Value = False
abholung = "Nein"
End Sub

Private Sub optAbmelJa_Click()
Me.optAbmelNein.Value = False
abmeldung = "Ja"
End Sub

Private Sub optAbmelNein_Click()
Me.optAbmelJa.Value = False
abmeldung = "Nein"
End Sub

 

[Retlaw]

OptionButtons deaktivieren sich automatisch wenn ein anderer aus der eigenen Gruppe aktiviert wird.
Wenn du welche zu einer Gruppe zusammen fassen willst musst du ein "Container-Element" erzeugen und die OptionButtons da drin erstellen.
Als Contrainer kannst du z.B. den Frame, die PictureBox oder eben ein Form verwenden.

Also einen Frame erstellen und dann die OptionButtons nicht per Doppelklick auf das entsprechende Symbol erzeugen, sondern einmal klicken und mit der Maus in den Frame "zeichnen".

Wenn dich der Rahmen stört kannst du die BorderStyle-Eigenschaft des Frames auf 0 stellen, dann ist er nicht sichtbar.

Das Praktische an diesen Steuerelementen ist das du keine Zeile Code brauchst damit sich die anderen Optionsfelder in der gleichen Gruppe automatisch deaktivieren.

 

[Luda]

danke, das hat geklappt,