Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - cubaweb

Páginas: [1]
1
Visual Basic 6 / archivos.dat
« en: Febrero 07, 2010, 08:35:12 pm »

hola saludos a todos.Bien el problema es el sgte tengo 2 formularios en uno de ellos tengo 3 textbox y un boton de comando.,(textbox) name ,lastname,phone, donde el boton de comando guarda los datos en un archivo dat, de la sgte forma :

Open "J:\Christiam\VB\Project\Project.dat" For Append As #1
Print #1, txtname.Text & ";" & txtlastname.Text & ";" & txtphone
Close #1

ahora tengo otro formulario aparte donde tengo un listview nada mas.
entonces quiero ver el archivo project.dat en el listview , en otras palabras deseo que cada vez que carge los textbox del primer formulario se me actualice la misma informacion en el segundo formulario del listview.

pd se que se puede hacer en el mismo formulario pero lo necesito por separado.
desde ya muchisimas gracias.
 codigo :

Private Sub cmdguardar_Click()
'Verifica si la caja esta vacia.'
If Len(Trim(txtname.Text)) = 0 Then
MsgBox ("please you must introduce the name")
'Hace que la caja reciba el enfoque'
txtname.SetFocus

ElseIf Len(Trim(txtlastname.Text)) = 0 Then
MsgBox ("please you must introduce the lastname")
txtlastname.SetFocus

ElseIf Len(Trim(txtphone.Text)) = 0 Then
MsgBox ("please you must introduce the phone")
txtphone.SetFocus

Else

Open "J:\Christiam\VB\Project\Project.dat" For Append As #1
Print #1, txtname.Text & ";" & txtlastname.Text & ";" & txtphone
Form3.ListView1 (aca me dice uso no valido de la propiedad)
Close #1

'Clear cajas de textos'
txtname.Text = ""
txtlastname.Text = ""
txtphone.Text = ""

txtname.SetFocus
MsgBox ("El nuevo contacto ha sido agregado")
End If
End Sub



mi mail christiam.ledo@hotmail.com

Páginas: [1]