' Copyright 2006 ESRI
'                 
' All rights reserved under the copyright laws of the United States
' and applicable international laws, treaties, and conventions.
' 
' You may freely redistribute and use this sample code, with or
' without modification, provided you include the original copyright
' notice and use restrictions.
' 
' See the use restrictions.

Option Explicit

Implements IObjectClassDescription
Implements IFeatureClassDescription
Const c_sShapeFieldName As String = "Shape"
 
Private Property Get IObjectClassDescription_Name() As String
  IObjectClassDescription_Name = "Timestamped Feature Class"
End Property
 
Private Property Get IObjectClassDescription_AliasName() As String
  IObjectClassDescription_AliasName = ""
End Property
 
Private Property Get IObjectClassDescription_ModelName() As String
  IObjectClassDescription_ModelName = ""
End Property
 
Private Property Get IObjectClassDescription_ModelNameUnique() As Boolean
  IObjectClassDescription_ModelNameUnique = False
End Property
 
Private Property Get IObjectClassDescription_InstanceCLSID() As esriSystem.IUID
  Dim pUID As esriSystem.IUID
  Set pUID = New UID
  pUID.Value = "esriGeoDatabase.Feature"
  Set IObjectClassDescription_InstanceCLSID = pUID
End Property
 
Private Property Get IObjectClassDescription_ClassExtensionCLSID() As esriSystem.IUID
  Dim pUID As esriSystem.IUID
  Set pUID = New UID
  pUID.Value = "TimestamperVB.TimestampClassExtension"
  Set IObjectClassDescription_ClassExtensionCLSID = pUID
End Property
 
Private Property Get IObjectClassDescription_RequiredFields() As esriGeoDatabase.IFields
  
  ' Get the required fields for a feature class, then add the timestamp fields
  Dim pOCDescription As IObjectClassDescription
  Set pOCDescription = New esriGeoDatabase.FeatureClassDescription
  Dim pFieldsEdit As IFieldsEdit
  Set pFieldsEdit = pOCDescription.RequiredFields

  ' Now add the timestamp fields
  Call basUtil.AddTimestampFields(pFieldsEdit)

  Set IObjectClassDescription_RequiredFields = pFieldsEdit
End Property
 
Private Property Get IFeatureClassDescription_FeatureType() As esriGeoDatabase.esriFeatureType
  IFeatureClassDescription_FeatureType = esriFTSimple
End Property
 
Private Property Get IFeatureClassDescription_ShapeFieldName() As String
  IFeatureClassDescription_ShapeFieldName = c_sShapeFieldName
End Property