Label auf multipage

Forumthread: Label auf multipage
5 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Label auf multipage

Label auf multipage

29.09.2005 12:52:30

Klaus

Moin allerseits,
ich habe mir ein paar UserForm(en) gebastelt, in denen jeweils aus Array Label erstellt werden. Nun wollte ich thematisch zusammenhängende UserForms zusammenfassen und alles neu in nur noch einer UserForm, und dort dann auf jeweils Page1,2,3 usw. einer MultiPage erstellen lassen.
Wie kann ich die Label statt auf der Userform auf z.B. Page1 erstellen lassen?
Die Syntax verschließt sich mir leider.
Vielen Dank für Eure Hilfe
Klaus

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Label auf multipage

29.09.2005 12:58:41

Matthias
AW: Label auf multipage

29.09.2005 13:26:00

Klaus
AW: Label auf multipage - OFFEN

29.09.2005 13:28:00

Matthias
AW: Label auf multipage - OFFEN

29.09.2005 15:34:35

Nepumuk
prima !

29.09.2005 15:55:25

Klaus

AW: Label auf multipage

29.09.2005 12:58:41

Matthias

Hallo Klaus,
du willst die Labels zur Laufzeit erstellen?
Gruß Matthias

AW: Label auf multipage

29.09.2005 13:26:00

Klaus

Hallo Matthias,
genau das will ich. In den einzelnen Userformen werden zumindest
die Label zur Laufzeit erstellt. Das wollte ich auch so belassen, weil klappt ausgezeichnet.

AW: Label auf multipage - OFFEN

29.09.2005 13:28:00

Matthias

Hallo Klaus,
Sorry, da muss ich passen.
Gruß Matthias

AW: Label auf multipage - OFFEN

29.09.2005 15:34:35

Nepumuk

Hallo Klaus,
das geht im Prinzip genau so wie auf einem Userform. Nur dass es ein Page - Objekt ist.
' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Private Sub UserForm_Activate()
    Dim objLabel As MSForms.Label
    Set objLabel = Me.MultiPage1.Pages(0).Controls.Add("Forms.Label.1")
    With objLabel
        .BackColor = 255
        .Caption = "NEU"
        .Top = Me.MultiPage1.Top + 20
        .Left = Me.MultiPage1.Left + 10
        .Height = 18
        .Width = 72
        .TextAlign = fmTextAlignCenter
        .Font.Size = 14
        .Font.Bold = True
    End With
    Set objLabel = Nothing
End Sub

Gruß
Nepumuk