Textboxen in einer Schleife auslesen

Question

Hallo,
ich habe in meinem Formula 6 Textboxen, die möchte ich gern in einer Schleife auslesen.
;-) titus

Answer 1

Hallo Titus55,

Man kann es mit der ControlCollection.GetEnumerator-Methode machen wie folgt:

Dim En As System.Collections.IEnumerator = Me.Controls.GetEnumerator()

While En.MoveNext()
    If En.Current.GetType.ToString = "System.Windows.Forms.TextBox" Then
        MsgBox(En.Current.Text)
    End If
End While

Grüße,

Robert

Answer 2

Hallo Titus, Robert,

etwas mehr nach Visual Basic ;-)) sähe die Schleife aus mit

        For Each childControl As Control In Me.Controls
            If TypeOf childControl Is TextBox Then
                Console.WriteLine("{0} => {1}", childControl.Name, childControl.Text)
            End If
        Next

@Titus:
Wobei das in den wenigsten Fällen notwendig sein sollte, da vieles durch die
Datenbindung und Windows Forms
wesentlich einfacher abgedeckt werden kann.

Gruß Elmar