Anonymous user
Collections: Difference between revisions
→Using a Visual Basic 6 Collection
Line 1,890:
Module GetC {
declare c collection
Document doc$
Print type$(c)
Line 1,902 ⟶ 1,903:
}
Report Doc$
Clipboard Doc$
\\ so now we have to use it, using Methid to call Add
Method c, "Add", 100, "Hello"
Method c, "Add", 2000, "There"
\\ add a decimal number
▲ Method c, "Add", 3000032131231231312312@, "Zero"
Method c, "Add", aDecimal, "Zero"
Method c, "count" as count
Print count =3 ' we have three members
Line 1,939 ⟶ 1,942:
Read a
Print type$(a)="Nothing"
</lang>
<pre>
Function QueryInterface(riid, ppvObj)
| |||