Aufrufen

Textbox Inhalte in eine Textdatei speichern und wieder aufrufen. Das geht so:

Ihr braucht:
2 Buttons (einen zum speichern und einen zum laden)
3 Textboxen

Ihr Klickt auf Button Nummer eins (Speichern) und fügt diesen Code ein:

Dim fileno As Integer
fileno = FreeFile()
FileOpen(fileno, "C:\dreamcodes.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 der Inhalt von Textbox Nummer eins in C:\dreamcodes.txt gespeichert. Nun klickt ihr auf Button Nummer zwei (laden) und fügt folgenden Code ein:

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

das wars!