[VB6] Kan waarde niet uit collection lezen

[Verwijderd]

Ik probeer een waarde toe te voegen aan een collection, dat lukt.. maar als ik hem dan probeer te lezen bij de for/each in het form krijg ik deze error.

Error: Object doesn't support this property or method

Ziet iemand wat ik fout doe?

Form:

code:

Sub Form_Load() 
Dim Contact As cContact 
Dim Item As cType 

Set Contact = New cContact 

Contact.Create ("Jeff") 
             
For Each Item In Contact.ReadCol 
    Debug.Print Contact.ReadCol 
Next 

End Sub

Class: cContact

code:

Option Explicit 

Dim cList As New cFunction 

Public Property Get ReadCol() As cFunction 
   Set ReadCol = cList 
End Property 

Public Function Create(naam As String) As cFunction 
Set cList = Nothing 
cList.Add naam 
Set Create = cList 
End Function

Class: cFunction

code:

Option Explicit 

Dim tcontact As New Collection 

Public Function Add(naam As String) As cType 
tcontact.Add naam 
End Function

Class: cType

code:

Option Explicit 

Public Name As String

[DukeMan]

Je moet zorgen dat deze enumerable is:

Visual Basic:

Public Property Get ReadCol() As cFunction 
   Set ReadCol = cList 
End Property

dit kan je instellen in VB:

Visual Basic:

Public Function NewEnum() As IUnknown

    Set NewEnum = Collection.[_NewEnum]

End Function

Vervolgens moet je binnen VB ook de opties van deze functie aanpassen. Ik heb zo alleen geen VB bij de hand...

[ Voor 5% gewijzigd door DukeMan op 18-03-2004 16:47 ]

[Verwijderd]

Ik heb met Tools > Procedure Attributes toegevoegd, alleen krijg ik nu de error:

Argument not optional

cfunction ziet er nu zo uit:

code:

Option Explicit

Dim tcontact As New Collection

Public Function Add(naam As String) As cType
tcontact.Add naam
End Function

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

[DukeMan]

OP welke manier lees je je collection uit ? met for each???

[Verwijderd]

.. foutje..

[ Voor 89% gewijzigd door Verwijderd op 19-03-2004 14:44 ]

[Verwijderd]

code:

For Each Item In Contact.ReadCol 
    Debug.Print Contact.ReadCol 
Next

[gorgi_19]

Verwijderd schreef op 19 maart 2004 @ 14:44:

code:

For Each Item In Contact.ReadCol 
    Debug.Print Contact.ReadCol 
Next

Zeg eens hardop , of nog beter, tik eens neer, wat je hier doet. Want wat je nu doet lijkt me niet dat je daar goed over nagedacht hebt.

[ Voor 9% gewijzigd door gorgi_19 op 19-03-2004 14:46 ]

[DizzyWeb]

Ik ken totaal geen VB, maar dit lijkt me logischer:

code:

For Each Item In Contact.ReadCol 
    Debug.Print Item
Next

[.oisyn]

debug-m'n-code-topics zijn niet toegestaan. Je kunt niet hier je code neerplempen en van ons verwachten dat wij het maar even oplossen. Daarnaast is het gewoon een heel duidelijk en simpel probleem, als je dat niet op kunt lossen moet je misschien eerst een cursus VB programmeren volgen, daar kunnen wij je verder niet bij helpen

P&W FAQ - De "quickstart"

[ Voor 9% gewijzigd door .oisyn op 19-03-2004 15:02 ]