book.vb

编程之道VB.NETt程序设计入门-589M.zip

Public Class Book
    Private bookName As String
    Private bookPrice As Integer
    Private bookAuthor As String

    Public Property Name() As String
        Get
            Return bookName
        End Get
        Set(ByVal Value As String)
            bookName = Value
        End Set
    End Property

    Public Property Price() As Integer
        Get
            Return bookPrice
        End Get
        Set(ByVal Value As Integer)
            bookPrice = Value
        End Set
    End Property

    Public Property Author() As String
        Get
            Return bookAuthor
        End Get
        Set(ByVal Value As String)
            bookAuthor = Value
        End Set
    End Property

    Public ReadOnly Property DisplayBook() As String
        Get
            Return bookName & ": " & bookPrice & ", " & bookAuthor
        End Get
    End Property
End Class