Object Properties Alt

Public Class Test

    Public Sub New()

        Dim doc As New Process.Document()
        doc.SourceType = "URL"
        doc.SourceData = "http://myOtherDomain/MyOtherPage.htm"

        Dim p As New Process()
        p.Documents.Add(doc)

    End Sub

End Class


Public Class Process

    Public Documents As New DocumentCollection()

    Public Class Document

        Private _sourceType As String = "URL"
        Public Property SourceType() As String
            Get
                Return _sourceType
            End Get
            Set(ByVal value As String)
                _sourceType = value
            End Set
        End Property

        Private _sourceData As String = "http://www.mydomain/Mypage.html"
        Public Property SourceData() As String
            Get
                Return _sourceData
            End Get
            Set(ByVal value As String)
                _sourceData = value
            End Set
        End Property

    End Class

    NotInheritable Class DocumentCollection
        Inherits CollectionBase

        Public Sub Add(ByVal document As Document)
            List.Add(document)
        End Sub

    End Class

End Class