vb6 and arrays of shape

[Rose Alit,mon mignon]

Hi,
I'm trying the following and doesn't work.
Could someone have any clue?

dim arrMyShapes(1 to MxA,1 to MxB) of New Shape

Thanks

JeanM

[Bob Butler]

"Rose Alit,mon mignon" <sr******@yahoo.ca> wrote in message news:<AS********************@news20.bellglobal.com >...

Hi,
I'm trying the following and doesn't work.
Could someone have any clue?

dim arrMyShapes(1 to MxA,1 to MxB) of New Shape

try it like this

Dim MxA As Long
Dim MxB As Long
MxA = 10
MxB = 10
Dim x&, y As Long
Dim arrMyShapes() As Shape
ReDim arrMyShapes(1 To MxA, 1 To MxB)
For x = 1 To MxA
For y = 1 To MxB
Set arrMyShapes(x, y) = New Shape
Next
Next

[Rick Rothstein]

> > I'm trying the following and doesn't work.

Could someone have any clue?

dim arrMyShapes(1 to MxA,1 to MxB) of New Shape

try it like this

Dim MxA As Long
Dim MxB As Long
MxA = 10
MxB = 10
Dim x&, y As Long
Dim arrMyShapes() As Shape
ReDim arrMyShapes(1 To MxA, 1 To MxB)
For x = 1 To MxA
For y = 1 To MxB
Set arrMyShapes(x, y) = New Shape
Next
Next

VB does not like the way you are using New. Are you sure this doesn't have
to be a control array (Shape is a standard VB control) with an X/Y formula
(or Row/Col or whatever) to imitate 2D referencing?

Rick - MVP

[Rose Alit,mon mignon]

Thank you Bob for answering...but doesn't seem to work. I got a message
saying "wrong use of NEW"

Otherwise how could i define a new shape control at runtime?

Thanks for help

"Bob Butler" <bu*******@earthlink.net> a écrit dans le message de
news:fa************************@posting.google.com ...

"Rose Alit,mon mignon" <sr******@yahoo.ca> wrote in message

news:<AS********************@news20.bellglobal.com >...

Hi,
I'm trying the following and doesn't work.
Could someone have any clue?

dim arrMyShapes(1 to MxA,1 to MxB) of New Shape

try it like this

Dim MxA As Long
Dim MxB As Long
MxA = 10
MxB = 10
Dim x&, y As Long
Dim arrMyShapes() As Shape
ReDim arrMyShapes(1 To MxA, 1 To MxB)
For x = 1 To MxA
For y = 1 To MxB
Set arrMyShapes(x, y) = New Shape
Next
Next

[J French]

On Tue, 30 Mar 2004 23:05:53 -0500, "Rose Alit,mon mignon"
<sr******@yahoo.ca> wrote:

Thank you Bob for answering...but doesn't seem to work. I got a message
saying "wrong use of NEW"

Otherwise how could i define a new shape control at runtime?

As Rick suggested, you would be wise to use a Control Array, that way
to create a new Shape at runtime you simply Load shpArray( N )

However for convenience, there is no reason why you should not have a
two dimensional Array that refers to the iterms in the Control Array

Set shpMatrix( 1, 1 ) = shpArray( 1 )

[Bob Butler]

"Rose Alit,mon mignon" <sr******@yahoo.ca> wrote in message news:<Es*********************@news20.bellglobal.co m>...

Thank you Bob for answering...but doesn't seem to work. I got a message
saying "wrong use of NEW"

Otherwise how could i define a new shape control at runtime?

Sorry, for some reason "Shape" didn't register as a control type and I
was just assuming you had an object called 'Shape' in your app. Rick
and J French provided better responses given that you are trying to
get an array of controls.