[RESOLVED] MDI Child not working properly

[Mikey]

My MDIChild = yes form looks cut off at the bottom. I don't want to but I can resize to show the complete form. When I Maximize, Minimize or Close it works fine within the Parent.

If I change the form to MDIChild = no it is NOT cut off at the bottom but it also doesn't function within the Parent.

I've been reading other resolutions but I'm only becoming more confused.

This has to be a simple Property problem (I hope).

Can you help me..... Thanks

[leinad31]

There are scrollbars at the sides for the MDIparent. If you don't want your child forms to get "cut off" then you'll have to move them around the interior of the mdiparent (top left properties).

You'll have to consider MDiparent resize though. How will you position the child if the parent is resized less than the child form.

[Mikey]

The child form is cut off at bottom but it is not larger then parent form.
Scrollbars have not come into play here.

[leinad31]

Try to set the form size (child) on form_load event of child.

[Mikey]

NO.
Doesn't the the form size get set by it's size properties from design time?
I this something that has to be in a Resize_Form() after initial load?

[Static]

yes u can set the size in properties.. but also at runtime

in the Form_Load event

Me.top = 0
Me.left = 0
Me.width = xxx
Mie.Height = xxx

[Mikey]

I'll give it a shot and be back with results.

[bushmobile]

you could just position it in form_load():

Private Sub Form_Load()
    Me.Move 0,0
End Sub

Edit: too slow

[leinad31]

NO.
Doesn't the the form size get set by it's size properties from design time?
I this something that has to be in a Resize_Form() after initial load?

Since the mdi parent imposes default child size (percentile based on its own current size, around 75%) disregarding design time dimensions, you will have to get the child to insist on its own size at run time.

Static posted sample code above.

[Mikey]

OK that helped a lot. I put....

Private Sub Form_Load()
On Error Resume Next
Me.Show
Form_Resize
Dim conn As ADODB.Connection
ect..

Private Sub Form_Resize()
On Error Resume Next
Me.Top = 0
Me.Left = 0
Me.Width = 12720
Me.Height = 7380
End Sub


Thanks

[leinad31]

No prob Please take the time to mark the thread as resolved.

[Mikey]

Me.Move 0,0 alone doesn't do anything.

[Mikey]

thanks to both.

[leinad31]

Me.Move 0,0 alone doesn't do anything.

We both thought initially that the child form exceeded the parent's interior hence was "cut off". Only after your succeeding posts did we realize that you meant it being cut due to resize.

[Static]

Private Sub Form_Load()
    On Error Resume Next
    Me.Show
    resize_me
    Dim conn As ADODB.Connection
    ect..
End Sub
 
Private Sub resize_me()
    Me.Top = 0
    Me.Left = 0
    Me.Width = 12720
    'OR Me.Width = PARENTFORMNAME.ScaleWidth
    Me.Height = 7380
    'OR Me.Height = PARENTFORMNAME.ScaleHeight
End Sub
Private Sub Form_Resize()
    'Use this to resize controls.. not the form
    'UNLESS u want the form to be locked in that position and that size
    'because if u resize it.. it will snap back to those dimensions
End Sub

[Mikey]

No problem, I can see that. I'll try to be more clear in the future.

Thanks again.

[bushmobile]

OK that helped a lot. I put....

Private Sub Form_Load()
On Error Resume Next
Me.Show
Form_Resize
Dim conn As ADODB.Connection
ect..

Private Sub Form_Resize()
On Error Resume Next
Me.Top = 0
Me.Left = 0
Me.Width = 12720
Me.Height = 7380
End Sub


Thanks

Form_Resize event will automatically fire when the form is shown, you're firing it twice.

you should have no problems with

Private Sub Form_Load()
    Me.Move 0, 0, 12720, 7380
    Me.Show
'
'
'
End Sub

as leinad said, i didn't realise you wanted to set the height/width.

using .Move is quicker than setting them all individually

[Mikey]

Oh how interesting. Nothing is easy is it?

I'll try this code and be back....

Thanks

[Mikey]

Well Me.Move 0, 0, 12720, 7380
Me.Show
works nicely.

[Mikey]

Private Sub resize_me() Me.Top = 0 Me.Left = 0 Me.Width = 12720 'OR Me.Width = PARENTFORMNAME.ScaleWidth Me.Height = 7380 'OR Me.Height = PARENTFORMNAME.ScaleHeight End Sub

This cuts it off again.

Me.Move 0, 0, 12720, 7380
Me.Show
works nicely.