vbAccelerator - Contents of code file: cProperty.cls

This file is part of the download VB5 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 = "cProperty"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private m_lID As Long
Private m_sName As String
Private m_vValue As Variant
Private m_bDirty As Boolean

Friend Sub fInit( _
      ByVal lID As Long, _
      ByVal sName As String, _
      ByVal vValue As Variant _
   )
   m_lID = lID
   m_sName = sName
   m_vValue = vValue
End Sub

Public Property Get ID() As Long
Attribute ID.VB_Description = "Gets the Identifier of this property."
   ID = m_lID
End Property

Public Property Get Name() As String
Attribute Name.VB_Description = "Gets the name of this property."
   Name = m_sName
End Property

Public Property Get Value() As Variant
Attribute Value.VB_Description = "Gets/sets the value of this property."
   Value = m_vValue
End Property

Public Property Let Value(vValue As Variant)
   m_vValue = vValue
   m_bDirty = True
End Property

Friend Property Get fDirty() As Boolean
   fDirty = m_bDirty
End Property