Non ho ancora capito bene,... ...ma tenterò
Cosa significa "Chiudere"?
Nel mio esempi, serve una Textbox Text1 con la prop. multiline=true
e scrollbars=Both.
Anche command1 (Apri) e command2 (Salva).
codice:
Private Sub Command1_Click()
Dim Linea As String
'C:\prova.txt è il nome del file
Open "C:\prova.txt" For Input As #1
'Finchè non arriva alla fine...
While Not EOF(1)
'Prende una linea nella variabile linea
Line Input #1, Linea
'E la aggiunge alla textnox, con un segno di a capo.
Text1 = Text1 & Linea & vbCrLf
'Prossima linea...
Wend
'Chiude il file
Close #1
End Sub
Private Sub Command2_Click()
'Apre il file "Prova.txt"
Open "C:\prova.txt" For Binary As #1
'Ci scrive il contenuto della textbox
Put #1, 1, Text1.Text
'Chiude il file
Close #1
End Sub