Common event for an array of controls?

[Thomas Halsvik]

Aquiring new knownledge about creating controls at run time, I would like to them to share a common event-procedure.

Does anyone know how to do this? Look at my pseudo to see what I'm looking for.

Dim myControls(100) As objects

Sub MakeTheControls()
  Set myControls(0) = Controls.Add(...)
  Set myControls(1) = Controls.Add(...)
  ...
End Sub

Sub CommonEvent(AString As String)
  'AString is an identifier that i can use in the following:
  Select Case AString
    Case "my1stcontrol": ...
    Case "my2ndcontrol": ...
    ...
  End Select
End Sub

[mcleran]

What you're talking about is a control array. Control arrays share the same event procedure:

Sub Control_Click(Index as Integer)
'Test for which control was clicked by its index
End Sub

I beleive that you have to add 1 control at design time and then use the 'Load' statement at run time. I don't have a good example to show you, but I know it's on my computer somewhere. If I find it, I'll email it to you.

Hope this helps,

Dan

Here's an example. Make a Contrtol called MyControl and place the following code into a CommandButton. Make sure that the Index property to MyControl is set to 0.

Load MyControl(1)
MyControl(1).Move 0, 0
MyControl(I).Visible = True

[Thomas Halsvik]

You don't by any way know how to create an control array in VBA, do you? You can't do it the way you do it in VB5/6. If you can at all.

No, I don't think that method would work in VBA.