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


183 - Ventanas y Formualrios Mdi

<Volver> - Anterior - Siguiente



 

Muestra de como utilizar el Método Arrange y algunas otras opciones para organizar y manejar las ventanas o formularios en una aplicación de tipo Mdi

 

Crear un menú llamado Ventana con los siguientes submenúes:

 

 

Código para el la opción Mosaico Vertical:

Me.Arrange vbTileVertical

 

Código para la opción Mosaico Horizontal:

Me.Arrange vbTileHorizontal

 

Código para la opción Organizar íconos:

Me.Arrange vbArrangeIcons

 

Código para la opción Cascada

Me.Arrange vbCascade

 

Código para la opción Restaurar todo:

Dim Formularios As Form

'Recorre todos los Formularios en un For-Each
For Each Formularios In Forms

'si no es el MDI entonces reestablece la ventana
If Not (Formularios Is Me) Then
Formularios.WindowState = vbNormal
End If

Next

 

Código para la opción Minimizar todo:

'Recorre todos los Formularios en un For-Each
For Each Formularios In Forms

'si no es el MDI entonces lo minimiza
If Not Formularios Is Me Then
Formularios.WindowState = vbMinimized
End If

Next

 

Código para la opción que cierra todas las ventanas:

Dim Formularios As Form

For Each Formularios In Forms

'Si no es el MDI lo decarga
If Not Formularios Is Me Then
Unload Formularios
End If

Next

 

Código para la opción que crea un nuevo formulario en el MDI:

Dim Formularios As New Form1

Formularios.Show

 


Recursos visual basic.net - Links relacionados

 



Buscar en Recursos vb