![]() |
||||
![]() ![]() ![]() ![]() ![]() ![]() ![]() |
vbAccelerator - Contents of code file: cJolietDiscRecorderProperties.clsThis 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 = "cJolietDiscMasterProperties" 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( _ cDiscMaster As IVBJolietDiscMaster _ ) Dim cPropStore As IPropertyStorage cDiscMaster.GetJolietProperties 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 properties." Count = m_cPropStore.Count End Property Public Property Get Property(ByVal nIndex As Long) As cProperty Attribute Property.VB_Description = "Gets the property with 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
|
|||
|
||||
![]() |
|