AW: tabstrip: Hilfetexte darstellen
13.02.2004 09:18:57
Dieter Klemke
Hallo Peter,
leider wird bei dem geposteten Programmcode der Teil, der vor der 1. Prozedur steht nicht in Courier dargestellt.
Die Deklaration des Feldes HilfeText steht im Code-Modul der UserForm ganz oben, direkt hinter "Option Explicit" in der jetzt angepassten Form
Private HilfeText(0 To 5) As String
Jetzt zu deiner Frage mit den Registern.
Du hast zwei Möglichkeiten:
1. Manuelle Anpassung der Register
Du klickst einmal auf ein Tab deines TabStrips und anschließend noch ein zweites Mal (keinen Doppelklick). Nach dem zweiten Klicken bekommt dein TabStrip einen dunkel schraffierten Rahmen. Jetzt kannst du mit der rechten Maustaste auf einen Tab klicken. In dem erscheinenden Kontext-Menü wählst du "Umbenennen...", um die Register-Beschriftung zu ändern. Über den Eintrag "Neue Seite" kannst du ein weiteres Tab hinzufügen, usw.
2. Anpassung per Programm (in der Initialisierungsprozedur zum UserForm)
Ich füge dir noch einmal den gesamten Programm-Code aus dem UserForm-Code-Modul bei.
Wie gesagt, die ersten beiden Zeilen gehören dazu, obwohl sie in anderer Schriftart dargestellt sind:
Option Explicit
Private HilfeText(0 To 5) As String
Private Sub cb_exithelp_Click()
Unload Me
End Sub
Private Sub ts_helpme_Change()
lbl_hilfetext.Caption = HilfeText(ts_helpme.Value)
End Sub
Private Sub UserForm_Initialize()
Dim i As Long
HilfeText(0) = "ABC"
HilfeText(1) = "blabla"
HilfeText(2) = "XYZ"
HilfeText(3) = "UVW"
HilfeText(4) = "genau"
HilfeText(5) = "sowieso"
With ts_helpme
' 4 neue Tab-Objekte hinzufügen
For i = 1 To 4
.Tabs.Add
Next i
' Überschriften aller Tab-Objekte setzen
For i = 0 To .Tabs.Count - 1
.Tabs(i).Caption = "Reg " & i + 1
Next i
' 1. Register auswählen
' (d.h. bei der Darstellung der UserForm ist Register 1 aktiviert)
.Value = 0
End With
End Sub
Falls du dich dazu entschließt, die Tabs manuell zu erzeugen und zu beschriften, dann entfallen natürlich die beiden Abschnitte "4 neue Tab-Objekte hinzufügen" und "Überschriften aller Tab-Objekte setzen".
Falls es noch Probleme gibt, melde dich bitte.
MfG
Dieter