(1) Einstellungen in der UserForm

'Eine neue Seite hinzufügen

 

● Rechtsklick auf die TabLeiste● [Neue Seite]


'Anordnung der Pages / Seitenreihenfolge  ändern

 

● Rechtsklick auf die TabLeiste

● [Verschieben]


(2) Die wichtigsten Einstellungen für die MultiPage

Private Sub UserForm_Initialize()

 

'Wieviele Pages besitzt die MultiPage?

MsgBox "Anzahl an Pages: " & MultiPage1.Pages.Count

 

'Aktuelle Page ausgeben

MsgBox "Die aktuelle Page lautet: " & MultiPage1.Value


'Startseite festlegen (hier 1. Seite als Startseite)

MultiPage1.Value = 0

 

'Style festlegen (Aussehen der Tabs)

MultiPage1.Style = fmTabStyleButtons

MultiPage1.Style = fmTabStyleTabs


'Position der Tabs festlegen

MultiPage1.TabOrientation = fmTabOrientationLeft

MultiPage1.TabOrientation = fmTabOrientationRight

MultiPage1.TabOrientation = fmTabOrientationTop

MultiPage1.TabOrientation = fmTabOrientationBottom

 

'Höhe und Breite der Tabs / Buttons festlegen

MultiPage1.TabFixedWidth = 50         (Hinweis: der Wert "0" sorgt dafür, dass die Breite automatisch an die Caption angepasst wird)

 

MultiPage1.TabFixedHeight = 20       (Hinweis: der Wert "0" sorgt dafür, dass die Höhe automatisch an die Caption angepasst wird)

 

'Tabs / Buttons ausblenden

MultiPage1.Style = fmTabStyleNone

 

End Sub

 


(3) Eigene Navigation über CommandButtons erstellen

Private Sub CommandButton1_Click()

 

'Zum Anfang springen "<<"

MultiPage1.Value = 0

 

End Sub


Private Sub CommandButton4_Click()

 

'Zum Ende springen ">>"

MultiPage1.Value = MultiPage1.Pages.Count - 1

 

End Sub


Private Sub CommandButton2_Click()

 

'Eine Page nach links gehen "<"

If MultiPage1.Value > 0 Then

MultiPage1.Value = MultiPage1.Value - 1

Else

'nichts passiert

End if

 

End Sub

Private Sub CommandButton3_Click()

 

'Eine Page nach rechts gehen ">"

If MultiPage1.Value < (MultiPage1.Pages.Count - 1) Then

MultiPage1.Value = MultiPage1.Value + 1

Else

'nichts passiert

End if

 

End Sub




Auf einen Blick - Alle Folgen der VideoReihe!

Du hast ein Thema das noch nicht behandelt wurde? Lass es mich wissen :)


Jetzt abonnieren & kein Video

mehr verpassen!

Meine Arbeit unterstützen

Meine Empfehlungen

(Bücher und mehr)