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.
95 lines
3.7 KiB
95 lines
3.7 KiB
'**************************************************
|
|
' FILE : BBCodeNodeCollection.vb
|
|
' AUTHOR : Paulo Santos
|
|
' CREATION : 4/29/2009 11:31:52 AM
|
|
' COPYRIGHT : Copyright © 2009
|
|
' PJ on Development
|
|
' All Rights Reserved.
|
|
'
|
|
' Description:
|
|
' TODO: Add file description
|
|
'
|
|
' Change log:
|
|
' 0.1 4/29/2009 11:31:52 AM
|
|
' Paulo Santos
|
|
' Created.
|
|
'***************************************************
|
|
|
|
''' <summary>
|
|
''' Represents a collection of <see cref="BBCodeNode"/>.
|
|
''' </summary>
|
|
Public Class BBCodeNodeCollection(Of TContext As Class)
|
|
Inherits ObjectModel.Collection(Of BBCodeNode(Of TContext))
|
|
|
|
Private __Owner As BBCodeNode(Of TContext)
|
|
|
|
''' <summary>Initializes an instance of the <see cref="BBCodeNodeCollection" /> class.
|
|
''' This is the default constructor for this class.</summary>
|
|
Friend Sub New()
|
|
End Sub
|
|
|
|
''' <summary>Initializes an instance of the <see cref="BBCodeNodeCollection" /> class.</summary>
|
|
''' <param name="owner">The collection owner.</param>
|
|
''' <exception cref="ArgumentNullException">The argument <paramref name="owner" /> is <langword name="null" />.</exception>
|
|
Friend Sub New(ByVal owner As BBCodeNode(Of TContext))
|
|
If (owner Is Nothing) Then
|
|
Throw New ArgumentNullException("owner")
|
|
End If
|
|
__Owner = owner
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Gets or sets the owner of the collection.
|
|
''' </summary>
|
|
Friend ReadOnly Property Owner() As BBCodeNode(Of TContext)
|
|
Get
|
|
Return __Owner
|
|
End Get
|
|
End Property
|
|
|
|
''' <summary>Adds an object to the end of the <see cref="BBCodeNodeCollection" />.</summary>
|
|
''' <param name="node">The object to be added to the end of the <see cref="BBCodeNodeCollection" />.</param>
|
|
''' <exception cref="ArgumentNullException">The argument <paramref name="node" /> is <langword name="null" />.</exception>
|
|
Public Shadows Sub Add(ByVal node As BBCodeNode(Of TContext))
|
|
If (node Is Nothing) Then
|
|
Throw New ArgumentNullException("node")
|
|
End If
|
|
node.SetParent(Me.Owner)
|
|
MyBase.Add(node)
|
|
End Sub
|
|
|
|
''' <summary>Adds the elements of the specified collection to the end of the <see cref="BBCodeNodeCollection" />.</summary>
|
|
''' <param name="collection">The collection whose elements should be added to the end of the <see cref="BBCodeNodeCollection" />.</param>
|
|
''' <exception cref="ArgumentNullException">The argument <paramref name="collection" /> is <langword name="null" />.</exception>
|
|
Public Shadows Sub AddRange(ByVal collection As IEnumerable(Of BBCodeNode(Of TContext)))
|
|
If (collection Is Nothing) Then
|
|
Throw New ArgumentNullException("collection")
|
|
End If
|
|
For Each n In collection
|
|
Me.Add(n)
|
|
Next
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Inserts an element into the <see cref="BBCodeNodeCollection" /> at the specified index.
|
|
''' </summary>
|
|
''' <param name="index">The zero-based index at which item should be inserted.</param>
|
|
''' <param name="node">The object to insert.</param>
|
|
Public Shadows Sub Insert(ByVal index As Integer, ByVal node As BBCodeNode(Of TContext))
|
|
node.SetParent(Me.Owner)
|
|
MyBase.Insert(index, node)
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Inserts the elements of a collection into the <see cref="BBCodeNodeCollection" /> at the specified index.
|
|
''' </summary>
|
|
''' <param name="index">The zero-based index at which item should be inserted.</param>
|
|
''' <param name="collection">The collection whose elements should be inserted into the <see cref="BBCodeNodeCollection" />.</param>
|
|
Public Shadows Sub InsertRange(ByVal index As Integer, ByVal collection As IEnumerable(Of BBCodeNode(Of TContext)))
|
|
For Each node In collection
|
|
node.SetParent(Me.Owner)
|
|
Next
|
|
MyBase.Insert(index, collection)
|
|
End Sub
|
|
|
|
End Class
|
|
|