Sección de códigos , trucos y ejemplos para visual basic
<Volver> - Anterior - Siguiente
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
Buscar en Recursos vb
Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2009 - www.recursosvisualbasic.com.ar