Custom Collection

SUBMITTED BY: Guest

DATE: Aug. 5, 2014, 9:11 p.m.

FORMAT: C#

SIZE: 3.7 kB

Raw Download

HITS: 24315

Report
  1. Imports System.Collections.ObjectModel
  2. Public Class PluginsCollection
  3. Implements IList(Of IPlugin)
  5. Dim _list As New List(Of IPlugin)
  6. Dim _dict As New Dictionary(Of String, IPlugin)
  8. Public Sub Add(item As IPlugin) Implements ICollection(Of IPlugin).Add
  9. _list.Add(item)
  10. End Sub
  12. Public Sub Add(item As IPlugin, key As String)
  13. _list.Add(item)
  14. _dict.Add(key, item)
  15. End Sub
  17. Public Sub Clear() Implements ICollection(Of IPlugin).Clear
  18. _list.Clear()
  19. _dict.Clear()
  20. End Sub
  22. Public Function Contains(item As IPlugin) As Boolean Implements ICollection(Of IPlugin).Contains
  23. Return _list.Contains(item)
  24. End Function
  26. Public Function ContainsKey(key As String) As Boolean
  27. Return _dict.ContainsKey(key)
  28. End Function
  30. Public ReadOnly Property Count As Integer Implements ICollection(Of IPlugin).Count
  31. Get
  32. Return _list.Count
  33. End Get
  34. End Property
  36. Public Function Remove(item As IPlugin) As Boolean Implements ICollection(Of IPlugin).Remove
  37. Try
  38. _list.Remove(item)
  39. If _dict.ContainsValue(item) Then
  40. _dict.Remove(_dict.FirstOrDefault(Function(x) x.Value Is item).Key)
  41. End If
  42. Return True
  43. Catch ex As Exception
  44. Return False
  45. End Try
  46. End Function
  48. Public Function Remove(key As String)
  49. Try
  50. Dim j = _dict.Item(key)
  51. _list.Remove(j)
  52. _dict.Remove(key)
  53. Return True
  54. Catch ex As Exception
  55. Return False
  56. End Try
  57. End Function
  59. Public Function GetEnumerator() As IEnumerator(Of IPlugin) Implements IEnumerable(Of IPlugin).GetEnumerator
  60. Return _list.GetEnumerator
  61. End Function
  62. Default Public Property Item(index As Integer) As IPlugin Implements IList(Of IPlugin).Item
  63. Get
  64. Try
  65. Return _list(index)
  66. Catch ex As Exception
  67. Return Nothing
  68. End Try
  69. End Get
  70. Set(value As IPlugin)
  71. ' do nothing
  72. End Set
  73. End Property
  75. Default Public Property Item(key As String) As IPlugin
  76. Get
  77. If _dict.ContainsKey(key) Then
  78. Return _dict(key)
  79. Else
  80. Return Nothing
  81. End If
  82. End Get
  83. Set(value As IPlugin)
  84. ' do nothing
  85. End Set
  86. End Property
  88. #Region "Unused code"
  90. Private Sub RemoveAt(index As Integer) Implements IList(Of IPlugin).RemoveAt
  91. '_list.RemoveAt(index)
  92. End Sub
  93. Private Sub CopyTo(array() As IPlugin, arrayIndex As Integer) Implements ICollection(Of IPlugin).CopyTo
  94. '
  95. End Sub
  97. Private Function IndexOf(item As IPlugin) As Integer Implements IList(Of IPlugin).IndexOf
  98. Return _list.IndexOf(item)
  99. End Function
  101. Private Sub Insert(index As Integer, item As IPlugin) Implements IList(Of IPlugin).Insert
  102. '
  103. End Sub
  105. Private Function GetEnumerator1() As IEnumerator Implements IEnumerable.GetEnumerator
  106. Return MyClass.GetEnumerator
  107. End Function
  109. Private ReadOnly Property IsReadOnly As Boolean Implements ICollection(Of IPlugin).IsReadOnly
  110. Get
  111. Return False
  112. End Get
  113. End Property
  116. #End Region
  118. End Class
comments powered by Disqus