create a control array

dantb · Mar 22nd, 2002, 07:50 PM

Hi Im kind of new at this vb, trying hard to learn it. I have a form with frames. Nead to create a control array and have no idea of what I am doing.. Please help. Thx Dan

Al Chara · Mar 22nd, 2002, 08:06 PM

Not sure exactly what you mean by control array or what you want. But try the following code:

Dim toppostition, counter As Integer
counter = 5

For I = 1 To counter
Set myoptionbuttons(I) = MyFrame.Controls.Add("Forms.optionbutton.1")
myoptionbuttons(I).Left = 0
myoptionbuttons(I).Top = topposition
myoptionbuttons(I).Width = 66
myoptionbuttons(I).Height = 18
myoptionbuttons(I).value= false
myoptionbuttons(I).caption = Range("A" & counter).Value
topposition = topposition + 18
Next I

This code will place 5 optionbuttons underneath each other starting at the top left corner of a frame called "MyFrame" and set the caption to the values in cells A1 through A5.

_________________
Hope this helps.
Kind regards, Al.

[ This Message was edited by: Al Chara on 2002-03-22 19:38 ]

dantb · Mar 22nd, 2002, 08:12 PM

My problem is under this frame all option boxes have the same name with different captions. And I keep getting the error message - ambigouos name.

Tom Schreiner · Mar 22nd, 2002, 08:15 PM

You cannot create a control array in VBA unless something has changed...

Tom Schreiner · Mar 22nd, 2002, 08:17 PM

Each object must have it's own unique name

A control array with optionbuttons for ex. would look like the following

optionbutton(0).caption
optionbutton(1).caption
optionbutton(2).caption
optionbutton(3).caption

Unless VBA 6.0 has changed from 5.0, you cannot create a control array

Al Chara · Mar 22nd, 2002, 08:36 PM

See my code above, I updated it to fit your needs.

Mar 22nd, 2002, 08:36 PM	#6
Al Chara MrExcel MVP Join Date: Feb 2002 Location: Monterrey, Mexico Posts: 1,433	See my code above, I updated it to fit your needs. __________________ Kind regards, Al Chara

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 22nd, 2002, 07:50 PM	#1
dantb Board Regular Join Date: Mar 2002 Location: Arkansas Posts: 358	Hi Im kind of new at this vb, trying hard to learn it. I have a form with frames. Nead to create a control array and have no idea of what I am doing.. Please help. Thx Dan

Mar 22nd, 2002, 08:06 PM	#2
Al Chara MrExcel MVP Join Date: Feb 2002 Location: Monterrey, Mexico Posts: 1,433	Not sure exactly what you mean by control array or what you want. But try the following code: Dim toppostition, counter As Integer counter = 5 For I = 1 To counter Set myoptionbuttons(I) = MyFrame.Controls.Add("Forms.optionbutton.1") myoptionbuttons(I).Left = 0 myoptionbuttons(I).Top = topposition myoptionbuttons(I).Width = 66 myoptionbuttons(I).Height = 18 myoptionbuttons(I).value= false myoptionbuttons(I).caption = Range("A" & counter).Value topposition = topposition + 18 Next I This code will place 5 optionbuttons underneath each other starting at the top left corner of a frame called "MyFrame" and set the caption to the values in cells A1 through A5. _________________ Hope this helps. Kind regards, Al. [ This Message was edited by: Al Chara on 2002-03-22 19:38 ]

Mar 22nd, 2002, 08:12 PM	#3
dantb Board Regular Join Date: Mar 2002 Location: Arkansas Posts: 358	My problem is under this frame all option boxes have the same name with different captions. And I keep getting the error message - ambigouos name.

Mar 22nd, 2002, 08:15 PM	#4
Tom Schreiner Board Regular Join Date: Mar 2002 Location: Cincinnati, Ohio, USA Posts: 6,824	You cannot create a control array in VBA unless something has changed...

Mar 22nd, 2002, 08:17 PM	#5
Tom Schreiner Board Regular Join Date: Mar 2002 Location: Cincinnati, Ohio, USA Posts: 6,824	Each object must have it's own unique name A control array with optionbuttons for ex. would look like the following optionbutton(0).caption optionbutton(1).caption optionbutton(2).caption optionbutton(3).caption Unless VBA 6.0 has changed from 5.0, you cannot create a control array