vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net
Rubrik: Controls · Sonstiges   |   VB-Versionen: VB625.06.18
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:   EremitBewertung:  Views:  468 
ohne HomepageSystem:  Vista, Win7, Win8, Win10 Beispielprojekt auf CD 

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



Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
 
Copyright ©2000-2018 vb@rchiv Dieter OtterAlle Rechte vorbehalten.


Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.