TimeControl Playback Snippet

/// <summary>
/// Open a timecontrol and control a playback sequence without displaying the timecontrol GUI.
/// </summary>
/// <param name="application">An IApplication interface.</param>
/// <remarks></remarks>
public void TimeControlPlayback(ESRI.ArcGIS.Framework.IApplication application)
{

  if (application == null)
  {
        return;
  }

  ESRI.ArcGIS.ArcMapUI.IMxDocument mxDocument=(ESRI.ArcGIS.ArcMapUI.IMxDocument)application.Document; // Explicit Cast
  ESRI.ArcGIS.Carto.IMap map=mxDocument.FocusMap;
  ESRI.ArcGIS.TrackingAnalyst.ITemporalLayer temporalLayer=null;

  if (map.LayerCount > 0 && map.get_Layer(0) is ESRI.ArcGIS.TrackingAnalyst.ITemporalLayer)
  {
      temporalLayer=(ESRI.ArcGIS.TrackingAnalyst.ITemporalLayer)map.get_Layer(0); // Explicit Cast
  }

  if (temporalLayer == null)
  {
        System.Windows.Forms.MessageBox.Show("Error: Layer is not a tracking layer");
        return;
  }

  ESRI.ArcGIS.TrackingAnalyst.ITimeControl timeControl=new ESRI.ArcGIS.TrackingAnalystUI.TimeControlClass();
  System.Int32 int32_hWnd=application.hWnd;

  timeControl.CurrentMap=mxDocument.FocusMap;
  timeControl.SetVisible(int32_hWnd, true); // This needs to be true
  timeControl.SetTemporalReferencesFromMap();
  timeControl.TemporalMode=ESRI.ArcGIS.TrackingAnalyst.enumPlaybackTemporalMode.enumTemporalHistoric;

  if (! (timeControl.Status == ESRI.ArcGIS.TrackingAnalyst.enumTimeControlStatus.enumStopped))
  {
        timeControl.Stop();
  }

  timeControl.SetTimeSequenceInterval(ESRI.ArcGIS.TrackingAnalyst.enumTemporalUnits.enumDays, 1);
  timeControl.CurrentTime=timeControl.StartTime;
  timeControl.Play(ESRI.ArcGIS.TrackingAnalyst.enumDirection.enumForward);

}

''' <summary>
''' Open a timecontrol and control a playback sequence without displaying the timecontrol GUI.
''' </summary>
''' <param name="application">An IApplication interface.</param>
''' <remarks></remarks>
Public Sub TimeControlPlayback(ByVal application As ESRI.ArcGIS.Framework.IApplication)

  If application Is Nothing Then
    Exit Sub
  End If

  Dim mxDocument As ESRI.ArcGIS.ArcMapUI.IMxDocument=CType(application.Document, ESRI.ArcGIS.ArcMapUI.IMxDocument) ' Explicit Cast
  Dim map As ESRI.ArcGIS.Carto.IMap=mxDocument.FocusMap
  Dim temporalLayer As ESRI.ArcGIS.TrackingAnalyst.ITemporalLayer=Nothing

  If map.LayerCount < 1 Then
    Exit Sub
  End If

  If TypeOf map.Layer(0) Is ESRI.ArcGIS.TrackingAnalyst.ITemporalLayer Then
    temporalLayer=CType(map.Layer(0), ESRI.ArcGIS.TrackingAnalyst.ITemporalLayer) ' Explicit Cast
  End If

  If temporalLayer Is Nothing Then
    System.Windows.Forms.MessageBox.Show("Error: Layer is not a tracking layer")
    Exit Sub
  End If

  Dim timeControl As ESRI.ArcGIS.TrackingAnalyst.ITimeControl=New ESRI.ArcGIS.TrackingAnalystUI.TimeControlClass
  Dim int32_hWnd As System.Int32=application.hWnd

  timeControl.CurrentMap=mxDocument.FocusMap
  timeControl.SetVisible(int32_hWnd, True)  ' This needs to be true
  timeControl.SetTemporalReferencesFromMap()
  timeControl.TemporalMode=ESRI.ArcGIS.TrackingAnalyst.enumPlaybackTemporalMode.enumTemporalHistoric

  If (Not timeControl.Status=ESRI.ArcGIS.TrackingAnalyst.enumTimeControlStatus.enumStopped) Then
    timeControl.Stop()
  End If

  timeControl.SetTimeSequenceInterval(ESRI.ArcGIS.TrackingAnalyst.enumTemporalUnits.enumDays, 1)
  timeControl.CurrentTime=timeControl.StartTime
  timeControl.Play(ESRI.ArcGIS.TrackingAnalyst.enumDirection.enumForward)

End Sub