error en codigo para abrir cadenas separadas

[FresyMetal]

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:

Código (vb) [Seleccionar] Expandir


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] Expandir


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

[raul338]

Podrías especificar mas? La linea del error? Al parecer tienes funciones con el mismo nombre o Controles que tienen el mismo nombre que algunas funciones o alguna variante de estas

Ese código debería funcionar


La próxima pon el código entre etiquetas: [code=vb][/code]

[FresyMetal]

la linea que resalta cuando da el error es
Private Sub CargarText(Archivo As String)

sorry no sabia que code se usaba para postear

[raul338]

Fíjate que no tengas 2 veces una función llamada CargarText

[FresyMetal]

ya lo he revisado y no esta llamada dos veces de hecho esta en un boton y no le llamo desde ningun otro sitio.....
pero no entiendo el por que da fallo....

Raul338 Edit: Te edite el codigo, agregaba poco y nada (2 eventos vacios y un navigate)

[raul338]

En el código que pusiste no hay ninguna llamada a CargarText, limpia tu código y revisa rutina por rutina

[FresyMetal]

ah vale entiendo...
deberia llamarlo desde el boton poniendole cargartext()
pero estoy muy obtuso y me da ambiguedad...
como deberia llamarlo?

[raul338]

Prueba poniendo sinónimos tipo LoadText o agregando diferencias por ej "CargarText2"

[FresyMetal]

no te entiendo.... no llevo mucho en esto de visual si me puedes decir mas concreto...
graciass por la ayuda

[79137913]

HOLA!!!

Bueno, mas concreto de lo que te lo esta diciendo no puede, lo que raul supone es que tenes dos procedimientos con el mismo nombre...

Si queres una solucion postea el codigo completo de tu aplicacion.

Suerte.

GRACIAS POR LEER!!!