/Common/Shared/SubtitleList.vb

 1Imports ProtoXML
 2
 3Public Class SubtitleList
 4    Inherits ProtoFlatList(Of SubtitleDetails)
 5
 6    Private _node_TvShow As XElement
 7
 8
 9    Private Sub New()
10        MyBase.New(Nothing, Nothing)
11        Throw New NotImplementedException()
12    End Sub
13
14    Public Sub New(ByRef Parent As IProtoXBase, ByVal NodeName As String)
15        MyBase.New(Parent, NodeName)
16    End Sub
17
18
19    Public Overrides Sub ProcessNode(ByRef Element As System.Xml.Linq.XElement)
20
21        Dim NewSubtitle As New SubtitleDetails()
22        NewSubtitle.ParentClass = Me.ParentClass
23        NewSubtitle.ProcessNode(Element)
24
25        Me.Add(NewSubtitle)
26
27    End Sub
28
29    Public Overrides Function CreateNew() As ProtoXML.IProtoXChild
30        Return New SubtitleList()
31    End Function
32End Class