order.vb

来自「讲解visual studio的应用」· VB 代码 · 共 42 行

<Serializable()> _
<DebuggerDisplay("Order for {Quantity} of {Description} made on {DateOrdered}")> _
Public Class Order


    Private m_Description As String
    Private m_Quantity As Integer
    Private m_DateOrdered As Date = Now


    Public Property DateOrdered() As Date
        Get
            Return m_DateOrdered
        End Get
        Set(ByVal value As Date)
            m_DateOrdered = value
        End Set
    End Property


    Public Property Quantity() As Integer
        Get
            Return m_Quantity
        End Get
        Set(ByVal value As Integer)
            m_Quantity = value
        End Set
    End Property


    Public Property Description() As String
        Get
            Return m_Description
        End Get
        Set(ByVal value As String)
            m_Description = value
        End Set
    End Property


End Class