Public Class Customer
Dim m_FirstName As String
Dim m_LastName As String
Dim m_Address As String
Dim m_IsNew As Boolean
Dim m_IsSubscribed As Boolean?
Public Sub New(ByVal firstName As String, ByVal lastName As String, ByVal address As String, ByVal isNew As Boolean, ByVal isSubscribed As Boolean?)
Me.FirstName = firstName
Me.LastName = lastName
Me.Address = address
Me.IsNew = isNew
Me.IsSubscribed = isSubscribed
End Sub
Property FirstName() As String
Get
Return m_FirstName
End Get
Set(ByVal value As String)
m_FirstName = value
End Set
End Property
Property LastName() As String
Get
Return m_LastName
End Get
Set(ByVal value As String)
m_LastName = value
End Set
End Property
Property Address() As String
Get
Return m_Address
End Get
Set(ByVal value As String)
m_Address = value
End Set
End Property
Property IsNew() As Boolean
Get
Return m_IsNew
End Get
Set(ByVal value As Boolean)
m_IsNew = value
End Set
End Property
Property IsSubscribed() As Boolean?
Get
Return m_IsSubscribed
End Get
Set(ByVal value As Boolean?)
m_IsSubscribed = value
End Set
End Property
Public Shared Function GetSampleCustomerList() As List(Of Customer)
Return New List(Of Customer)(New Customer() _
{New Customer("A.", "Zero", "12 North Third Street, Apartment 45", False, True), _
New Customer("B.", "One", "34 West Fifth Street, Apartment 67", False, False), _
New Customer("C.", "Two", "56 East Seventh Street, Apartment 89", True, Nothing), _
New Customer("D.", "Three", "78 South Ninth Street, Apartment 10", True, True)})
End Function
End Class