Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1012to1016
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Controls ändern, die zur Laufzeit erstellt wurden

Controls ändern, die zur Laufzeit erstellt wurden
06.10.2008 00:03:08
OliverBreith
Hallo Spezialisten,
ich brauche mal eure Hilfe
ich habe über eine Scheife mehrere TextBoxen zur Laufzeit zu einer Userform hinzugefügt
Befehl:
for i = 1 to 10
Set Mycmd = Frame1.Controls.Add("Forms.Textbox.1", "usr_txtSamplename" & i, Visible)
next
will ich eine einzelne Textbox ansprechen, so kann ich das mit
Frame1!usr_txtSamplename1.Width = 10 tun
Wie bekomme ich aber das ganze in eine Scheife
for i = 1 to 10
Frame1!usr_txtSamplename&i.Width = 10
next
klappt nicht
auch solche Konstrukte funktionieren nicht
Frame1!("usr_txtSamplename" + CStr(i)).Width = 10
Vielen Dank im Vorraus
Oliver Breith

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Controls ändern, die zur Laufzeit erstellt wurden
06.10.2008 01:32:23
Daniel
Hi
du könntest die neu erstellten Textboxen in einem COLLECTION-Objekt sammeln.
falls dann alle abgearbeitet werden müssen, könntest du dies mit einer FOR EACH ... IN .. NEXT-Schleife erledigen.
das sieht als Code dann etwa so aus:

Dim Mycmd
Dim i As Long
Dim NeueTextboxen As New Collection
For i = 1 To 10
Set Mycmd = Frame1.Controls.Add("Forms.Textbox.1", "usr_txtSamplename" & i, Visible)
NeueTextboxen.Add Mycmd
Next
For Each Mycmd In NeueTextboxen
Mycmd.Text = ""
Next


Gruß, Daniel

AW: Controls ändern, die zur Laufzeit erstellt wurden
06.10.2008 09:12:00
Kawensmann
Hallo,
so müsste es gehen:
Frame1.Controls("usr_txtSamplename" & i)
Gruß
Kawensmann
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige