You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
31 lines
1.0 KiB
31 lines
1.0 KiB
|
|
Namespace PropertyGridEx
|
|
Public Class CustomPropertyCollectionSet
|
|
Inherits System.Collections.CollectionBase
|
|
|
|
Public Overridable Function Add(ByVal value As CustomPropertyCollection) As Integer
|
|
Return MyBase.List.Add(value)
|
|
End Function
|
|
|
|
Public Overridable Function Add() As Integer
|
|
Return MyBase.List.Add(New CustomPropertyCollection)
|
|
End Function
|
|
|
|
Default Public Overridable Property Item(ByVal index As Integer) As CustomPropertyCollection
|
|
Get
|
|
Return DirectCast(MyBase.List.Item(index), CustomPropertyCollection)
|
|
End Get
|
|
Set(ByVal value As CustomPropertyCollection)
|
|
MyBase.List.Item(index) = value
|
|
End Set
|
|
End Property
|
|
|
|
Public Overridable Function ToArray()
|
|
Dim list As New ArrayList
|
|
list.AddRange(MyBase.List)
|
|
Return list.ToArray(GetType(CustomPropertyCollection))
|
|
End Function
|
|
|
|
End Class
|
|
End Namespace
|