> Michael.
>
> Do you want to know what you are doing wrong in the code you did not
> show?
>
> You see the code before you, how you think anybody can help you when
> he does not know what you did. Therefore when you want help, show some
> code (piece by piece the first time and first pasted in a noteback an
> copied back in your message to make it readable)
>
> Cor
>
>

> Michael,

> Do if I did not ask to show your code.
>
> I am sorry Michael, without your code I cannot help you.
>
> Cor

> My, what a tactful guy you are.
>

"Michael Kellogg" <michael@kelloggs.org> wrote in message
news:Xns95EE752D3935mk13579@207.46.248.16...
> "Cor Ligthert" <notmyfirstname@planet.nl> wrote (in
> microsoft.public.dotnet.languages.vb):
>
> > Michael.
> >
> > Do you want to know what you are doing wrong in the code you did not
> > show?
> >
> > You see the code before you, how you think anybody can help you when
> > he does not know what you did. Therefore when you want help, show some
> > code (piece by piece the first time and first pasted in a noteback an
> > copied back in your message to make it readable)
> >
> > Cor
> >
> >
>
> Cor,
>
> My, what a tactful guy you are.
>
> Here is part of the collection of my custom object:
> ------------
>
> Public Class FormLabels
> Inherits System.Collections.Specialized.NameObjectCollectionBase
>
> Default Public ReadOnly Property Item(ByVal index As Integer) As
> FormLabel
> Get
> Return BaseGet(index)
> End Get
> End Property
> Default Public ReadOnly Property Item(ByVal FormCode As String) As
> FormLabel
> Get
> Return BaseGet(FormCode)
> End Get
> End Property
> ...
> End Class
>
> ---------
> Here is the code where I try to iterate the collection:
> ---------
> Protected Sub RefreshForms()
> With lstForms.Items
> .Clear()
> Dim fl As FormLabel
> Dim fls As FormLabels
> fls = m_JobLabel.FormLabels 'pass the copy one time
> For Each fl In fls
> .Add(fl.FormCode + " (" + fl.FormNumber.ToString + ")")
> Next
> End With
> End Sub
>
> ------------
> As it stands, I get an InvalidCastException at the "For Each" statement.
> I went back and changed fl's definition to "Object" and discovered that
> it was handed a String (it is the element's key), not a FormLabel object.
> What I don't get is what the "Each" clause goes and gets. I assumed it
> was the default property, which should return an object to me, not a
> string.
>
> I can work around this by iterating the collection manually, but I want
> to know how to get the "Each" to work.
>
>
>
> -Michael

"ABad" <anonymous@discussions.microsoft.com> wrote:

> To handle "For Each" a collection must implement IEnumerable.
> NameObjectCollectionBase already implements this interface and it
> looks like the implementation iterates over the keys.
>

> any decent info about them, like IEnumerable): Let's say this is what is
> happening, that the For Each is enumerating the keys.

> What I'm trying to understand is how to make it work in the latter case.
> My Default property is ITEM, which returns an object (not the key
> string). What am I missing?

"Michael Kellogg" <mkellogg@WEDELIVERcc3.com> wrote in message
news:Xns95EF72F0BE534mkelloggWEDELIVERcc3@207.46.248.16...
> "ABad" <anonymous@discussions.microsoft.com> wrote:
>
> > To handle "For Each" a collection must implement IEnumerable.
> > NameObjectCollectionBase already implements this interface and it
> > looks like the implementation iterates over the keys.
> >
>
> Let me ask this (I'm not familiar with the interfaces and have not found
> any decent info about them, like IEnumerable): Let's say this is what is
> happening, that the For Each is enumerating the keys. This makes the
> iteration through my collection unusual, because I have to then use the
> key that is returned to pull up the actual object inside the collection.
> In other words:
> ----------
>
> dim key as string
> for each key in MyObjects
> MyObjects(key).myProperty = x
> next
>
> ----------
> Is different than this standard implementation:
> ----------
>
> dim obj as MyObject
> for each obj in MyObjects
> obj.myProperty = x
> next
>
>
> ----------
> What I'm trying to understand is how to make it work in the latter case.
> My Default property is ITEM, which returns an object (not the key
> string). What am I missing?
>
> --
> Michael Kellogg