Visual Basic

")
End If
Catch
' error assigning a datareader value to a property
CType(objProperties(intProperty), PropertyInfo).SetValue(objObject, Null.SetNull(CType(objProperties(intProperty), PropertyInfo)), Nothing)
End Try
End Try
End If
Else ' property does not exist in datareader
CType(objProperties(intProperty), PropertyInfo).SetValue(objObject, Null.SetNull(CType(objProperties(intProperty), PropertyInfo)), Nothing)
End If
End If
Next intProperty

Return objObject
End Function
End Class 'Contact

Public Class MessageInfo

'local property declarations
Private _ID As Integer
Private _UserID As Integer
Private _CreatedDate As Date
Private _Category As String
Private _Subject As String = "test"
Private _Content As String

'initialization
Public Sub New()
End Sub

'public properties
Public Property ID() As Integer
Get
Return _ID
End Get
Set(ByVal Value As Integer)
_ID = Value
End Set
End Property

Public Property UserID() As Integer
Get
Return _UserID
End Get
Set(ByVal Value As Integer)
_UserID = Value
End Set
End Property

Public Property CreatedDate() As Date
Get
Return _CreatedDate
End Get
Set(ByVal Value As Date)
_CreatedDate = Value
End Set
End Property

Public Property Category() As String
Get
Return _Category
End Get
Set(ByVal Value As String)
_Category = Value
End Set
End Property

Public Property Subject() As String
Get
Return _Subject
End Get
Set(ByVal Value As String)
_Subject = Value
End Set
End Property

Public Property Content() As String
Get
Return _Content
End Get
Set(ByVal Value As String)
_Content = Value
End Set
End Property

End Class 'MessageInfo

Public Class MessageController

Public Function GetMessage(ByVal messageID As Integer ) As MessageInfo

Return CType(CBO.FillObject(DataProvider.Instance().GetMessage(messageID), GetType(MessageInfo)), MessageInfo)

End Function

End Class 'MessageController

End Namespace