[RESOLVED] Loading Container array with controls

[CADman]

I want to programatically load a container (frame) that will have other controls such as labels, textboxes and an image. When I load the frame(x) the controls do not seem to appear. I am making them visible. How to put them into the newly made frame?

Cadman
Edit: using VB 6.0
Edit: this is for a game

[si_the_geek]

Without seeing your code, it is hard to tell what is wrong with it.

At a guess, I would assume you are missing a line like this:

Set ChildControl.Container = ContainerControl

[chemicalNova]

Or a call to the SetParent API, depending on your language of choice.

chem

[CADman]

At runtime I create a frame and add a few controls into it, all index 0.
Can I then:
load frame1(#)
load frame1(#).container.text1(#) ?

or do I:
dim ChildControl as control
for loop here
Set ChildControl.Container = frame1(#)
load ChildControl.Container.container.text1(#) ?
next

Cadman

[LaVolpe]

Load the frame first & modify its properties as needed

Load each child control
Set ChildControl.Container = Frame1(n)
Set/Adjust child control properties (visible, left, top, etc)

[CADman]

Option Explicit
Dim ChildControl As Control '<--- or should be 'as container'?

private sub form_load()
me.show
dim I as integer
for I=1 to 3
Load Frame1(I)
FraFrame1I).Visible = 1 'should use True instead but I like positive True's
Frame1(I).Left = FraFrame1I - 1).Left + 2000
Set ChildControl.Container = Frame1(I) '<--- error here
Load ChildControl.Container.label1(I)
ChildControl.Container.label1(I).Left = 200
ChildControl.Container.label1(I).Visible = 1
Next
End Sub

Edit: I have already created the frame and label as index 0
error 91: Obj var or With block var not set

[LaVolpe]

Try this and modify it as needed

For I = 1 To 3
   Load Frame(i)
   Frame(i).Visible = True
   Frame(i).Left = Frame(i-1).Left + 200

   Load Label1(UBound(Label1)+1)
   Set Label1(UBound(Label1)).Container = Frame(i)
   With Label1(Ubound(Label1))
         .Left = 200 + xxxx ' each needs to be offset on Left/Top
         .Top = xxxx          ' else they will overlap each other
         . Caption = "something"
         .Visible = True
    End With
Next

[CADman]

Bingo! You guys are great. I have many games that use arrays of
containers with controls and I've always had to create them at design
time...until now. So we load the child control first and then assign its
container. Thanks a lot. Cadman