Hallo Community,
ich habe in einer tstdatei in den einzelnen Zeilen Texte abgespeichert. Anhand dieser Texte soll mein Programm nun Button erstellen. Jede Zeile der Textdatei bekommt dabei einen eigenen Button. Ich kann aber nicht voraus sagen wieviele Button das werden, da auch die Textdatei vom Programm generiert wird.
Soweit so gut.
Ich schaffe es aber nicht mehrere Button dynamisch zu erstellen. Die Methode, die ich kenne erstellt immer nur einen Button, und verändert diesen bei jedem While-Durchlauf.
Könnt Ihr mir helfen?
hierm mein Code:
ich habe in einer tstdatei in den einzelnen Zeilen Texte abgespeichert. Anhand dieser Texte soll mein Programm nun Button erstellen. Jede Zeile der Textdatei bekommt dabei einen eigenen Button. Ich kann aber nicht voraus sagen wieviele Button das werden, da auch die Textdatei vom Programm generiert wird.
Soweit so gut.
Ich schaffe es aber nicht mehrere Button dynamisch zu erstellen. Die Methode, die ich kenne erstellt immer nur einen Button, und verändert diesen bei jedem While-Durchlauf.
Könnt Ihr mir helfen?
hierm mein Code:
VB.NET-Quellcode
- Public Sub profil_laden_Orga_anzeigen()Dim strFilename As String = (Form1.Pfad.Text & "\1Benutzerdaten" & "\1" & Form1.ID2.Text & "\Profil\Orga.txt") 'das ist der Zielpfad zur Textdatei
- Dim strValue As String = "" 'Der gelesene Text
- Dim reader As StreamReader
- Dim button As New Button 'mein button
- If System.IO.File.Exists(strFilename) = True Then
- reader = New StreamReader(strFilename)While (reader.Peek > -1)
- strValue = reader.ReadLine
- Profil_anzeigen.pa_01.Controls.Add(button) 'hier wird der Button erzeugt (pa_01 ist flowlayoutlabel!)
- With button 'hier werden ihm die Eigenschaften gegeben
- .FlatAppearance.BorderSize = 0
- .FlatStyle = FlatStyle.Flat
- .ForeColor = Color.FromArgb(69, 69, 69)
- .TextAlign = ContentAlignment.MiddleCenter
- .AutoSize = True.AutoSizeMode = AutoSizeMode
- .GrowAndShrink.BackColor = Color.FromArgb(158, 192, 233)
- .Text = strValue
- .Name = "Orga" & reader.Peek
- .Margin = New Padding(8, 8, 3, 3)
- End With
- End While
- reader.Close()
- End If
- End Sub 'am Ende habe ich aber nur einen Button!