Labels und Textboxen in Schleife erstellen

[1989moni1989]

Hallo!
Kann mir jemand sagen, wie es geht aus einer .txt datei alle zeilen auszulesen und dann in einer spalte untereinander labels mit den verschiedenen zeilen zu erstellen. daneben soll jeweils ein leeres textfeld sein. Diese sollen möglichst noch namen mit zahlen haben, also lbleins, txteins usw, damit man sie ansprechen kann.
ich kann die labels vorher nicht schon erstellen, da ich nicht weiß wie viele zeilen in der .txt datei zu finden sein werden.

Mit freundlichen grpßen,
Monika

 

[1989moni1989]

okay, ich habs jetzt so:
Dim neutextbox As New TextBox
neutextbox.Name = "txt_eins"
neutextbox.Location.X(2)

aber ich weiß nicht wie man die location einstellen kann... weiß das jemand?

 

[engelmarkus]

Ich hab jetzt einfach mal was gebastelt, mal schauen, ob du das brauchen kannst.

Text-Datei:

Das hier
ist ein Test.

Code:

        Dim sr As New StreamReader("TextFile1.txt")
        Dim DateiZeilen As New List(Of String)

        While Not sr.EndOfStream
            DateiZeilen.Add(sr.ReadLine())
        End While

        For i = 1 To DateiZeilen.Count Step 1
            Me.Controls.Add(New Label() With {.Name = "Label" & i, .Location = New Point(20, i * 30), .Text = DateiZeilen.ElementAt(i - 1)})
            Me.Controls.Add(New TextBox() With {.Name = "TextBox" & i, .Location = New Point(150, i * 30)})
        Next

Die Eigenschaft "Location" hat den Datentyp "Point", was heißt, du musst ein neues Objekt von "Point" erzeugen und dem Konstruktor X- und Y-Wert übergeben...