Visual Basic.NET - Pasar una variable a un formulario

 
Vista:

Pasar una variable a un formulario

Publicado por jimbo26 (1 intervención) el 22/04/2005 20:01:41
Hola, soy nuevo en programación y tengo el siguiente problema: Tengo un ABM con una grilla y un boton modificar, cuando lo aprieto abre un formulario nuevo, que quiero cargar con el registro elegido de la grilla para modificar, como hago para pasar una variable para poder llenar la caja de texto del formulario nuevo? Estoy trabajando con VB.NET y SQL.
Gracias.
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:Pasar una variable a un formulario

Publicado por Edgar (1501 intervenciones) el 22/04/2005 20:19:34
Hola

Crea una propiedad en el formulario que estas abriendo.. luego en el codigo de tu primer formulario, luego de crear el form y antes de mostrarlo invocas la propiedad y le pasas el valor indicado...

Saludos
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

RE:Pasar una variable a un formulario

Publicado por Fede (11 intervenciones) el 23/04/2005 00:04:05
Hola Edgar, yo tambine soy nuevo en esto, y tengo el mismo problema y me pregunto como hacer la "propiedad "de un formulario.
Gracias
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

RE:Pasar una variable a un formulario

Publicado por Harold (411 intervenciones) el 23/04/2005 16:09:04
'haz click una fila y luego abre el nuevo form.........
Espero te ayude.........

Structure MydAta
Dim micol0 As String
Dim micol1 As String
End Structure

Public MyArr As MydAta
Dim iRow As Integer
Dim myfrm As New Form2

Private Sub DataGrid1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.Click
iRow = DataGrid1.CurrentRowIndex
PrintCells(DataGrid1, iRow)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
myfrm.Show()
End Sub
Private Sub PrintCells(ByVal myGrid As DataGrid, ByVal fila As Integer)
Dim iCol, cols As Integer
Dim myTable As DataTable
myTable = CType(DataGrid1.DataSource, DataTable)
cols = myTable.Columns.Count - 1
MyArr.micol0 = (myGrid(iRow, 0))
MyArr.micol1 = (myGrid(iRow, 1))
myfrm.TextBox1.Text = MyArr.micol0.ToString 'llena el dato de la columna0 en el textbox1 del formulario nuevo
myfrm.TextBox2.Text = MyArr.micol1.ToString 'llena el dato de la columna1 en el textbox2 del formulario nuevo

End Sub
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