#post-id: 3041-01-47 #original-date: 22.11.2008 Sat #original-time: 1:47 AM #original-day: &#160;3041 #original-h...

воскресенье, 23 ноября 2008

14:36

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3041-01-47
#original-date: 22.11.2008 Sat
#original-time: 1:47 AM
#original-day: 3041
#original-host: WinXP Prof SP2 (Build 2600)

А вот и коллекция:

Class Collection
  ' Объект словаря
  Private mDic
  Private mUniqueKey
  
  Private Sub Class_Initialize   ' Setup Initialize event.
    'MsgBox("TestClass started")
    Set mDic = CreateObject("Scripting.Dictionary")
    mUniqueKey = 0
  End Sub
  
  Private Sub Class_Terminate   ' Setup Terminate event.
    'MsgBox("TestClass terminated")
    Set mDic = Nothing
  End Sub
  
  Public Sub Add(ByVal Item)
    mDic.Add CStr(mUniqueKey), Item
    mUniqueKey = mUniqueKey + 1
  End Sub
  
  Public Default Function Item(ByVal Index)
    Dim Key
    Dim Keys
    
    Keys = mDic.Keys
    Key = Keys(Index)
    
    Item = mDic.Item(Key)
  End Function
  
  Public Function Count()
    Count = mDic.Count
  End Function
  
  Public Sub Clear()
    mDic.RemoveAll
  End Sub
  
  Public Sub Remove(ByVal Index)
    Dim Key
    Dim Keys
    
    Keys = mDic.Keys
    Key = Keys(Index)
    
    mDic.Remove Key
  End Sub
End Class

Dim A, TMP
Set A = New Collection

A.Add "Ariel" ' 0
A.Add "Linda" ' 1
A.Add "Anna"  ' 2
A.Add "Loush" ' 3
A.Add "Alice" ' 4

For TMP = 0 To A.Count - 1
  MsgBox A(TMP)
Next

A.Remove 3
A.Remove 3
A.Remove 0

For TMP = 0 To A.Count - 1
  MsgBox A(TMP)
Next

Правда не обошлось без нехорошего но...

URL

Поделиться

Комментарии


Запомнить

Лингрин :: Резиденция Линды Кайе