Defining a Property

[Cody]

How would I define a collection as a property of a class?

[Cody]

I just posted and I think the post is lost so here goes again:

I am trying to create an polygon area as a class. As part of the definition
of each instance of the area is the collection of points defining corners
around its perimeter. The number of sides is equal to the number of corners.

I also created a class called PolyPoint with the properties of the
coordinates of a point.

I am trying to add a collection of PolyPoints to each instance of the area
class.

"Jim Thomlinson" wrote:

> You have me a little lost here. A collection is not really a property but
> more of a container for objects. So what do you mean by a perperty. Do you
> mean the prperties of the objects within the collection? You can make the
> collection accessible as a part fo teh class by just declaring it public kind
> of like this
>
> CLASS
> Option Explicit
>
> Public col As Collection
>
> Private Sub Class_Initialize()
> Set col = New Collection
> End Sub
>
> MODULE
> Sub test()
> Dim var As Class1
>
> Set var = New Class1
>
> var.col.Add Sheet1, Sheet1.Name
> End Sub
> --
> HTH...
>
> Jim Thomlinson
>
>
> "Cody" wrote:
>
> > How would I define a collection as a property of a class?

[Jim Thomlinson]

You have me a little lost here. A collection is not really a property but
more of a container for objects. So what do you mean by a perperty. Do you
mean the prperties of the objects within the collection? You can make the
collection accessible as a part fo teh class by just declaring it public kind
of like this

CLASS
Option Explicit

Public col As Collection

Private Sub Class_Initialize()
Set col = New Collection
End Sub

MODULE
Sub test()
Dim var As Class1

Set var = New Class1

var.col.Add Sheet1, Sheet1.Name
End Sub
--
HTH...

Jim Thomlinson


"Cody" wrote:

> How would I define a collection as a property of a class?