Visual Basic - Alguien que sepa de vb....

Life is soft - evento anual de software empresarial
 
Vista:

Alguien que sepa de vb....

Publicado por Abel (23 intervenciones) el 25/06/2004 13:08:49
Necesito que alguien me ayude. Yo tengo un pequeño programa y en el hay dos text boxes. Necesito el código para que cuando yo ponga guardar se guarde el texto que hay escrito en ambos textboxes y luego poder abrirlo desde el mismo programa... como lo hago? cual es el código?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Alguien que sepa de vb....

Publicado por Cecilia Colalongo (3116 intervenciones) el 25/06/2004 13:14:02
Fijate con esto:

Text1.Text=FileToString("c:\demo.txt")

Public Function FileToString(FileName As String) As String
Dim hlngFile As Long, strFile As String

hlngFile = FreeFile

Open FileName For Binary Access Read As hlngFile

FileToString = vbNullString

strFile = String(FileLen(FileName), " ")

Get hlngFile, , strFile

Close hlngFile

FileToString = strFile

End Function

Y para el proceso inverso:

StringToFile Text1.Text,"c:\demo.txt"

Public Function StringToFile(StringText As String, FileName As String) As Long
Dim hlngFile As Long

hlngFile = FreeFile

Open FileName For Binary Access Write As hlngFile

Put hlngFile, , StringText

Close hlngFile

StringToFile = FileLen(FileName)

End Function

Las funciones puedes colocarlas en un módulo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar