Hola buenos dias, estoy haciendo un form en el que guardo varios textbox en un fichero y tengo un problema a la hora de cargarlos
les paso el codigo por si pueden ver el fallo
para cargar desde el fichero:
PARA GUARDAR EN EL FICHERO:
Espero me puedan ayudar por que al compilar dice:
El miembro ya existe es un modulo de objeto del que proviene este modulo de objeto
les paso el codigo por si pueden ver el fallo
para cargar desde el fichero:
Código (vb) [Seleccionar]
Private Sub CargarText(Archivo As String)
Dim Todo As String, Partes() As String, Fichero As Integer
' Cargamos todo el contenido del Archivo indicado
Fichero = FreeFile
Open Archivo For Input As #Fichero
Line Input #Fichero, Todo
Close #Fichero
' Dividimos en Partes los datos cargados
Partes = Split(Todo, "<<")
' Colocamos en cada Text sus datos, tantos Text como Partes
titulo.Text = Partes(0)
Descripcion.Text = Partes(1)
nombre.Text = Partes(2)
mail.Text = Partes(3)
tel1.Text = Partes(4)
tel2.Text = Partes(5)
cuando.Text = Partes(6)
cuando1.Text = Partes(7)
duracion.Text = Partes(8)
End Sub
PARA GUARDAR EN EL FICHERO:
Código (vb) [Seleccionar]
Private Sub guardar_Click()
Dim foo As Integer
foo = FreeFile
Open "C:\Archivo.txt" For Output As #foo
Print #foo, titulo.Text; "<<"; Descripcion.Text; "<<"; nombre.Text; "<<"; mail.Text; "<<"; tel1.Text; "<<"; tel2.Text; "<<"; cuando.Text; "<<"; cuando1.Text; "<<"; duracion.Text
Close #foo
End Sub
Espero me puedan ayudar por que al compilar dice:
El miembro ya existe es un modulo de objeto del que proviene este modulo de objeto