Cita:
Iniciado por triump 
Gracias Avellaneda todo perfecto pero ahora queria hacer lo que yo creo que sera muy dificil pero que es muy importante.
Yo voy escribiendo texto en cada formulario y creando nuevos para escribir tambien hast ahi me ha salido gracias a tu ayuda pero ahora queria que ese texto no se perdiera cuando el pc se reinicia o se apaga.
Para eso puedes guardar lo que se ha escrito en un archivo de texto...
Con el ejemplo que puso el compañero
Avellaneda podrías hacer así:
Código:
Private TextFile As String
Código:
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim texto As String texto = Chr(KeyAscii)
' si el texto llega al margen derecho del form, nueva línea
If Me.CurrentX >= Me.ScaleWidth - 90 Then
Me.Print Chr(13)
TextFile = TextFile & Chr(13)
End If
Me.Print texto
TextFile = TextFile & Texto
End Sub
Código:
Private Sub Form_Unload(Cancel As Integer)
Close
Open "Texto.txt" For Output As #1
Print #1, TextFile;
Close
End Sub
Código:
Private Sub Form_Load()
Close
Open "Texto.txt" For Binary As #1
TextFile = Input(LOF(1), 1)
Close
Me.Print TextFile
End Sub
Espero que te ayude...
