✔ aktion für alle arrays?

[Benedikt]

hi!
Also ich check folgendes nicht:
ich habe ein Textfeld-Array.
(also Text(0) und Text(1))
und nen Button.
Was ich will:
Wenn ich auf den Button klicke steht in beiden Textfeldern "irrgendwas".
natürlich könnt ich jezt hergehen und folgendes machen:

Private Sub Command1_Click()
Text.Item(0).Text = "irrgendwas"
Text.Item(0).Text = "irrgendwas"
End Sub

aber gibt es keine möglichket alle arrays auf einmal anzusprechn?

Also irrgendwas wie:

Private Sub Command1_Click()
Text.Item(0 to 1).Text = "irrgendwas"
End Sub

oder irrgendsowas in der Richtung?

danke,

Benedikt

 

[Dario Linsky]

klar, das geht beispielsweise mit einer schleife:

For i = 0 To TextFelder.Count - 1
    TextFelder(i).Text = "irgendwas"
Next i

das ist zwar eher nacheinander als auf einmal, aber erfüllt den gleichen zweck.

 

[Benedikt]

re

danke! das hat mein Problem gelöst!

 

[Dario Linsky]

und falls es noch jemanden interessiert: das geht auch, wenn man die textfelder nicht einem steuerelementfeld hat. denn jedes formular hat eine eigene auflistung mit allen seinen steuerelementen - ob sichtbar oder nicht:

Dim c As Control
For Each c In Me.Controls
    If TypeOf c Is Text Then c.Text = "irgendwas"
Next c

... nur mal so nebenbei.