Opslaan en terug halen hoe het was

[m4dc0w344]

Hoi alle maal

Ik vroeg me af hoe ik dit moet aan pakken
Ik wil dat er textbox1t/m10 komt en dat je de text in alle textboxen dan opslaat IN het
Rogrammatje, en dat je het ook weer kan trug vraagen PREZIES hoe het was.

Ik heb echt heelemaal geen idee wat ik moet en hoe ik moet beginnen iemand die weet hoe ik het beste het kan doen ??

 

[The Mighty Atom]

Er zijn de laatste tijd veel vragen over dit onderwerp. Dit kan je doen met INI configuratie bestanden. Zie handleiding hier: http://www.helpmij.nl/forum/showthread.php/633161-Configuratiebestanden-VB.NET

Het kan eventueel ook zonder INI's:

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

        If File.Exists("TextBox tekst.txt") Then
            Dim Line() As String
            Using Reader As New StreamReader("TextBox tekst.txt")
                For Each objTextBox As TextBox In Panel1.Controls
                    Line = Reader.ReadLine.Split("|")
                    Dim prop As Reflection.PropertyInfo = objTextBox.GetType.GetProperty("Text")
                    If Not prop Is Nothing AndAlso prop.CanWrite Then
                        prop.SetValue(objTextBox, Line(0), Nothing)
                    End If
                Next
            End Using
        End If

    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles MyBase.FormClosing

        For Each objTextBox As TextBox In Panel1.Controls
            Using Writer As New StreamWriter("TextBox tekst.txt", True)
                Writer.WriteLine(objTextBox.Text)
            End Using
        Next

    End Sub

 

[m4dc0w344]

ty voor de tip