CheckBox als Option-Button nutzen Ein Beispiel, das zeigt, wie sich ein CheckBox-Steuerelementfeld als Option-Button einsetzen lässt.
Autor:   Arne	Bewertung:     [ Jetzt bewerten ]	Views:  11.045
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 33 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 2.6 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Sicherlich gibt es Personen (z.B. mich), die nicht immer mit dem Aussehen einens Option-Buttons zufrieden sind. Da es VB nicht möglich ist einen Option-Button wie eine Check-Box aussehen zu lassen muss man sich eben mit einer Check-Box begnügen.

Umsetzung:
Fügen Sie in Ihr Projekt die benötigte Anzahl von Check-Boxen ein.

Wichtig: Geben Sie jeder CheckBox den gleichen Namen (z.B. chkOption), und erstellen auf diese Weise ein Steuerelementfeld. Die erste CheckBox hat hierbei den Index-Wert 0, die letzte CheckBox demnach Anzahl - 1.

Ziel:
Egal, welche CheckBox gerade ausgewählt wird - es darf immer nur eine der CheckBox mit einem Häkchen versehen sein - eben genau so, wie bei Verwendung der Option-Buttons.

Und das geht so:

' CheckBox als Option-Button
Private Sub chkOption_Click(Index As Integer)
  Dim i As Integer
 
  If chkOption(Index).Value = 1 Then
    ' Häkchen aus allen anderen CheckBoxen entfernen
    For i = 0 To chkOption.UBound
      If Index <> i Then
        chkOption(i).Value = 0
      End If
    Next i
  End If
End Sub

Ein weiterer Vorteil, CheckBoxen anstelle von OptionButtons einzusetzen ist, daß man eine Gruppe zusammengehörender Optionen nicht in ein Frame- oder Container-Control plazieren muss.