Pages in Schleife ansprechen
Oberschlumpf
Ich habe eine Multipage mit 4 Pages.
Beim Start sind alle Pages Enabled = False.
Nun möchte ich mit einer Schleife nur bestimmte Pages aktivieren.
Dieser Code tuts noch nicht:
Sub sb234(ByVal anzcd As Integer)
Dim liIdx As Integer
For liIdx = 0 To anzcd - 1
ufAdd.Controls("Pages" & liIdx).Enabled = True
Next
ufAdd.mpCD.Value = 0
End Sub
Die fette Zeile bringt den Fehler: Das angegebene Objekt konnte nicht gefunden werden.
Ok, dachte ich, is klar, weil ja der Container für die Pages das Objekt MultiPage ist.
Aber auch dieser Code tut es nicht:
Sub sb234(ByVal anzcd As Integer)
Dim liIdx As Integer
For liIdx = 0 To anzcd - 1
ufAdd.Controls("mpCD.Pages" & liIdx).Enabled = True
Next
ufAdd.mpCD.Value = 0
End Sub
Hier wieder der gleiche Fehler.
Auch
ufAdd.mpCD.Controls("Pages" & liIdx).Enabled = True
tut es nicht, da MultiPage die Eigenschaft .Controls nicht kennt.
Habt ihr ne Lösung?
Danke schön.
Ciao
Thorsten
Anzeige