novato
18 de Enero del 2005

quiero saber como hago para que al modificar el tamaño del form los controles dentro tambien varien su tamaño en funcion del formulario

mvallejos
18 de Enero del 2005

Tienes que implementar variables para calcular un proporcional entre el tamaño original del form y el nuevo tamaño.
Luego, a cada control, le multiplicas las coordenadas de posición (top Lef) y las dimensiones (Width y Height) por ese proporcional.
La rutina deberá tener un tratamiento de error, ya que por ejemplo, el Height de los combos es de solo lectura y al tratar de cambiarlo va a generar un error.

Ejemplo

Sub ReacomodarControles(Proporc as Single)
Dim Ctrl as Control
Err.Clear
On error resume next
For each Ctrl In Me.Controls
Ctrl.Top = Ctrl.Top * Proporc
Ctrl.Left = Ctrl.Left * Proporc
Ctrl.Height = Ctrl.Height * Proporc
Ctrl.Width = Ctrl.Width * Proporc
Next Ctrl

End Sub

Saludos