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