+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forum-3.html)
+--- Foro: Aplicaciones/Fragmentos de Código (https://gambas-es.org/forum-8.html)
+--- Tema: Transferir datos de un formulario a otro (/thread-1532.html)
Transferir datos de un formulario a otro - alberto-moyano - 30-10-2023
Hola gente, estoy frente al siguiente problema, tengo dos formularios (catalogo y coleccion) en el formulario catalogo tengo un boton que llama al formulario coleccion, este es el código
Código:
Public Sub btnMostrarColeccion_Click()
' Crear una instancia de Form_Coleccion
Dim FormColeccion As Form_Coleccion
' Inicializar la instancia
FormColeccion = New Form_Coleccion
' Mostrar el formulario
FormColeccion.ShowModal
Enden el formulario colección hago tareas con las que el formulario no tiene inconvenientes y tengo en un gridview datos, selecciono una fila y pretendo que esa selección se vea reflejada en 2 textbox del formulario catalogo, este es el código que uso en el botón que cierra el formulario con la seleeción
Código:
Public FormCatalogo As Form_Catalogo
Private FilaSeleccionada As Integer
....
Public Sub btnSeleccion_Click()
' Verificar si hay una fila seleccionada.
If FilaSeleccionada >= 0 Then
Dim coleccionSeleccionada As String = GridColeccion[FilaSeleccionada, 1].Text
Dim direccionSeleccionada As String = GridColeccion[FilaSeleccionada, 2].Text
' Accede al formulario original y establece los valores en los TextBox.
If FormCatalogo Then
FormCatalogo.txtColeccion.Text = coleccionSeleccionada
FormCatalogo.txtDireccion.Text = direccionSeleccionada
Endif
' Cierra el formulario actual.
Me.Close()
Else
Message.Warning("Debe seleccionar una colección.")
Endif
EndAl cerrarse el formulario colección, no obtengo error, pero tampoco se reflejan los datos en los textbox del formulario catalogo.
Entiendo que el error está en la instancia que estoy creando del formulario de origen, pero le doy vueltas y no veo el error.
Alguna sugerencia.
Gracias de antemano
RE: Transferir datos de un formulario a otro - alberto-moyano - 30-10-2023
Ya encontré el error, no estaba declarando como publico los textbox que reciben los datos.
Sls
RE: Transferir datos de un formulario a otro - Shell - 09-11-2023
alberto-moyano:
¿ Te gusta más usar un control público que una referencia al formulario ?. ( En este caso catalogo ).
Desde luego existen otras formas, como es ocultar el formulario en vez de cerrarlo.
![[Imagen: CnTt5iG.png]](https://i.imgur.com/CnTt5iG.png)
![[Imagen: XsCl8FA.png]](https://i.imgur.com/XsCl8FA.png)
En el ejemplo he usado una referencia al formulario.
FMain:
Código:
Property datosprincipal As String[] Use hdatosprincipal
Public Sub Button1_Click()
Dim formulario As Form1
hdatosprincipal = New String[2]
formulario = New Form1
formulario.formu = Me
formulario.ShowModal()
TextBox1.Text = hdatosprincipal[0]
TextBox2.Text = hdatosprincipal[1]
EndForm1:
Código:
Property formu As Object Use hformu
Public Sub Form_Open()
'Definir GridView
With GridView1
.Columns.Count = 2
.Rows.Count = 10
.Mode = Select.Single
End With
'Rellenar
For i As Integer = 0 To GridView1.Columns.Count - 1
For j As Integer = 0 To GridView1.Rows.Count - 1
GridView1.Columns.Width = GridView1.W / 2 'Esto debería estar fuera del bucle
GridView1[j, i].Alignment = Align.Center
GridView1[j, i].Text = "Fila " & Str(j) & " , " & "Columna " & Str(i)
Next
Next
End
Public Sub Button1_Click()
If GridView1.Row > -1 Then
Me.formu.datosprincipal = [GridView1[GridView1.Row, 0].Text, GridView1[GridView1.Row, 1].Text]
Me.Close
Endif
EndSaludos