vbAccelerator - Contents of code file: cDiscRecorderProperties.cls

This file is part of the download VB6 IMAPI Library Source, which is described in the article Image Mastering API (IMAPI) Library for VB.

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "cDiscRecorderProperties"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As
 Any, lpvSource As Any, ByVal cbCopy As Long)

Private m_cPropStore As cPropertyStorage

Friend Sub fInit( _
      cRecorder As IVBDiscRecorder _
   )
         
   Dim cPropStore As IPropertyStorage
   cRecorder.GetRecorderProperties cPropStore
   cPropStore.AddRef
   
   Set m_cPropStore = New cPropertyStorage
   m_cPropStore.fInit cPropStore
   
   cPropStore.Release
   CopyMemory cPropStore, 0&, 4
   
End Sub

Public Property Get Count() As Long
Attribute Count.VB_Description = "Gets the number of recorder properties."
   Count = m_cPropStore.Count
End Property

Public Property Get Property(ByVal nIndex As Long) As cProperty
Attribute Property.VB_Description = "Gets the property at the specified 1-based
 index."
Attribute Property.VB_UserMemId = 0
   Set Property = m_cPropStore.Property(nIndex)
End Property

Friend Property Get fPropertyStore() As cPropertyStorage
   Set fPropertyStore = m_cPropStore
End Property