CheckBox als Option-Button nutzen II Ein Beispiel, das zeigt, wie sich ein CheckBox-Steuerelementfeld als Option-Button einsetzen lässt, wobei mind. eine Option ausgewählt sein muss.
Autor:   Eremit	Bewertung:     [ Jetzt bewerten ]	Views:  1.629
ohne Homepage	System:  Vista, Win7, Win8, Win10	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 1 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 5.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Nachfolgender Tipp ist eine Erweiterung zu  CheckBox als Option-Button nutzen. Dieser wurde um die Funktion erweitert, dass der Benutzer gezwungen wird, mindestens EINE Option auszuwählen. Wird mehrmals auf die selbe CheckBox geklickt, bleibt diese aktiviert bzw. auf Value = 1. Es wird also sichergestellt, dass die bereits ausgewählte Option nur durch Klick auf eine andere Option (CheckBox) abgewählt bzw. deaktiviert werden kann.

Option Explicit
 
Dim PrevChkOpt As Byte  ' ... As Byte ist Absicht um Speicherplatz zu sparen
                        '     bzw. kam ich bisher noch nie über 255 CheckBoxen  ;-)

Private Sub Form_Load()
  ' legt fest welche Checkbox per default angewählt sein soll
  chkOption(2).Value = 1 
End Sub

' CheckBox als Option-Button
Private Sub chkOption_Click(Index As Integer)
  Dim bt As Byte
 
  If chkOption(Index).Value = 1 Then
    ' Gerade eben bzw. zuletzt angeklickte CheckBox notieren
    PrevChkOpt = Index
 
    ' Häkchen aus allen anderen CheckBoxen entfernen
    For bt = 0 To chkOption.UBound
      If Index <> bt Then
        chkOption(bt).Value = 0
      End If
    Next bt
  Else
    ' Im Falle eines DoppelKlicks oder mehrfachen Klicks, value = 1 erzwingen !
    If PrevChkOpt = Index Then chkOption(Index).Value = 1  
  End If
End Sub