Steuerelemente in Multipage
26.04.2005 21:53:10
Stan
Ich habe da ein kleines Problem und finde keine Lösung...
in dem fogenden Programm habe ich eine multipage dynamisch erzeugt. in jedem Page sollte Steuerelemente eingesetzt werden (Labels und textbox) nun schaffe ich nicht die Steuerelemente in jeder Seite einzusetzen, es gelingt nur in der ersten Seite. Ich habe mit "ctl2 = ctl.Page(j).Controls.Add("Forms.label.1", True)" versucht aber geht auch nicht !!!! das ganze soll dynamisch bleiben da die Seitenanzahl variable ist.
Wäre schon ween ich ein paar Tipps hätte
Danke
Stan
PS AnzWerke und NameWerke sind public deklariert worden
Private Sub UserForm_Initialize()
Dim i, j, k, l As Integer
Dim ctl As Control, ctl2 As Control
Dim Anlage
Anlage = Array(" Spaneranlage", " Hobelanlage", " Keilzinkanlage", " Presse", " Trockenkammer")
Set ctl = Me.Controls.Add("forms.label.1", "Nameeingeben", True)
With ctl
.Name = "Multipage1"
.Left = 110
.Top = 10
.Width = 130
.Height = 35
.Caption = "Bitte geben Sie die Anzahl der Anlagen "
.BackColor = &H80000000
.ForeColor = &H80&
.TextAlign = 2
.SpecialEffect = 1
.Font.Bold = True
.Font.Size = 12
End With
Set ctl = Me.Controls.Add("forms.Multipage.1", True)
If AnzWerke >= 3 Then
For l = 1 To AnzWerke - 2
'Debug.Print l
ctl.Pages.Add ("Page" & ctl.Pages.Count + 1)
Next l
End If
For j = 0 To AnzWerke - 1
With ctl
.Pages(j).Caption = NameWerke(j)
.Left = 10
.Top = 80
.Width = 350
.Height = 250
.Font.Size = 11
.ForeColor = &H80000012
.Visible = True
k = 0
'For Each Page In ctl
For i = 0 To 4
Set ctl2 = ctl.Page1.Controls.Add("Forms.label.1", True)
With ctl2
.Left = 50
.Top = 20 + k
.Height = 20
.Width = 120
.Caption = Anlage(i)
.Font.Size = 12
.BackColor = &H80&
.ForeColor = &HFFFFFF
.TextAlign = 1
.SpecialEffect = 1
End With
k = k + 30
'Set ctl2 = Nothing
Next i
'Next Page
k = 0
For i = 0 To 4
Set ctl2 = ctl.Page1.Controls.Add("Forms.textbox.1", True)
With ctl2
.Left = 180
.Top = 20 + k
.Height = 20
.Width = 80
.Font.Size = 12
End With
k = k + 30
'Set ctl2 = Nothing
Next i
End With
Next j
End Sub