Hola saben tengo el siguente problema sucede que estoy utilizando singeton para trabajar con user control en VB.net mi porblema es que cada control los cargo en un user control padre y mediante algunos botones hago las llamadas a las uc hijas
Ventana Padre
Código:
Public Class ucRBI
Dim ventanaResumenGlobal As RBI.ucRiesgoGlobal
Dim ventanaRiesgoEquipo As RBI.ucRiesgoEquipo
Private Shared instancia As ucRBI = Nothing
Public Shared Function getInstancia() As ucRBI
' initialize if not already done
If instancia Is Nothing Then
instancia = New ucRBI
End If
' return the initialized instance of the Singleton Class
Return instancia
End Function 'Instance
Private Sub ucRBI_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
abrirVentana("RiesgoGlobal")
End Sub
Public Sub cerrarVentana()
pContenido.Controls.Clear()
End Sub
Public Sub abrirVentana(ByVal nomVentana As String)
If (nomVentana.Equals("RiesgoGlobal")) Then
ventanaResumenGlobal = RBI.ucRiesgoGlobal.getInstancia
pContenido.Controls.Add(ventanaResumenGlobal)
ventanaResumenGlobal.BringToFront()
End If
If (nomVentana.Equals("RiesgoEquipo")) Then
ventanaRiesgoEquipo = RBI.ucRiesgoEquipo.getInstancia
pContenido.Controls.Add(ventanaRiesgoEquipo)
ventanaRiesgoEquipo.BringToFront()
End If
End Sub
Private Sub btnFichaRBI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFichaRBI.Click
abrirVentana("RiesgoGlobal")
End Sub
Private Sub btnMaestros_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMaestros.Click
abrirVentana("RiesgoEquipo")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
cerrarVentana()
End Sub
End Class
este es una hija que tiene un boton para llamara a una 3 ventana
Código:
Public Class ucRiesgoGlobal
Dim ventanaPadre As RBI.ucRBI
Private Shared instancia As ucRiesgoGlobal = Nothing
Public Shared Function getInstancia() As ucRiesgoGlobal
' initialize if not already done
If instancia Is Nothing Then
instancia = New ucRiesgoGlobal
End If
' return the initialized instance of the Singleton Class
Return instancia
End Function 'Instance
Private Sub btnDetalle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDetalle.Click
RBI.ucRBI.getInstancia().abrirVentana("RiesgoEquipo")
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
ventanaPadre = RBI.ucRBI.getInstancia()
ventanaPadre.cerrarVentana()
End Sub
End Class
mi porblema es que si utilizo las funciones de abriri las ventanas dentro de la ventana padre no tengo ningun porblema de abrir cada una pero si necesito accesar desde una hija y mostrar otra hija esta no se ejecuta etsto se puede ver en el boton detalle que llama a una 3 ventana pero no se me carga de forma visual, pero si hago el llamado directo del padre no tengo problemas la razon es que cada hija debe tener control de sus detalles pero debo cargar simre el uc en el padre espeor que se entienda y me puedan ayudar.