Centrar controles al redimensionar

[aaronduran2]

Hola. Quisiera saber como centrar todos los controles de una ventana al redimensionarla, ya que nunca me quedan correctamente.

Gracias de antemano.

[APOKLIPTICO]

Código (vb) [Seleccionar] Expandir

Option Explicit
Public Command1X, Command1Y

Private Sub Form_Load()
Command1X = Command1.Width / Form1.Width
Command1Y = Command1.Height / Form1.Height
End Sub

Private Sub Form_Resize()
Command1.Width = Command1X * Form1.Width
Command1.Height = Command1Y * Form1.Height
End Sub


- Command1 es un Boton
- Command1X y Command1Y son la proporcion q hay q mantener en la anchura y altura respectivamente, si queres mantener una de las dos constantes, entonces no cambies alguna de las dos.

Un abrazo
APOKLIPTICO

[aaronduran2]

Gracias por el código, aunque llegase tan tarde

Saludos.