Expansion

ClassName
Replace with your collection base class name.
className

TypeName
Replace with your custom type class.
yourType

ItemName
Replace with an item name of your choice
item

{
#region Implemantation

public int Add($TypeName$ $ItemName$)
{
return ((IList)this).Add((object)$ItemName$);
}

public void Remove($TypeName$ $ItemName$)
{
((IList)this).Remove((object)$ItemName$);
}

public void Insert(int index, $TypeName$ $ItemName$)
{
((IList)this).Insert(index, (object)$ItemName$);
}

public bool Contains($TypeName$ $ItemName$)
{
return ((IList)this).Contains((object)$ItemName$);
}

public int IndexOf($TypeName$ $ItemName$)
{
return ((IList)this).IndexOf((object)$ItemName$);
}

public void CopyTo($TypeName$[] $ItemName$Array, int index)
{
((ICollection)this).CopyTo($ItemName$Array, index);
}

public $TypeName$ this[int index]
{
get { return ($TypeName$)((IList)this)[index]; }
set { ((IList)this)[index] = value; }
}

#endregion Implemantation

#region IEnumerable Members

public new IEnumerator GetEnumerator()
{
foreach ($TypeName$ $ItemName$ in InnerList)
{
yield return $ItemName$;
}
}

#endregion IEnumerable Members

#region Overrides

protected override void OnValidate(object value)
{
base.OnValidate(value);
if (!(value is $TypeName$))
{
throw new ArgumentException(”This type only supports objects of this type.”);
}
}

#endregion Overrides
}$end$]]>

once imported type the short name classCollectionBase and press tab from within the ide…

can anybody share your experience on this ?

Thanks in advance.
Sudhakar-D
chudhakar@yahoo.com

public void Add(MyType obj)
{
if (InnerList.Count >= 10)
{
throw new ApplicationException(”This collection can only hold 10 objects.”);
}
Innerlist.Add(obj);
}

I found error in VB.NET version of template. Instead of

Default Public Property aCustomer(ByVal index As Integer) As Customer

it should generate

Default Public Property Item(ByVal index As Integer) As Customer

If this property is not named “Item”, collection editor in PropertyGrid does not recognize generated collection as a strongly-typed collection.

Matej Rizman

Doh, Sorry about that, The code I posted is an attempt at trying to convert the output of the C# file that the template creates to VB.NET, then I was going to convert the template to VB Style.

Thank You,

Chris

Im not sure what you’re trying to do here. It looks like you’re trying to combine the codesmith file with a .vb file.

Which one are you trying to get to work?

Namespace BusinessObjects.MyClass

_
Public Class CustomerCollection
Inherits CollectionBase

Public Sub New()

End Sub

Public Sub New(ByVal col1 As CustomerCollection)

Me.InnerList.AddRange(col1)

End Sub

Default Public Property aCustomer(ByVal index As Integer) As Customer

Get

Return CType(List(index), Customer)

End Get

Set(ByVal Value As Customer)

List(index) = Value

End Set

End Property

Public Overridable Function Add(ByVal value As Customer) As Integer

Return List.Add(value)

End Function

Public Overridable Sub Insert(ByVal index As Integer, ByVal value As Customer)

List.Insert(index, value)

End Sub

Public Overridable Sub Remove(ByVal value As Customer)

List.Remove(value)

End Sub

Public Function Contains(ByVal value As Customer) As Boolean

Return List.Contains(value)

End Function

Public Function IndexOf(ByVal value As Customer) As Integer

Return List.IndexOf(value)

End Function

Public Sub CopyTo(ByVal value() As Customer, ByVal index As Integer)

List.CopyTo(value, index)

End Sub

Public Static Function ReadOnlyCustomerCollection(ByVal col1 As CustomerCollection)

Return New CustomerCollection.ReadOnlyCustomerCollection(coll)

End Function

Protected Overrides Sub OnValidate(ByVal value As Object)

MyBase.OnValidate(value)

If Not TypeOf value Is Customer Then

Throw New ArgumentException(”Collection only supports Customer objects.”)

End If

End Sub

Public Enum AccessibilityEnum
[Public]

[Protected]

[Internal]

[ProtectedInternal]

[Private]
End Enum

Public Function GetAccessModifier(ByVal accessibility As AccessibilityEnum) As String

Select Case accessibility

Case AccessibilityEnum.Public

Return “public”

Case AccessibilityEnum.Protected

Return “protected”

Case AccessibilityEnum.Internal

Return “internal”

Case AccessibilityEnum.ProtectedInternal

Return “protected internal”

Case AccessibilityEnum.Private

Return “private”

Case Else

Return “public”

End Select

End Function
#Region “ReadOnlyClass”

Private NonInheritable Class ReadOnlyCustomerCollection
Inherits CustomerCollection

Private Const ERROR_STRING As String = “Collection is read-only.”

Friend ReadOnly Sub New(ByVal value As Customer)
MyBase.New(coll)
End Sub

Public Overrides Function Add(ByVal value As Customer) As Integer

Throw New NotSupportedException(ERROR_STRING)

End Function

Public Overrides Sub Remove(ByVal value As Customer)

Throw New NotSupportedException(ERROR_STRING)

End Sub

Protected Overrides Sub OnClear()

Throw New NotSupportedException(ERROR_STRING)

End Sub

Protected Overrides Sub OnInsert(ByVal index As Integer, ByVal value As Object)

Throw New NotSupportedException(ERROR_STRING)

End Sub

Protected Overrides Sub OnRemove(ByVal index As Integer, ByVal value As Object)

Throw New NotSupportedException(ERROR_STRING)

End Sub

Protected Overrides Sub OnSet(ByVal index As Integer, ByVal oldValue As Object, ByVal NewValue As Object)

Throw New NotSupportedException(ERROR_STRING)

End Sub

End Class

#end Region

End Class

End Namespace