Update of /cvsroot/pywin32/pywin32/com/TestSources/PyCOMVBTest
In directory sc8-pr-cvs1:/tmp/cvs-serv31253
Modified Files:
PyCOMVBTest.vbp Tester.cls
Added Files:
EnumerableCollection.cls
Log Message:
Add an enumerable collection to our test object.
--- NEW FILE: EnumerableCollection.cls ---
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "EnumerableCollection"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Private col As New Collection
Public Property Get Count() As Integer
Count = col.Count
End Property
Public Sub Add(ByVal Item As Variant)
col.Add Item
End Sub
' Default property
Public Property Get Item(v As Variant) As Variant
Attribute Item.VB_UserMemId = 0
Set Item = col(v)
End Property
' NewEnum must have the procedure ID -4 in Procedure Attributes dialog
' This procedure is *not* marked as hidden
Public Function NewEnum() As IEnumVARIANT
Attribute NewEnum.VB_UserMemId = -4
Set NewEnum = col.[_NewEnum]
End Function
Index: PyCOMVBTest.vbp
===================================================================
RCS file: /cvsroot/pywin32/pywin32/com/TestSources/PyCOMVBTest/PyCOMVBTest.vbp,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** PyCOMVBTest.vbp 18 Dec 2002 05:02:17 -0000 1.7
--- PyCOMVBTest.vbp 23 Oct 2003 07:24:24 -0000 1.8
***************
*** 4,7 ****
--- 4,8 ----
Class=IPyComTestInterface; IPyComTestInterface.cls
Class=PyComTestImplementation; PyComTestImplementation.cls
+ Class=EnumerableCollection; EnumerableCollection.cls
Startup="(None)"
HelpFile=""
Index: Tester.cls
===================================================================
RCS file: /cvsroot/pywin32/pywin32/com/TestSources/PyCOMVBTest/Tester.cls,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Tester.cls 18 Dec 2002 05:02:17 -0000 1.7
--- Tester.cls 23 Oct 2003 07:24:24 -0000 1.8
***************
*** 28,31 ****
--- 28,33 ----
Private mvarArrayProperty As Variant 'local copy
+ Public EnumerableCollectionProperty As New EnumerableCollection 'local copy
+
Public Type SubSubStruct
int_val As Integer
|
