Cómo cambiar el tamaño de un formulario de Visual Basic para ocupar la pantalla

Al diseñar un formulario en Visual Basic, usted decide sobre el tamaño ideal y construir la forma en consecuencia. A menos que impedir que los usuarios cambiar el tamaño de su formulario, debe dar cuenta de lo que le sucede si un usuario modifica el tamaño de la pantalla o cómo el formulario aparece para los usuarios con diferentes resoluciones de pantalla que el suyo propio. Usted puede escribir un sub que modifica el tamaño del formulario y sus controles y llamar a la sub siempre que lo necesite.

Instrucciones

1 Abra la ventana de código de su proyecto. Declarar un nuevo Private Sub y crear dos variables para contener los valores X e Y para la re-size:

Private Sub ResizeForm (Formulario ByVal)

Dim xsize como número entero

Dim ysize como número entero

2 Introduzca las siguientes líneas, la primera para evitar un fallo en el programa de los controles que no se pueden cambiar de tamaño y el segundo para evitar la re-tamaño que se produzcan si el formulario ya está minimizada o maximizada:

On Error Resume Next

Si Form.WindowState <> 0 Then Exit Sub

3 Introduzca las siguientes líneas para establecer el origen de la re-tamaño de la forma (la esquina superior izquierda del formulario) a la esquina superior izquierda de la pantalla, y para ampliar el propio formulario:

Me.Top = 0

Me.Left = 0

Me.Height = Me.Height * ysize

Me.Width = Me.Width * xsize

4 Introduzca las siguientes líneas en bucle a través de los controles existentes en el formulario para cambiar el tamaño de ellos, y poner fin a la sub. Esto volverá a tamaño de las anchuras y alturas de varios controles sin dejar de mantener intactas sus alineaciones:

Para i = 0 Para Me.Controls.Count - 1

Me.Controls (i) = .Left Me.Controls (i) .Left * xsize

Me.Controls (i) = .Top Me.Controls (i) .Top * ysize

Me.Controls (i) = .height Me.Controls (i) .height * ysize

Me.Controls (i) = .Width Me.Controls (i) .Width * xsize

Siguiente yo

End Sub