Visual Basic - record

Life is soft - evento anual de software empresarial
   
Vista:

record

Publicado por christiam (5 intervenciones) el 10/02/2010 02:10:28
tengo 2 formularios en en form1 cargo datos en textbox y en el form2 recibo en el listview la carga del primer form1.

pero necesito que cuando se carge el form2 se queden guardados los datos del form1 me explico mejor

comn este codigo :

Private Sub cmdguardar_Click()
Dim subelemento As ListItem

'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
Close #1

Set subelemento = Form3.ListView1.ListItems.Add(, , txtname.Text)
subelemento.SubItems(1) = txtlastname.Text
subelemento.SubItems(2) = txtphone.Text

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

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

lo que pasa con este codigo es que cdo entro en el listview me aparecen los datos pero cuando lo cierro y lo abro nuevamente no se guardan por ende necesitos verlos permanente en el listview desde ya garacias.
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:record

Publicado por Iñaki (502 intervenciones) el 10/02/2010 15:34:44
Si aun no tienes un módulo deberiás agregarlo a tu proyecto, y ahi en ese módulo declarar variables a nivel global, de forma que los valores que te interesen puedes guardarlos, y recuperarlos despues en cualquieras de los formularios del proyecto.

- Proyecto -> Agregar Módulo

Una vez creado el módulo, en "General" puedes definir las variables necesarias
y crear tambien procedimientos a nivel global

' **** ejemplos **********
Public conn As ADODB.Connection
Public StrNombre as String
Public StrApellidos as String

'**************************************************

Al introducir o seleccionar datos de un Form, guarda los datos en una variable,

StrNombre = txtnombre.text
StrApellidos = txtLastName.text

y luego , la puedes recuperar.

txtnombre.text = StrNombre
txtlastname.text= StrApellidos
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