aqui puedes guardar lo que escribas en un texbox y leer ese archivo tambien:
primero necesitas esto en un modulo
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Function LeeTXT(Archivo As String, Seccion As String, Clave As String)
Dim iRetLen As Integer
Dim sRet As String
sRet = Space(255)
iRetLen = GetPrivateProfileString(Seccion, Clave, "", sRet, Len(sRet), Archivo)
sRet = Left(sRet, iRetLen)
LeeINI = sRet
End Function
Sub GrabaTXT(Archivo As String, Seccion As String, Clave As String, Text As String)
WritePrivateProfileString Seccion, Clave, Text, Archivo
End Sub
ESTO EN EL FORMULARIO:
para guardar lo que este en el texbox lo haces asi :
GrabaTXT App.Path & "\archivo.txt", "Dato", "Clave", txtInformacion.text
donde archivo.txt es donde quedara la informacion, dato sera la cabeza de ese archivo y clave sera la linea de este y txtinformacion.text sera donde esta la informacion.
QUEDARIA ASI EN EL BLOCK DE NOTAS
[Dato]
Clave= "lo que estaba escrito en el textbox"
y para leer ese archivo lo haces asi:
txtInformacion.text = LeeTXT(App.Path & "\archivo.txt", "Dato", "Clave")
si quisieras guardar mas informacion de otros textbox debes cambiar la palabra clave por cualquiera que se te ocurra no necesariamente deben llamarse asi eso queda a tu gusto. si tienes dudas manda un mail a
xtolox@hotmail.com y te ayudare. espero que te haya quedado claro. saludos
PD: EL ARCHIVO SE CREA DONDE ESTA PU PROYECTO.
