Center Child Form Within Parent Form 1

[Skittle]

I have a form that needs to display a child form.
The child form needs to be in the centre of the parent form when it is displayed with:-

        Dim StatusForm As New Form3
.
.
.
        StatusForm.Show()
        StatusForm.StartPosition = 
                   FormStartPosition.CenterParent

The 'CenterParent' option above doesn't have any impact
and displays the form in the top left of the screen.
Do I have to set up a parent/child relationship up between the forms somehow?

Dazed and confused

 

[earthandfire]

Have you set the Parent property of the child form to be the parent form?

 

[chrissie1]

Have you set the Parent property of the child form to be the parent form?

I don't understand?

How can the child form be the parentform?

;-)

Christiaan Baes
Belgium

"My old site" - Me

 

[earthandfire]

Well spotted, chrissie.

That should have been:

Have you set the Parent property of the child form to the parent form?

 

[Skittle]

No I have not. I assume I do that against the instance.
I'm having difficulty with the syntax.

There is a Parent and ParentForm property for the instance but setting it equal to MyForm1 is not accepted.


Dazed and confused

 

[earthandfire]

I don't have VS running, so I can't test this but I think that you need something like:

[tt]
Dim StatusForm As New Form3
.
.
.
StatusForm.Parent = Me
StatusForm.StartPosition =
FormStartPosition.CenterParent
StatusForm.Show()

[/tt]

Hope this helps.

 

[Skittle]

Close...but not quite.

I get a run time error 'Cannot add a top level control to a control'


Dazed and confused

 

[earthandfire]

Try adding [tt]StatusForm.TopLevel = False[/tt] before assigning the Parent.



Hope this helps.

 

[Skittle]

Hmm still doesn't want to.
It doesn't give me a run time error now but it sticks the child form in the top left corner of the parent.

 Dim Form2 As New SecondForm

 Form2.StatusLabel1.Text = "Working ...."
 Form2.TopLevel = False
 Form2.Parent() = Me
 Form2.StartPosition = FormStartPosition.CenterParent
 Form2.Show()
 Form2.Refresh()

Dazed and confused

 

[earthandfire]

Interesting. I've just tested various combinations and you are right, it doesn't work!!!

It looks as if you will have to calculate the position manually and set the Top and Left properties accordingly.

 

[Skittle]

OK thanks for your help.



Dazed and confused

 

[earthandfire]

Problem solved ... well sort of ...

    Dim f2 As New Form2
    With f2
      .StartPosition = FormStartPosition.CenterParent
      [b].ShowDialog()[/b]
    End With

With .Show, it will do what it wants


Hope this helps.