clines.vb

来自「苏金明编写的《用VB.NET和VC#.NET开发交互式CAD系统》一书的源代码」· VB 代码 · 共 27 行

Public Class CLines
    Inherits System.Collections.DictionaryBase

    Public Sub New()

    End Sub

    Public Sub Add(ByVal aLine As CLine)
        Me.Dictionary.Add(aLine.ID, aLine)
    End Sub

    Public Sub Remove(ByVal aID As Integer)
        Me.Dictionary.Remove(aID)
    End Sub

    Default Public ReadOnly Property Item(ByVal aID As Integer) As CLine
        Get
            If Me.Dictionary.Contains(aID) Then
                Return CType(Me.Dictionary(aID), CLine)
            Else
                Return Nothing
            End If
        End Get
    End Property

End Class