Reply to thread

Message

<blockquote data-quote="Shankar_R" data-source="post: 157581" data-attributes="member: 45553">Hi,I am new to VB.NET. I have coded extensively in Excel VBA and have outgrown it, hence migrated to VB.NET. I want to implement&nbsp; strongly typed collection types in .NET. The recommended way is to start with Systems.Collections.CollectionBase, but I need the flexibility to get an item through both a numerical index and a key string, similar to the VBA collection.Since the latter is available in VB.NET, but not inheritable, I thought why not make use of it and wrap it in my own collection class. So I use the following (doesn't implement all methods, but only Clear, Count and Add for the sake of illustration):[XCODE=vb]Class MyGenericColClass&nbsp; &nbsp; &nbsp; &nbsp; Protected MyCol As New Collection&nbsp; &nbsp; &nbsp; &nbsp; Public Sub Clear()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MyCol.Clear()&nbsp; &nbsp; &nbsp; &nbsp; End Sub&nbsp; &nbsp; &nbsp; &nbsp; Public ReadOnly Property Count As Integer&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Get&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Count = MyCol.Count&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End Get&nbsp; &nbsp; &nbsp; &nbsp; End Property&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Public Sub Add(ByVal X As Object, Optional ByVal Key As String = Nothing, Optional ByVal Before As Integer = Nothing, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Optional ByVal After As Integer = Nothing)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox(Before = Nothing)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox(After = Nothing)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MyCol.Add(X, Key, Before, After)&nbsp; &nbsp; &nbsp; &nbsp; End Sub&nbsp; &nbsp; End Class[/XCODE]Now consider the 'Add' method. For the VBA Collection object, the various permissible syntax are[XCODE=vb]Dim Col1 as new CollectionCol1.Add &quot;Hi&quot;Col1.Add &quot;Hi&quot;, &quot;Key1&quot;Col1.Add &quot;Hi&quot;, Before:=1Col1.Add &quot;Hi&quot;, After:=1[/XCODE]but not[XCODE=vb]Col1.Add &quot;Hi&quot;, Before:=2, After:=1[/XCODE]even though the following seems to work[XCODE=vb]Col1.Add &quot;Hi&quot;,Before:=Nothing, After:=Nothing[/XCODE]But if I dimension Col1 to be MyGenericColClass then it doesn't work because even though the default values for the optional parameters Before and After are Nothing (which can be confirmed by the Msgbox's), the actual parameters being passed inside my class to the Collection object are 0 and 0. Since both Before and After values cannot simultaneously be specified, .NEt gives a runtime error.The question is, how does the native implementation of the Collection class know that the arguments being passed are Nothing? How can I just pass these onto the Collection object in my own class so that the default values are not supplied by my wrapper? Seems like a passed-on 'Nothing' is not quite the same as the original 'Nothing'. Thanks for any insights.Shankar</blockquote>

[QUOTE="Shankar_R, post: 157581, member: 45553"] Hi, I am new to VB.NET. I have coded extensively in Excel VBA and have outgrown it, hence migrated to VB.NET. I want to implement strongly typed collection types in .NET. The recommended way is to start with Systems.Collections.CollectionBase, but I need the flexibility to get an item through both a numerical index and a key string, similar to the VBA collection. Since the latter is available in VB.NET, but not inheritable, I thought why not make use of it and wrap it in my own collection class. So I use the following (doesn't implement all methods, but only Clear, Count and Add for the sake of illustration): [XCODE=vb]Class MyGenericColClass Protected MyCol As New Collection Public Sub Clear() MyCol.Clear() End Sub Public ReadOnly Property Count As Integer Get Count = MyCol.Count End Get End Property Public Sub Add(ByVal X As Object, Optional ByVal Key As String = Nothing, Optional ByVal Before As Integer = Nothing, _ Optional ByVal After As Integer = Nothing) MsgBox(Before = Nothing) MsgBox(After = Nothing) MyCol.Add(X, Key, Before, After) End Sub End Class[/XCODE] Now consider the 'Add' method. For the VBA Collection object, the various permissible syntax are [XCODE=vb]Dim Col1 as new Collection Col1.Add "Hi" Col1.Add "Hi", "Key1" Col1.Add "Hi", Before:=1 Col1.Add "Hi", After:=1[/XCODE] but not [XCODE=vb]Col1.Add "Hi", Before:=2, After:=1[/XCODE] even though the following seems to work [XCODE=vb]Col1.Add "Hi",Before:=Nothing, After:=Nothing[/XCODE] But if I dimension Col1 to be MyGenericColClass then it doesn't work because even though the default values for the optional parameters Before and After are Nothing (which can be confirmed by the Msgbox's), the actual parameters being passed inside my class to the Collection object are 0 and 0. Since both Before and After values cannot simultaneously be specified, .NEt gives a runtime error. The question is, how does the native implementation of the Collection class know that the arguments being passed are Nothing? How can I just pass these onto the Collection object in my own class so that the default values are not supplied by my wrapper? Seems like a passed-on 'Nothing' is not quite the same as the original 'Nothing'. Thanks for any insights. Shankar [/QUOTE]

Verification