ASP.NET/AJAX 3.5 With Aquarium Express

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Data.Common
Imports System.Linq
Imports System.Text
Imports System.Text.RegularExpressions
Imports System.Web
Imports System.Web.Caching
Imports System.Web.Configuration
Imports System.Web.Security
Imports System.Xml
Imports System.Xml.XPath

Namespace MyCompany.Data
    
    Public Class View
        
        Private m_Id As String
        
        Private m_Label As String
        
        Private m_HeaderText As String
        
        Private m_Type As String
        
        Public Sub New()
            MyBase.New
        End Sub
        
        Public Sub New(ByVal view As XPathNavigator, ByVal resolver As IXmlNamespaceResolver)
            MyBase.New
            Me.m_Id = CType(view.Evaluate("string(@id)"),String)
            Me.m_Type = CType(view.Evaluate("string(@type)"),String)
            Me.m_Label = CType(view.Evaluate("string(@label)"),String)
            Me.m_HeaderText = CType(view.Evaluate("string(c:headerText)", resolver),String)
        End Sub
        
        Public ReadOnly Property Id() As String
            Get
                Return m_Id
            End Get
        End Property
        
        Public ReadOnly Property Label() As String
            Get
                Return m_Label
            End Get
        End Property
        
        Public ReadOnly Property HeaderText() As String
            Get
                Return m_HeaderText
            End Get
        End Property
        
        Public ReadOnly Property Type() As String
            Get
                Return m_Type
            End Get
        End Property
    End Class
End Namespace