Pasar valor del formulario padre al hijo
Publicado por Inma (3 intervenciones) el 04/08/2011 19:35:54
Visual Basic .Net
Hola, tengo dos formulario FormPadre y FormHijo
********Código del FormularioPadre*************
Public Class FormPadre
Private xResultado As string
Public WriteOnly Property Resultado() As string
Set(ByVal value As string)
xResultado = value
End Set
End Property
Private Sub TlbBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TlbBuscar.Click
With FormHijo
.FormularioPadre = Me
.ShowDialog()
If CCadena(xResultado) <> "" Then
TxtCodigo.Text = CLong(xResultado)
End If
End Sub
End Class
**********Codigo del Formulario Hijo**************
Public Class FormHijo
Private xFormularioPadre As Form
Public WriteOnly Property FormularioPadre() As Form
Set(ByVal value As Form)
xFormularioPadre = value
End Set
End Property
Private Sub Salir()
Dim Clave as string
Clave="123"
'La siguiente línea me da error, me dice: "'resultado' no es un miembro de 'System.Windows.Forms.Form'"
'xFormularioPadre.resultado = clave
'Esta línea si me funciona correctamente.
FormPadre.Resultado = Clave
Me.Dispose()
End Sub
El problema que tengo es que el formulario hijo puede ser llamado desde formularios distintos y por tanto necesito cambiar el valor de la propiedad resultado desde la variable xFormulariopadre y no desde el formulario 'FormPadre'
Gracias
Hola, tengo dos formulario FormPadre y FormHijo
********Código del FormularioPadre*************
Public Class FormPadre
Private xResultado As string
Public WriteOnly Property Resultado() As string
Set(ByVal value As string)
xResultado = value
End Set
End Property
Private Sub TlbBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TlbBuscar.Click
With FormHijo
.FormularioPadre = Me
.ShowDialog()
If CCadena(xResultado) <> "" Then
TxtCodigo.Text = CLong(xResultado)
End If
End Sub
End Class
**********Codigo del Formulario Hijo**************
Public Class FormHijo
Private xFormularioPadre As Form
Public WriteOnly Property FormularioPadre() As Form
Set(ByVal value As Form)
xFormularioPadre = value
End Set
End Property
Private Sub Salir()
Dim Clave as string
Clave="123"
'La siguiente línea me da error, me dice: "'resultado' no es un miembro de 'System.Windows.Forms.Form'"
'xFormularioPadre.resultado = clave
'Esta línea si me funciona correctamente.
FormPadre.Resultado = Clave
Me.Dispose()
End Sub
El problema que tengo es que el formulario hijo puede ser llamado desde formularios distintos y por tanto necesito cambiar el valor de la propiedad resultado desde la variable xFormulariopadre y no desde el formulario 'FormPadre'
Gracias
Valora esta pregunta


0