MDI Forms

[Archangelpr]

Hi. Is there any way I can make an MDI Child Form be centralized on my MDI Parent Form? I noticed that my startup position property only allows for manual positioning. Is it only possible by code? I would appreciate any help.

Thanks.

 

[MrVB50au]

No, I would suggest that you look in the MDI Childs properties.

 

[Transcend]

You need to do it in code.

Create a function like so

Public Sub CenterForm(frm As Form)
frm.Left = (frmMDIMain.Width - frm.Width) / 2
frm.Top = (frmMDIMain.Height - frm.Height - 1000) / 2
End Sub

change frmMDIMain to the name of your MDI form.

Then on the form load of your child forms, just put

CenterForm me


Transcend

 

[Transcend]

Oh yeah, you could just use

Public Sub CenterForm(frm As Form)
frm.Left = (frmMDIMain.Width - frm.Width) / 2
frm.Top = (frmMDIMain.Height - frm.Height) / 2
End Sub

I can't remember why i had - 1000 in there ... possibly because my MDI form had a toolbar and a menu or some strange reason .. probably could have used toolbar.height or something similar. Anyhoo this should help.

Transcend

 

[Archangelpr]

Thanks to both of you for the help. But specially to Transcend. Your code worked perfectly.

Gracias.