vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2018
 
zurück
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:     [ Jetzt bewerten ]Views:  412 
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

Dieser Tipp wurde bereits 412 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


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.
 
   

Druckansicht Druckansicht Copyright ©2000-2018 vb@rchiv Dieter Otter
Alle 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.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel