Adding controls in form

[VBakias]

There are 2 forms, form1 and form2.
I want to add the form2 inside form1.
This shouldn't be like: form1->mdiContainer and form2->child

Do something like that: (code in a button in form1)
dim f as new form2
me.controls.add(f)

Is this possible ?



One other thing i can't find out why is happening is:
In form2 i have some controls (textboxes, buttons, frames etc).
I want to add these controls into form1. So i write in a button of form1:
dim f as new form2
dim c as control

for each c in me.controls
me.controls.add(c)
next

The problem is that it only adds some of the controls. If i add in form2 some extra controls or delete some, hitting the button in form1 different controls are added. But not all again.


Tnx

 

[ThatRickGuy]

Yes, Chrissie loves doing this

If I remember correctly, he says you have to set the form.topmost = false before adding it to the controls collection.

-Rick

VB.Net Forum forum796 forum855 ASP.NET Forum
I believe in killer coding ninja monkeys.

 

[earthandfire]

I think the reason for the problem adding controls might be something to do with where the controls are. Assume:

Form2
TextBox1
TextBox2
Panel1
TextBox3
TextBox4
Panel2
TextBox5
TextBox6

Although all eight controls are on Form2, only TextBox1, TextBox2, Panel1 and Panel2 are directly owned by Form2; TextBox3 and TextBox4 are directly owned by Panel1 and TextBox5 and TextBox6 by Panel2.

If you use a recursive routine you should find that you pick up the all the controls.

Hope this helps.

 

[VBakias]

- topmost is false.

- All the controls are directly on form2.

 

[earthandfire]

The problem with the controls is indexing because you are moving the controls from one form to another, you are in effect deleting the controls from form1 and therefore messing up the indexing.

This works:

    Dim f3 As New Form3
    For a As Integer = Me.Controls.Count - 1 To 0 Step -1
      f3.Controls.Add(Me.Controls(a))
    Next a
    f3.Show()

Hope this helps.

 

[earthandfire]

and using Chrissie's trick:

  Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

    Dim f3 As New Form3
    f3.TopLevel = False
    For a As Integer = Me.Controls.Count - 1 To 0 Step -1
      f3.Controls.Add(Me.Controls(a))
    Next a
    Me.Controls.Add(f3)
    f3.Show()

  End Sub

should do what you are asking.


Hope this helps.

 

[chrissie1]

and don't forget that vb's intellisense (intelligent??) will not know about .toplevel.

Christiaan Baes
Belgium

If you want to get an answer read this FAQ faq796-2540
There's no such thing as a winnable war - Sting

 

[ThatRickGuy]

It should if you go into options->Text Editor->All Languages->General and turn off 'Hide Advanced Members'

-Rick

VB.Net Forum forum796 forum855 ASP.NET Forum
I believe in killer coding ninja monkeys.

 

[VBakias]

I'll give it a try as soon as possible. Tnx