Es ist schon eigenartig. Da gibt es die Enabled-Eigenschaft für so gut wie alle Steuerelemente, aber nicht für die einzelnen Registerkarten eines TabStrip-Steuerelements. Zwar besitzt das TabStrip-Control die Enabled-Eigenschaft, diese bezieht sich aber immer auf das gesamte Steuerelement. Wie Sie den Zugriff auf einzelne Registerkarten dennoch "sperren", zeigt Ihnen der nachfolgende Tipp. ' aktuelle Registerkarte Dim objTab As Object ' Hilfsvariable Dim tEnabled As Boolean ' Status der Registerkarten Dim iStateOfTab() As Boolean Private Sub Form_Load() ' Anzahl Registerkarten Dim nCount As Integer nCount = TabStrip1.Tabs.Count ' Hier legen Sie fest, welche Registerkarten ' deaktiviert sein sollen ReDim iStateOfTab(nCount) iStateOfTab(1) = True iStateOfTab(2) = True iStateOfTab(3) = False ' Deaktiviert iStateOfTab(4) = True ... ' aktuelle Registerkarte tEnabled = True Set objTab = TabStrip1.Tabs(1) TabStrip1.SelectedItem = objTab End Sub Private Sub TabStrip1_Click() If Not tEnabled Then tEnabled = True Else ' Prüfen, ob "gesperrt" If iStateOfTab(TabStrip1.SelectedItem.Index) = False Then tEnabled = False Set TabStrip1.SelectedItem = objTab Else Set objTab = TabStrip1.SelectedItem End If End If End Sub Dieser Tipp wurde bereits 17.634 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
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. |
sevISDN 1.0 Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. sevGraph (VB/VBA) Grafische Auswertungen Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! |
||||||||||||||||
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. |