loop til at læse textbox

Private Sub PrintOut()

        Dim myForm As Control = Me.Controls

        Dim ctl As Control

        For Each ctl In myForm.Controls

            If ctl.GetType().ToString().Equals("system.Windows.Forms.Textbox") Then

              Console.Writeline("Teksten: " CType(ctl, Textbox).Tekst
              'Det er så her du lægger det ind i dit array
            End If

        Next ctl

End Sub

Hvis det ikke er alle TextBokes tekst du vil læse så...

        Dim MyArray() As String
        Dim MyObject As Object
        Dim count As Integer = 0

        For Each MyObject In Me.Controls
            If MyObject.Tag = "tb" Then
                ReDim Preserve MyArray(count)
                MyArray(count) = MyObject.text
                count += 1
            End If
        Next

        MsgBox(Join(MyArray, Chr(13)))

Tekstboksenes Tag skal så selvføelig være "tb"

Og så er man ude i at have hard kodet noget ind i sin applikation - det er vel ikke særlig pænt ? Så kunne han jo lige så godt lave cut and paste på sine textboxe ?

kinggenesis sit svar fungerer, men jeg er enig med guide master at det måske ikke er lige pent som det han har lavet. Men guidmaster sit forslag giver fej på linje nummer 2:
Value of type 'system.windows.forms.control.controlCollection' can not be converted to 'system.windows.forms.control'.

Der er ikke noget der nødvendigvis er "hard kodet" i mit eksempel. TextBoxe og deres Tags kan defineres run time.

Men jeg har opfattet det som at TextBoxene er "hard kodet" og så er det ikke noget problem at deres Tag også er det.

Misforstår jeg noget?

Hmmm, jeg fant noget tilsvarende kinggenesis sit svar på http://msdn.microsoft.com/vbasic/using/columns/adventures/default.aspx?pull=/library/en-us/dnadvnet/html/vbnet05132003.asp

Så da burde det være godt nok til at få pointene. Så send et svar.

Cool. Men kunne du bruge det?