Centrar 3 botones
Publicado por Carlos (2 intervenciones) el 11/03/2010 12:59:57
Hola aa todos
Tengo un formulario principal con 3 botones y 2 imágenes. El form se abre maximizado. Las Imagenes están "delimitadas" una al margen izquierdo y la otra al derecho.
Lo que quiero es que los 3 botones queden siempre centrados. He intentado con el siguiente código pero no acaba de ajustarse bien.
Uso Access 2007.
Private Sub Form_Activate()
Me.Abrir_Ofertas.Left = Me.WindowWidth - Me.Abrir_Ofertas.Width - 60
Me.Abrir_Empresas.Left = Me.Width / 2 '(Me.Abrir_Usuarios.Left + Me.Abrir_Usuarios.Left) / 2 'Me.Imagen6.Left 'Me.WindowWidth / 2 - Me.Abrir_Empresas.Width / 2 - 20
End Sub
Private Sub Form_Resize()
Me.Abrir_Ofertas.Left = Me.WindowWidth - Me.Abrir_Ofertas.Width - 60
Me.Abrir_Empresas.Left = Me.Width / 2 '(Me.Abrir_Usuarios.Left + Me.Abrir_Usuarios.Left) / 2 'Me.Imagen6.Left 'Me.WindowWidth / 2 - Me.Abrir_Empresas.Width / 2 - 20
End Sub
Muchas gracias por adelado.
Tengo un formulario principal con 3 botones y 2 imágenes. El form se abre maximizado. Las Imagenes están "delimitadas" una al margen izquierdo y la otra al derecho.
Lo que quiero es que los 3 botones queden siempre centrados. He intentado con el siguiente código pero no acaba de ajustarse bien.
Uso Access 2007.
Private Sub Form_Activate()
Me.Abrir_Ofertas.Left = Me.WindowWidth - Me.Abrir_Ofertas.Width - 60
Me.Abrir_Empresas.Left = Me.Width / 2 '(Me.Abrir_Usuarios.Left + Me.Abrir_Usuarios.Left) / 2 'Me.Imagen6.Left 'Me.WindowWidth / 2 - Me.Abrir_Empresas.Width / 2 - 20
End Sub
Private Sub Form_Resize()
Me.Abrir_Ofertas.Left = Me.WindowWidth - Me.Abrir_Ofertas.Width - 60
Me.Abrir_Empresas.Left = Me.Width / 2 '(Me.Abrir_Usuarios.Left + Me.Abrir_Usuarios.Left) / 2 'Me.Imagen6.Left 'Me.WindowWidth / 2 - Me.Abrir_Empresas.Width / 2 - 20
End Sub
Muchas gracias por adelado.
Valora esta pregunta


0