How to add additional object to form through code

[Brenton]

Hi.

I would like to know how to add additional objects like eg a textbox to a form through code for an event.

Thanks.

[Zach_VB6]

Private Sub Form_Load()
Dim futureLabel As Label
        Set futureLabel = Me.Controls.Add("VB.Label", "futureLabel")
        futureLabel.Height = 300
        futureLabel.Width = 550
        futureLabel.Top = 250
        futureLabel.Left = 250
        futureLabel.Caption = "testing"
        futureLabel.Visible = True
End Sub

[Brenton]

Hi Zack_vb6.

How would I be able to add these controls to say a picbox so that I can have them grouped and be able to scroll through them.

I dont have vb on this pc. I will have to try it out at home and let you know.

Thanks.

[westconn1]

set futurelabel.container = picturebox1

[Brenton]

Thanks Guys. Tried it at home and it works great.
Another question. How would you create a control array of a control through code?

[westconn1]

no can do, you can create all the controls you want at runtime, but control arrays have to be created at design time

[Brenton]

Ouch.

Then say I create Label1 to Label10 at runtime.
How can I reference the properties of the controls to simulate an array?

would it be something like: me.controls("Label" & i).caption="hello"
where i is a variable string?

[Hack]

You would do something like

Private Sub lblLabel_Click(Index As Integer)
Select Case Index
    Case 0
      lblLabel(0).Caption = "Hello"
    Case 1
      lblLabel(1).Caption = "GoodBye"
    'etc
End Select
End Sub

[techgnome]

Actually, what you could do is create an array, then as you create the labels, add them to the array... then you should be able to access them through a pseudo control array (it would be an array of controls instead (or Label)..)

-tg

[Brenton]

Thanks Hack.


But how would I reference the different label names?
westconn1 said you cannot create a control array at runtime.

techgnome, how would I go about doing what you suggest?

dim arrLabel(0 to 10) as label
dim i as integer

for i=0 to 10
Set arrLabel(i) = Me.Controls.Add("VB.Label", "futureLabel" & i)
next

for i=0 to 10
arrLabel(i).caption="Hello" & i
next

[CVMichael]

Why not put one label at design time on the form with Index = 0, then Load the rest of the labels at run time. That way you can get the events from the control also... while if you load a label/control using Me.Controls.Add() you won't get the events from the control.

[Brenton]

Basically this is what I want to use this for:

I got a db that is full of items. Now depending on the number of items in the db, for each item, I want to represent it with a label or shape. Now since at design time I have no idea of how many items I have in the db, I dont know how many shape controls to add to the form.