Centrar Formulario MDI Hijo

Responder
Avatar de Usuario
Grendal
Administrador
Mensajes: 97
kuchnie na wymiar Ruda Śląska Rybnik Tychy
Registrado: Mié Abr 08, 2020 1:05 am

Centrar Formulario MDI Hijo

Mensaje por Grendal »

Centrar Formulario MDI Hijo

A la hora de trabajar con formularios MDI en Visual Basic 6, nos damos cuenta que los formulario hijos que tienen la propiedad MDIChild = True es que no aparecen centrados.

Estos formulario parece que toman una posiciona al azar nunca la misma aquí nace la pregunta ¿Como centro este formulario?

La respuesta es muy fácil vamos a crear un sub procedimiento para que centre el formulario y para centrarlo debemos de tener en cuenta el formulario padre MDI.

Tengo un formulario padre MDI llamado frmPrincipal.frm y el formulario que quiero centrar se llama frmPerfilUsuario.frm.

El procedimiento quedaría de la siguiente manera:

Código: Seleccionar todo

Sub CentrarFormulario(Formulario As Form, FormularioPadre As Form)
    Formulario.Left = (FormularioPadre.ScaleWidth - Formulario.Width) / 2
    Formulario.Top = (FormularioPadre.ScaleHeight - Formulario.Height) / 2
End Sub
Hay que pasarle dos parámetros uno es el formulario que quiero centrar y el otro es el formulario padres.

Para llamar a esta función y centre el formulario debo colocarla en el evento Load del formulario que quiero centrar de la siguiente manera:

Código: Seleccionar todo

Private Sub Form_Load()
    Call CentrarFormulario(Me, frmPrincipal)
   
End Sub
Donde Me es el formulario actual también lo puedo colocar con el nombre del formulario de la siguiente manera:

Código: Seleccionar todo

Private Sub Form_Load()
    Call CentrarFormulario(frmPerfilUsuario, frmPrincipal)

End Sub
Esto daría lo mismo. De esta manera se centra un formulario hijo MDI.

Esto lo debes implementar en cada uno de los formulario que quieres centrar.

Avatar de Usuario
Richard
Aprendiz
Mensajes: 140
Registrado: Sab Abr 11, 2020 4:25 pm

Re: Centrar Formulario MDI Hijo

Mensaje por Richard »

gracias por la información :thumbup:

Responder