Ayuda MDIForm - VB-MUNDO

JohnSuarez · #1 (**permalink**) 19-08-2007, 18:18:02

Muchos saludos a toda la comunidad del for de Vb-Mundo.

Siempre que realizo mis aplicaciones, utilizo un formulario normal como menu de presentación, pero en esta ocasión me solicitaron que el menú agrupara todas las ventanas de la aplicación de horarios que acabo de realizar, se que tengo que utlizar el MDIForm y colocar los demas form como MDIChild, la pregunta es ¿Como hago para que los formularios MDIChild se ubiquen en el centro de la pantalla?.

Si alguno conoce algun truco le agradeceria me lo comentara.

J.M.Movilla · #2 (**permalink**) 19-08-2007, 20:58:52

Y ¿no te sirve el ponerle la propiedad StartUpPosition = 1?

kortiz · #3 (**permalink**) 20-08-2007, 13:58:55

El problema de los formulario en MDIChild =True, es que no acepta ningun StartUpPosicion que no sea Manual.

Yo hago un pequeña funcion que me centra el formulario en el MDI:

Código:

Public Sub CentroForm(ByVal Formulario As Form)
    Dim SPAncho As Long, Ancho As Long, SPAlto As Long, Alto As Long
    
    SPAncho = frmMdi.Width - Formulario.Width
    Ancho = SPAncho / 2
    
    SPAlto = frmMdi.Height - Formulario.Height
    Alto = SPAlto / 2
    
    Formulario.Left = Ancho
    Formulario.Top = Alto
End Sub

Y en el evento Load del formulario le colocas:

Código:

    CentroForm Me