Das Steuerelement SSTab bzw. TabStrip läßt sich für die Auswahl von Teilprogrammen einsetzen. Die einzelnen Karten können wie ein normales Fenster Steuerlemente aller Art aufnehmen. (Visual Basic bietet mehrere Steuerelemente mit Kartenstapeln an, nicht alle können beliebige Steuerelemente aufnehmen!)
Die Auswahl erfolgt üblicherweise über das Anklicken der Zunge. Aber auch der programmgesteuerte Aufruf ist möglich.
Das Steuerelement gehörte meist zur "Professional"- Ausstatttung und kann beim Start eines neuen Projektes mit der Option "VB-Professional Steuerelemente" geladen werden. Alternativ kann es auch direkt nachgeladen werden: Im Menü "Projekt" die Option "Komponenten" wählen. Auf dem nun erscheinenden Auswahlfenster "Microsoft Tabbed Dialog Control 5.0 (SP2)" oder "Microsoft Windows Common Controls 6.0" ankreuzen und übernehmen.
Das Werkzeugfenster enthält nun den neuen Button. Wie üblich anklicken und auf dem Formular aufziehen. Im Folgenden stelle ich SSTab vor.
Der voreingestellte Name ist "SSTab1". Er kann wie üblich verändert werden. Die Einrichtung des Kartenstapels erfolgt unter der Option "Benutzerdefiniert" des Eigenschaftsfensters. Hier wird der Kartenstapel konfiguriert.
Unter "Tab Count" wird die Kartenzahl eingestellt, "Current Tab" dient dem Blättern auf dem Bearbeitungsfensetr selbst, mit "TabCaption" werden die Aufschriften der Zungen festgelegt. Weitere Einstellungen bitte selbst ausprobieren!
Der Aufruf einzelner Karten im Programm erfolgt mit:
| SSTab1.Tab = Nummer |
Die dritte Karte (die Zählung beginnt wie bei allen Steuerelementen intern mit 0!) würde also mit
| SSTab1.Tab = 2 |
angewählt.
Es folgt ein Beispiel, hier mit SSTab.Tab = 0:
Auf den Wechsel der Karte muß im Programm u.U. reagiert werden. Das Ereignis, das den Kartenwechsel signalisiert, ist das Click-Ereigneis. Es meldet im Falle von SSTAb automatisch zurück, von welcher Karte man kommt (in der Variablen, die hier unten PreviousTab heißt). Zu welcher Karte gewechselt wurde, muß erfragt werden. Die zuständige Variable ist Tab. Der folgende Code gibt in einem Label an, von welcher Karte zu welcher gewechselt wurde.
| Private Sub SSTab1_Click(PreviousTab As Integer) Label1.Caption = "von " & PreviousTab & "nach " & SSTab1.Tab End Sub |
