asked on

How to Create Control Array Dynamically at Run Time?

Hi,

I have a procedure to create control array at run time. But it still has error when try to create it.

In my form, I have a label "lblDuplicate" control array index =0 and combobox call cbodata.

I call :

Create_LabelArray Me, lblDuplicate(1), 1, cboData, Frame1

in module:

Public Sub Create_Label_Control_Array(frmFormName As Object, _
lblNameToCreate As Label, _
intLabelIndex As Integer, _
objClone As Object, _
fraName As Object)

' Set lblNameToCreate = frmFormName.Controls.Add("VB.Label", strLabelName)

Load lblNameToCreate(intLabelIndex)
Set lblNameToCreate(intLabelIndex).Container = fraName

Set lblNameToCreate(intLabelIndex).Font = objClone.Font

If TypeOf objClone Is ComboBox Then
lblNameToCreate(intLabelIndex).Top = objClone.Top + 20
Else
lblNameToCreate(intLabelIndex).Top = objClone.Top + 50
End If

lblNameToCreate(intLabelIndex).Left = objClone.Left
lblNameToCreate(intLabelIndex).Height = objClone.Height - 60
lblNameToCreate(intLabelIndex).Width = objClone.Width

lblNameToCreate(intLabelIndex).Appearance = 0
lblNameToCreate(intLabelIndex).BorderStyle = 1

lblNameToCreate(intLabelIndex).Visible = True

End Sub

At complile time it shows : "Wrong argument".

Please help how to solve this.

Thank you.

GrahamSkan

AFAIK, you can only create a control array at design time. I'm pretty sure that fact is in the documentation.

emi_sastra

ASKER

Try this link:

http://www.vbexplorer.com/VBExplorer/vb_feature/april2000/april2000.asp

Then you will know it, It can or not.

Thank you.

GeneM

There is a discussion of control arrays at
http://msdn2.microsoft.com/en-us/library/kxt4418a(VS.71).aspx

This document seems to verify that control arrays are no longer supported in vb.net. However, it gives you a way to kind of simulate control arrays.

Good luck.

emi_sastra

ASKER

Thanks for the link.

How about my code there?
What should be changed to make it works.

Thank you.

clarkscott

.... I didn't follow all these linkes but....
You can copy a control at runtime. You could place what ever controls you want on a form and copy these to create new ones. You can keep the originals invisible and stack them at the bottom of the form. Copy and use them as needed.

Scott C

EDDYKT

you can do something like that

Create_Label_Control_Array Me, lblDuplicate, 1, cboData, Frame1

Public Sub Create_Label_Control_Array(frmFormName As Object, _
lblNameToCreate As ojbect, _
intLabelIndex As Integer, _
objClone As Object, _
fraName As Object)

' Set lblNameToCreate = frmFormName.Controls.Add("VB.Label", strLabelName)

Load lblNameToCreate(intLabelIndex)
Set lblNameToCreate(intLabelIndex).Container = fraName

Set lblNameToCreate(intLabelIndex).Font = objClone.Font

If TypeOf objClone Is ComboBox Then
lblNameToCreate(intLabelIndex).Top = objClone.Top + 20
Else
lblNameToCreate(intLabelIndex).Top = objClone.Top + 50
End If

lblNameToCreate(intLabelIndex).Left = objClone.Left
lblNameToCreate(intLabelIndex).Height = objClone.Height - 60
lblNameToCreate(intLabelIndex).Width = objClone.Width

lblNameToCreate(intLabelIndex).Appearance = 0
lblNameToCreate(intLabelIndex).BorderStyle = 1

lblNameToCreate(intLabelIndex).Visible = True

End Sub

EDDYKT

lblNameToCreate As ojbect

should be

lblNameToCreate As object

ASKER CERTIFIED SOLUTION

GeneM

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

emi_sastra

ASKER

It solve my problem.

Thank you very much.