Når brugeren har skrevet en tekst i et antal textbox'e, og programmet ved afslutning gemmer teksten vha. nedenstående metode, hvordan hentes teksten så (ved programmets opstart) tilbage til hver enkelt textbox?
Open "filnavn.txt" For Output As #1
Print #1, TextBox1.Text
Print #1, TextBox2.Text
Print #1, TextBox3.Text
Close #1
På forhånd tak - Simon
JT
Private Sub loadFromFile()
Dim LineText As String
Open "filnavn.txt" For Input As #1
Line Input #1, LineText
TextBox1.Text = LineText
Line Input #1, LineText
TextBox2.Text = LineText
Line Input #1, LineText
Textbox3.Text = LineText
Close #1
I tilfælde af du ikke kan huske hvor mange textboxe du har
Private Sub SaveToFile()
Dim index As Single
Dim control As Variant
Open "filnavn.txt" For Output As #1
For Each control In Textbox
Print #1, control.Text
Next
Close #1
End Sub
Private Sub loadFromFile()
Dim LineText As String
Dim index As Single
Dim control As Variant
Open "filnavn.txt" For Input As #1
For Each control In Textbox
Line Input #1, LineText
control.Text = LineText
Next
Close #1
Det kræver selfølgelig også at de har et index
End Sub
Hvis du har mange textboxe så lav et index så spare du en masse kode og dit program bliver mere overskueligt
Private Sub SaveToFile()
Dim index As Single
Open "filnavn.txt" For Output As #1
For index = 1 To 3 ' eller fra 0 to 2
Print #1, Textbox(index).Text
Next index
Close #1
End Sub
Private Sub loadFromFile()
Dim LineText As String
Dim index As Single
Open "filnavn.txt" For Input As #1
For index = 1 To 3 ' eller fra 0 to 2
Line Input #1, LineText
Textbox(index).Text = LineText
Next index
Close #1
End Sub
[Redigeret d. 23/07-02 19:16:58 af Jan Toft][Redigeret d. 23/07-02 19:41:12 af Jan Toft]