library.vb

来自「OOP With Microsoft VB.NET And Csharp Ste」· VB 代码 · 共 20 行

'Imports System
Imports System.Collections

Public Class Library
    Private m_shelf As New SortedList()

    Public Sub CheckIn(ByVal newBook As Book)
        m_shelf.Add(newBook.Title, newBook)
    End Sub

    Public Function CheckOut(ByVal title As String) As Book
        Dim theBook As Book
        theBook = CType(m_shelf(title), Book)
        m_shelf.Remove(title)
        Return theBook
    End Function
End Class