Pasar datos de un Formulario a otro - VB-MUNDO

marilyn.salinas · #1 (**permalink**) 19-01-2006, 18:18:05

Hola a todos, a ver tengo un problema con mostrar formularios.

Tengo dos formularios:

Form1
Form2

Empezando con Form1 ingreso el siguiente condigo en un Boton

dim x as new form2
x.show <<<<<<------------ para q me muestre el form2

Hasta ahi todo bien.

Pero el problemilla surge cuando quiero q un dato ubicado en un Textbox del Form2, haciendo Click en un boton pase a un textbox del Form1. Pues no lo logro, y la unica forma q enconte es con el New, pero eso borra todos los datos ingresados en Form1 y eso no es la idea

Please ayudenme, parece facil pero he intentado de varias formas y ninguna me da le resultado esperado. :smt009

Gracias

mensazen · #2 (**permalink**) 21-01-2006, 18:15:20

Hola, mira una posible solución es que en el evento load del segundo formulario cargues el textbox con el valor del primer formulario, vendría a ser una cosa así:

Código:

Private Sub Form_Load()
...
...
...
TextBox = NombrFormularioOrigen.NombreTextBox
...
..
End Sub

Esto cargaría el valor automaticamente. Si lo que quieres es que el valor se pase al apretar un botón solo necesitas poner la línea en el evento Click del boton.

Logicamente debes poner los nombres que sean apropiados.

Otra opción, dependiendo de lo que quieras hacer, es utilizar variables.

Espero que te sirva

:smt006

angelescj · #3 (**permalink**) 22-01-2006, 07:41:37

Tienes varias formas de hacerlo.
- Puedes sobrecargar el constructor del formulario form2 para que reciba una referencia al formualrio form1, y de esta forma poder acceder a él cuando quiera:

Código:

public class  Form2

private f1 as form1
...
Public sub New(f as form)
...
f1=f
end sub
...

End Class

Al crear form2

Dim f2 as New Form2(f1)

Y ya estaría

- Si tienes un formulario principal podrías acceder al principal y desde ahí a form1. Si es un MDI accedes a la colección de MdiChildren y si es a través de un propietario a la de Owneredforms

Espero haberte aclarado algo

:smt004

Javier2315 · #4 (**permalink**) 07-03-2006, 22:52:25

Hola bueno si mas no entiendo, tu lo que quieres es pasar lo que tienes en el TextBox1 del Form1, al TextBox2 del Form2?? no es cierto, bueno mira yo codificaría asi en el buton del Form1:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form2.Show()
Form2.TextBox1.Text = Me.TextBox1.Text
End Sub

Bueno espero haber te ayudado.

__________________________________________________ ________
El Estudio y el Amor no se juntan, pero hacen al ser humano completo

Eynar · #5 (**permalink**) 07-03-2006, 23:38:17

En el evento Click del Form2, supongo que será un botón, o en el evento Unload

Form1.text1 = Me.text1

Luego cierras el Form2 y presentas el Form1

Esa es la lógica con que lo haría, aunque aún programo en VB.Net, así lo hago en VB6 y me funciona.

Saludos y bendiciones

mensazen · #6 (**permalink**) 08-03-2006, 09:41:25

No se. A mi me da la sensación de que este tema está ya contestado y recontestado. Quizás marilyn.salinas deberias decirnos si has solucionado tu problema para no seguir dando respuestas y respuestas. :smt017

Es una opinión pero sugiero que el que abra un tema deberia cerrarlo cuando el problema esté solucionado.
:smt006

marilyn.salinas · #7 (**permalink**) 08-03-2006, 12:59:24

Primeramente Gracias po su ayuda y Perdon por la demora en contestar, pues si, solucione el problema con el de pasar el formulario, ya cuando tenga un poco de tiempo lo colocare en el Post, como ayuda para los demas usuarios. Gracias Chicos por su ayuda.

TheSilentman · #8 (**permalink**) 06-02-2007, 02:00:10

Esto sirve no solo para marilyn.salinas sino para los que tengan el mismo problema y usamos el buscador, asi que aqui pongo otra solucion:

Crear un modulo y poner este codigo:

Código:

    Dim lugar As String

    Public Sub doyLugar(ByVal cadenaRecibida As String)
        lugar = cadenaRecibida
    End Sub
    Public Function dameLugar()
        Return lugar
    End Function

En el form1:

Código:

doyLugar(textbox.Text)

En el form2:

Código:

textbox.Text = dameLugar()