storageelements.cls

结构化存储文件我们平时大量接触的Word,Excel文件实际上都是结构化存储文件

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "StorageElements"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'*********************************************************************************************
'
' StorageElements
'
' Collection of VBSTATSTGs for Storage class
'
'*********************************************************************************************
'
' Author: Eduardo Morcillo
' E-Mail: [e-mail]
' Web Page: http://www.domaildlx.com/e_morcillo
'
' Created: 08/03/1999
'
'*********************************************************************************************
Option Explicit

Dim m_Collection As Collection


Friend Sub Add(SSTG As STATSTG)
Dim SS As VBSTATSTG

    Set SS = New VBSTATSTG
    
    SS.SetData SSTG
    
    m_Collection.Add SS
    
End Sub

Public Function NewEnum() As Variant
Attribute NewEnum.VB_UserMemId = -4
Attribute NewEnum.VB_MemberFlags = "40"

    Set NewEnum = m_Collection.[_NewEnum]
    
End Function

Public Property Get Count() As Long

    Count = m_Collection.Count
    
End Property

Public Property Get Item(ByVal Index As Variant) As VBSTATSTG
Attribute Item.VB_UserMemId = 0

    Set Item = m_Collection(Index)
    
End Property

Private Sub Class_Initialize()

    Set m_Collection = New Collection
    
End Sub