Create Multiple Instances of Class at Runtime

[Eric Jenkins]

I am seeking a way to dynamically create multiple instances of a class
at runtime.



For example, I have a class defined as PLAYER. Depending upon what the
user enters on screen,
I want VB to instantiate a number of objects.

The following code give this error. ERROR: CONSTANT EXPRESSION REQUIRED

For p = 1 To 3

Static to_str(p) As Player
Set myplayer = New Player
myplayer.playername = "Eric" & p
MsgBox myplayer.playername

Next p


How can I create multiple instances of my own class without doing so at
design time?

Thanks for your help
Eric

[Dan Appleman]

Eric:

Not sure what that "Static" definition in the loop is. Either some obscure
syntax I haven't heard of, or it's the source of your bug.
Decide where your array is going to be - class, global, or function scope. At
that level, add

Dim to_str(p) As Player

Then, before your loop:

Redim to_str(3) As Player

For p = 1 To 3


Set to_str(p) = New Player
to_str(p).playername = "Eric" & p
MsgBox to_str(p).playername
Next p

ought to work.

Dan


Eric Jenkins wrote:

>
> I am seeking a way to dynamically create multiple instances of a class
> at runtime.
>
> For example, I have a class defined as PLAYER. Depending upon what the
> user enters on screen,
> I want VB to instantiate a number of objects.
>
> The following code give this error. ERROR: CONSTANT EXPRESSION REQUIRED
>
> For p = 1 To 3
>
> Static to_str(p) As Player
> Set myplayer = New Player
> myplayer.playername = "Eric" & p
> MsgBox myplayer.playername
>
> Next p
>
> How can I create multiple instances of my own class without doing so at
> design time?
>
> Thanks for your help
> Eric