How to resize Child form ?

[vbgedo]

Hello all

i have MDIForm and 3 Child Form i have code to make child form WindowState = vbMaximized with borderstyle = 0
this work done but i have problem

i have in my forms child 2 button

Command1 to close form
Command2 to hide farmmani.picture1 and picture2 to make child form like full screen


here a problem

if i load all or 2 child form and make a full screen and close any form the other forms automatic resizeing
i need if i close any form the other form stay vbMaximized

another thing

i want if i in full screen and i tried to close form check if another child form loaded i need stay in full screen
but if all child form is close except child form i tried to close show the picture1 and picture2 in farmmain


source code in attachments

wait for help

thank you very much

[vbgedo]

hello all

any solutions ?

[putuoka]

Change borderstyle to "sizeable"

[gibra]

Change borderstyle to "sizeable"

Picture still not visible, and other problems, too.

[gibra]

hello all
any solutions ?

First of all, comment the Resize events on all child forms :

Private Sub Form_Resize()
    'Me.WindowState = 2
End Sub

After this, add this routine in Module1.bas:

Public Sub UpdateForms(ByRef pForm As Form, ByVal pWindowState As FormWindowStateConstants)
    Dim f As Form
    For Each f In Forms
        If f.Name <> Farmmain.Name Then
            If f.Name <> pForm.Name Then
                If f.MDIChild = True Then
                    f.WindowState = pWindowState
                End If
            End If
        End If
    Next
    
    If Forms.Count = 2 Then '
        ' show pictures again
        Farmmain.Picture1.Visible = True
        Farmmain.Picture2.Visible = True
    End If
End Sub

Last, on Command1_Click event on all child forms add calling for UpdateForms:

Private Sub Command1_Click()
    UpdateForms Me, Me.WindowState
    Unload Me
End Sub

[vbgedo]

First of all, comment the Resize events on all child forms :

Private Sub Form_Resize()
    'Me.WindowState = 2
End Sub

After this, add this routine in Module1.bas:

Public Sub UpdateForms(ByRef pForm As Form, ByVal pWindowState As FormWindowStateConstants)
    Dim f As Form
    For Each f In Forms
        If f.Name <> Farmmain.Name Then
            If f.Name <> pForm.Name Then
                If f.MDIChild = True Then
                    f.WindowState = pWindowState
                End If
            End If
        End If
    Next
    
    If Forms.Count = 2 Then '
        ' show pictures again
        Farmmain.Picture1.Visible = True
        Farmmain.Picture2.Visible = True
    End If
End Sub

Last, on Command1_Click event on all child forms add calling for UpdateForms:

Private Sub Command1_Click()
    UpdateForms Me, Me.WindowState
    Unload Me
End Sub

Thank You very much