🚀 go-pugleaf

Hallo,

1) Declareer je objecten met WithEvents:

voorbeeld:

Dim WithEvents oObj As clsObj

2)  Ja hoor: je voorziet je klasse van een Collection, voorbeeld:

Private mcolItems As Collection

Dan zorg je er in de constructor voor dat die Collectie ge�nstantieerd
wordt:

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

Je dient zeker volgende methode te voorzien opdat een For Each werkt:

Public Function NewEnum() As IUnknown
    Set NewEnum = mcolIntems.[_NewEnum]
End Function

Voor die NewEnum() dien je dan nog in menu Tools > Procedure Attributes >
Advanced  de Procedure ID in te stellen op de integere waarde -4 opdat de
For Each zou werken

En je kan dan ook een een hele resem andere methodes toevoegen, zoals
bijvoorbeeld een eigen Add:

Public Sub Add(vKey As Variant, vItem As Variant)
    mcolItems.Add Key:=vKey, Item:=vItem
End Sub

Enzovoort...


Groeten,

Frederic

"VdA" <vda@mailandnews.com> schreef in bericht
news:i%5i8.243149$rt4.23637@afrodite.telenet-ops.be...
> ok, ik heb hier twee vraagjes, beiden gerelateerd
>
> 1)
> Is het mogelijk om, als men een array heeft van objecten
> die events kunnen gooien, deze events ergens op te vangen?
>
> Vb:
>     ik heb dus in een module iets als
>
>         Private m_text(5) As VB.TextBox
>
>     en ik zou graag de LostFocus-events van die TextBox's
>     te pakken willen krijgen.
>
> 2)
> Is er een mogelijkheid om zelf een soort Collection class
> te schrijven, een die dan ook in een For Each- statement
> gebruikt kan worden?
>
> de groeten,
>     VdA
> --
> -------------
> In early scenes of Forrest Gump,
> the camera clearly shows Lieutenant Dan's legs.
> However, in later scenes,
> these legs are mysteriously missing.
>                                    -------------
> VdA@mailandnews.com -- |< (.) |= |\|   \/.d./=\.
>
>