' Copyright 2008 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 use restrictions at <your ArcGIS install location>/developerkit/userestrictions.txt.
' 




'
'clsTraceResults - Custom class for storing the results of a trace
'
Option Explicit

Private m_pvarColor As IColor
Private m_pvarEdgeSet As IEnumNetEID
Private m_pvarJuncSet As IEnumNetEID
Private m_dCost As Double

Public Property Set Color(ByVal vData As IColor)
  Set m_pvarColor = vData
End Property

Public Property Get Color() As IColor
  Set Color = m_pvarColor
End Property

Public Property Set EdgeSet(ByVal vData As IEnumNetEID)
  Set m_pvarEdgeSet = vData
End Property

Public Property Get EdgeSet() As IEnumNetEID
  Set EdgeSet = m_pvarEdgeSet
End Property

Public Property Set JunctionSet(ByVal vData As IEnumNetEID)
  Set m_pvarJuncSet = vData
End Property

Public Property Get JunctionSet() As IEnumNetEID
  Set JunctionSet = m_pvarJuncSet
End Property

Public Property Let PathCost(ByVal dCost As Double)
  m_dCost = dCost
End Property

Public Property Get PathCost() As Double
  PathCost = m_dCost
End Property