Expansion de formulario y sus controles

[JoaoM]

Esta permite que el form tome el tamaño según el monitor (pantalla) y resolución de este.

Private Sub UserForm_Initialize()


With Me

  .Height = Application.Height

  .Width = Application.Width

End With


'Para controles en el form


End Sub[/CODE]

Para que los controles acompañen el tamaño (en proporción) del form, ¿Cuál seria en código?

El form es este caso tiene TextBox, ComboBox, Label y CommandBottons

[Antoni]

Prueba así:

Private Sub UserForm_Initialize()


'Calculamos el coeficiente de reposicionamiento

'----------------------------------------------


xH = Application.Height / Me.Height

xW = Application.Width / Me.Width


Me.Height = Application.Height

Me.Width = Application.Width


'Modificamos las dimensiones y el posicionamiento

'------------------------------------------------


For Each Control In Controls

   Control.Top = Control.Top * xH

   Control.Left = Control.Left * xW

   Control.Height = Control.Height * xH

   Control.Width = Control.Width * xW

   x = x + 1

Next


End Sub

[/CODE]

PD: Te recuerdo que las normas son para todos.

¿ Donde está el archivo con el formulario ?:D

.

[JoaoM]

Hola Macro

upsssssssss. jeejjeje, si te cuento la priza que me llevo a salir, te reirías por semanas,

diarrea, ¿conoces? jajajajajjajja y no volví a acordarme del tema

Te cuento que después de días de lo anterior, me dedique a la búsqueda y encontré aquí un ejemplo. Te dejo enlace.

Este es mas lago su código porque todo, TODO control, (iconos, labels botones, etc etc etc van en % con el ZOMM, y contiene los botones en la barra para Minimizar, expandir y cerrar.

Pruébalo tu mismo y si algo tienes para hacer todo ese código con las MISMAS funciones pero mas corto, compártelo con nosotros.

Libro4 Proyecto_ventas4_Simple.part1.rar

Libro4 Proyecto_ventas4_Simple.part2.rar