topic Control array in VBA Forum

Control array

Anonymous — Mon, 17 Apr 2000 14:20:20 GMT

Hi !

I want to create a control array for labels.

Like :

Do While i < frmMAJ.label.Count
frmMAJ.label(i).Visible = False
i = i + 1
Loop

This is working in VB but not in VBA

Re: Control array

Anonymous — Mon, 17 Apr 2000 14:27:52 GMT

VBA doesn't support control arrays. However, you can dynamically add and
position controls.

--
Visit me at http://www2.stonemedia.com/franko

"David L. Nadeau" wrote in message
news:eeffedd.-1@WebX.SaUCah8kaAW...
> Hi !
>
> I want to create a control array for labels.
>
> Like :
>
> Do While i < frmMAJ.label.Count
> frmMAJ.label(i).Visible = False
> i = i + 1
> Loop
>
> This is working in VB but not in VBA
>

Control array--> just learned this from Randall this morning

Anonymous — Mon, 17 Apr 2000 17:49:36 GMT

David L:
I am still trying to figure these things out.....

1) create 2 label and 1 button

Dim CtL1 As Control, CtL2 As Control
Private Sub AddAButton()
Set CtL1 = UserForm1.Controls.Add("Forms.TextBox.1", "TextBoxA", True)
CtL1.Left = 0
CtL1.top = 0
CtL1.Text = "Hello Randall"

Set CtL2 = UserForm1.Controls.Add("Forms.TextBox.1", "TextBoxB", True)
CtL2.Left = 0
CtL2.top = 30
CtL2.Text = "Thank you!"
End Sub

Private Sub CommandButton1_Click()
Label1.Caption = CtL1.Value
Label2.Caption = CtL2.Value
End Sub

Private Sub UserForm_Initialize()
AddAButton
End Sub

David L. Nadeau wrote in message ...
>Hi !
>
>I want to create a control array for labels.
>
>Like :
>
>Do While i < frmMAJ.label.Count
> frmMAJ.label(i).Visible = False
> i = i + 1
>Loop
>
>This is working in VB but not in VBA
>