' Copyright 2011 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.
' 

Imports ESRI.ArcGISExplorer.Mapping

''' <summary>
''' The vehicle's update status
''' </summary>
Public Enum UpdateStatus
  None
  Update
  Delete
End Enum

''' <summary>
''' This class describes a vehicle object displayed on the map. This is a thread
''' safe object with the exception of the Graphic property which should only
''' be accessed on the UI thread.
''' </summary>
Public Class Vehicle
  Private dblX As Double
  Public Property X() As Double
    Get
      Return dblX
    End Get
    Set(ByVal value As Double)
      dblX = value
    End Set
  End Property
  Private dblY As Double
  Public Property Y() As Double
    Get
      Return dblY
    End Get
    Set(ByVal value As Double)
      dblY = value
    End Set
  End Property
  Private strStatus As String
  Public Property Status() As String
    Get
      Return strStatus
    End Get
    Set(ByVal value As String)
      strStatus = value
    End Set
  End Property
  Private strID As String
  Public Property ID() As String
    Get
      Return strID
    End Get
    Set(ByVal value As String)
      strID = value
    End Set
  End Property
  Private strSpeed As String
  Public Property Speed() As String
    Get
      Return strSpeed
    End Get
    Set(ByVal value As String)
      strSpeed = value
    End Set
  End Property
  Private strBearing As String
  Public Property Bearing() As String
    Get
      Return strBearing
    End Get
    Set(ByVal value As String)
      strBearing = value
    End Set
  End Property
  Private strName As String
  Public Property Name() As String
    Get
      Return strName
    End Get
    Set(ByVal value As String)
      strName = value
    End Set
  End Property
  Private usGraphicUpdateStatus As UpdateStatus
  Public Property GraphicUpdateStatus() As UpdateStatus
    Get
      Return usGraphicUpdateStatus
    End Get
    Set(ByVal value As UpdateStatus)
      usGraphicUpdateStatus = value
    End Set
  End Property
  Private graphicMapGraphic As Graphic
  Public Property MapGraphic() As Graphic
    Get
      Return graphicMapGraphic
    End Get
    Set(ByVal value As Graphic)
      graphicMapGraphic = value
    End Set
  End Property
End Class