rooms.cls

来自「这是一个银行IC卡门禁系统软件」· CLS 代码 · 共 69 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Rooms"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

'##ModelId=3D338A4902E4
Private m_Rooms As Collection

'##ModelId=3D338A490316
Private Sub Class_Initialize()

    Set m_Rooms = New Collection

End Sub

'##ModelId=3D338A49033E
Sub Add(Item As Room, Optional Key As Variant)

    m_Rooms.Add Item, Key

End Sub

'##ModelId=3D338A49038E
Sub Remove(Index As Variant)

    m_Rooms.Remove Index

End Sub

'##ModelId=3D338A4903CA
Function Item(Index As Variant) As Room

    Set Item = m_Rooms.Item(Index)

End Function

'##ModelId=3D338A4A0028
Property Get Count() As Long

    Count = m_Rooms.Count

End Property

'##ModelId=3D338A4A005A
Sub Clear()

    Set m_Rooms = New Collection

End Sub

'##ModelId=3D338A4A0082
Function NewEnum() As IUnknown

    Set NewEnum = m_Rooms.[_NewEnum]

End Function