Cómo cambiar el tamaño de un formulario de Visual Basic para ajustar a pantalla

Al diseñar un formulario en Visual Basic, de decidir sobre el tamaño ideal y construir la forma en consecuencia. A menos que se restringe a los usuarios de 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 la forma en que su forma aparece para los usuarios con diferentes resoluciones de pantalla que el suyo propio. Usted puede escribir un submarino que se modifica el tamaño del formulario y sus controles y llamar a la sub siempre que lo necesite . Instrucciones
1

Abrir ventana de código del proyecto . Declarar un nuevo Private Sub y crear dos variables para mantener los valores de X e Y para el re -size:

Private Sub ResizeForm (Formulario ByVal )

xsize As Integer

YSize Dim As Integer
2

Introduzca las siguientes líneas, la primera para evitar la caída de un programa para los controles que no se pueden cambiar de tamaño y el segundo para evitar la re -size que se produzcan si la forma ya está minimizado o maximizado :

On Error Resume Next

Si Form.WindowState < > 0 THEN EXIT Sub
3

Escriba el siguiente líneas para establecer el origen de la forma de re -sized ( 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

Ingresa las siguientes líneas a circular a través de los controles existentes en el formulario para cambiar el tamaño de ellos, y poner fin a las sub . Esto volverá a tamaño de las anchuras y alturas de varios controles si bien mantienen sus alineaciones intactas :

For i = 0 To Me.Controls.Count - 1

Me.Controls ( i ) . izquierda = Me.Controls ( i ) . restantes * xsize
Me.Controls

( i ) . = Top Me.Controls ( i ) . Arriba * YSIZE
Me.Controls

( i ) . Altura = Me.Controls ( i ) . Altura * YSIZE
Me.Controls

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

Siguiente I Love < p > End Sub