Boxinhalt

Wie ihr einen Textboxinhalt in eine Text Datei speichern und wieder auffufen könnt, wird euch hier nun gezeigt.

Ihr braucht:
2 Buttons (Speichern + Laden)
3 TextBoxen

Ihr macht einen Doppelklick auf Button 1 ("Speichern) und fügt folgenden code ein:

Dim fileno As Integer
fileno = FreeFile()
FileOpen(fileno, "C:\laden.txt", OpenMode.Output, OpenAccess.Write, OpenShare.LockWrite)
PrintLine(fileno, TextBox1.Text)
PrintLine(fileno, TextBox2.Text)
PrintLine(fileno, TextBox3.Text)
FileClose(fileno)
MsgBox("Daten Erfolgreich gespeichert")

damit wird TextBox1 in C:\laden.txt gespeichert.
nun macht ihr einen Doppelklick auf Button 2 ("laden") und fügt folgenden Text ein:

Dim fileno As Integer
fileno = FreeFile()
FileOpen(fileno, "C:\laden.txt", OpenMode.Input, OpenAccess.Read, OpenShare.LockRead)
Input(fileno, TextBox1.Text)
Input(fileno, TextBox2.Text)
Input(fileno, TextBox3.Text)
FileClose(fileno)

Das wars!