Rubrik: Controls · Sonstiges | VB-Versionen: VB4, VB5, VB6 | 08.05.02 |
CheckBox als Option-Button nutzen Ein Beispiel, das zeigt, wie sich ein CheckBox-Steuerelementfeld als Option-Button einsetzen lässt. | ||
Autor: Arne | Bewertung: | Views: 19.107 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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.