AW: Alle Control-Eigenschaft per Schleife abfragen
06.06.2012 13:55:07
Martin
Hallo Ulf,
ja, du hast mich falsch verstanden. Ich generiere die Controls dynamisch per VBA:
Set ctrNewField = Me.Controls.Add("Forms.TextBox.1", "Test", True)
Nun wollte ich den Controls nicht jede Eigenschaft einzeln zuweisen müssen:
With ctrNewField
.Height = ctrField.Height
.Width = ctrField.Width
.Left = ctrField.Left
.Top = ctrField.Top + 24 * (iCtr - 1)
.SpecialEffect = ctrField.SpecialEffect
.TextAlign = ctrField.TextAlign
.Visible = ctrField.Visible
.BackStyle = ctrField.BackStyle
'usw.
Ich hatte einfach gehofft, dass ich die Eigenschaften irgendwie über eine einfache Schleife übertragen könnte, also in etwa so:
For Each Eigenschaft In ctrField.Properties
ctrNewField.Eigenschaft = ctrField.Eigenschaft
Next
Das Feld "ctrField" wäre also die bereits existierende Vorlage gewesen, von der alle Eigenschaften hätten übernommen werden sollen.
Leider klappt das nicht. Ist aber alles nicht so wild, nun frage ich die Eigenschaften eben doch "undynamisch" alle einzeln ab. Ist zwar etwas mehr Schreibarbeit, führt aber auch zum Ziel.
Viele Grüße
Martin