Sección de códigos , trucos y ejemplos para visual basic

94 - Truco para tener un solo formulario abierto dentro de un formulario Mdi

El ejemplo consiste en que se pueda cargar solo un formulario a la vez dentro de un form de tipo Mdi. Esto lo hacemos verificando la propiedad Count de la colección Forms del Visual basic.

Agregar un Form1 y Un Form2 con la propiedad MdiChild en True. Coloquen en un Form Mdi un Picture1, dentro de este 2 Command. El Command1 Abrirá el Form1 y el Command2 el Form2. Luego intenten abrir los 2 forms para comprobar que solo es posible abrir uno a la vez.

Código en un Formulario Mdi

Option Explicit Private Sub Command1_Click() ' Si la función retorna True lo abrimos If comprobar Then Form1.Show End Sub Private Sub Command2_Click() ' Si la funcion retorna True abrimos el formulario If comprobar Then Form2.Show End Sub ' Función de tipo Boolean que chequea si hay mas de un form abierto Private Function comprobar() As Boolean 'Comprobamos mediante la propiedad Count de la _ colección Form la cantidad de forms abiertos If Forms.Count = 1 Then comprobar = True Else comprobar = False End If End Function

Buscar en Recursos vb