Ver Mensaje Individual
  #4 (permalink)  
Antiguo 29/06/2006, 21:13
Avatar de xknown
xknown
 
Fecha de Ingreso: diciembre-2004
Ubicación: Cusco - Perú
Mensajes: 2.248
Antigüedad: 20 años, 1 mes
Puntos: 7
Ubicas el código en tu formulario puesto como MDI:
Código:
Public instancias As New Hashtable()

Public Function AbrirVentana(ByVal tipo As Type) As Form
    Return AbrirVentana(tipo.FullName)
End Function

Public Function AbrirVentana(ByVal tipo As String) As Form

    Dim formulario As Form = CType(instancias(tipo), Form)
    If formulario Is Nothing OrElse formulario.IsDisposed Then

        formulario = CType(Activator.CreateInstance(Nothing, tipo).Unwrap(), Form)
        instancias(tipo) = formulario
    End If

    If Me.IsMdiContainer Then
        formulario.MdiParent = Me
    End If

    formulario.Activate()
    formulario.WindowState = FormWindowState.Normal
    formulario.Show()
    Return formulario
End Function
Saludos
__________________
Alex Concha
Buayacorp - Programación y Diseño