TimeOffsetButton

TimeOffsetButton.cs

using System;
using System.Collections.Generic;
using System.Text;
using System.IO;
using System.Windows.Forms;
using ESRI.ArcGIS.ArcMapUI;
using ESRI.ArcGIS.Framework;
using ESRI.ArcGIS.Carto;
using ESRI.ArcGIS.esriSystem;
using ESRI.ArcGIS.Display;

namespace ApplyOffsetToATimeAwareLayer2008
{
  public class TimeOffsetButton : ESRI.ArcGIS.Desktop.AddIns.Button
  {
    public TimeOffsetButton()
    {
    }

    protected override void OnClick()
    {
      IMxDocument pMxDoc = ArcMap.Document;
      IMap pMap = pMxDoc.FocusMap;
      string filename = "TimeAwareHurricanes.mxd";

      if (pMap.LayerCount < 1)
      {
        MessageBox.Show("Before running this sample, load the associated file \'" + filename + "\'");
        return;
      }
      if (pMap.get_Layer(0).Name != "atlantic_hurricanes_2000")
      {
        MessageBox.Show("Before running this sample, load the associated file \'" + filename + "\'");
        return;
      }
      ILayer selectedLayer = ArcMap.Document.SelectedLayer;
      if (selectedLayer == null)
        MessageBox.Show("There is no selected layer.  Select a time-aware layer");

      ITimeZoneFactory pTZFac = new TimeZoneFactoryClass();
      IFeatureLayer pFLyr = selectedLayer as IFeatureLayer;
      ITimeData pTimeData = pFLyr as ITimeData;

      //making the first layer of the focused map time-aware
      if (pTimeData.SupportsTime)
      {
        pTimeData.UseTime = true;
        ITimeDataDisplay pTimeAnimProp = pFLyr as ITimeDataDisplay;
        pTimeAnimProp.TimeOffsetUnits = esriTimeUnits.esriTimeUnitsYears;
        pTimeAnimProp.TimeOffset = System.DateTime.Now.Year - 2000;
      }
      else
      {
        MessageBox.Show("Before running this sample, load the associated file \'" + filename + "\'");
        return;
      }

      IActiveView pActiveView = pMap as IActiveView;
      pActiveView.Refresh();
    }
    protected override void OnUpdate()
    {
      Enabled = true;
    }
  }

}

TimeOffsetButton.vb

Imports System.Windows.Forms
Imports ESRI.ArcGIS.ArcMapUI
Imports ESRI.ArcGIS.Framework
Imports ESRI.ArcGIS.Carto
Imports ESRI.ArcGIS.esriSystem
Imports ESRI.ArcGIS.Display

Public Class TimeOffsetButton
  Inherits ESRI.ArcGIS.Desktop.AddIns.Button

  Public Sub New()

  End Sub

  Protected Overrides Sub OnClick()
    Dim pMxDoc As IMxDocument = My.ArcMap.Document
    Dim pMap As IMap = pMxDoc.FocusMap
    Dim filename As String = "TimeAwareHurricanes.mxd"

    If pMap.LayerCount < 1 Then
      MessageBox.Show("Before running this sample, load the associated file '" & filename & "'")
      Return
    End If
    If pMap.Layer(0).Name <> "atlantic_hurricanes_2000" Then
      MessageBox.Show("Before running this sample, load the associated file '" & filename & "'")
      Return
    End If
    Dim selectedLayer As ILayer = My.ArcMap.Document.SelectedLayer
    If selectedLayer Is Nothing Then
      MessageBox.Show("There is no selected layer.  Select a time-aware layer")
    End If

    Dim pTZFac As ITimeZoneFactory = New TimeZoneFactoryClass()
    Dim pFLyr As IFeatureLayer = TryCast(selectedLayer, IFeatureLayer)
    Dim pTimeData As ITimeData = TryCast(pFLyr, ITimeData)

        'making the first layer of the focused map time-aware
    If pTimeData.SupportsTime Then
      pTimeData.UseTime = True
      Dim pTimeAnimProp As ITimeDataDisplay = TryCast(pFLyr, ITimeDataDisplay)
      pTimeAnimProp.TimeOffsetUnits = ESRI.ArcGIS.esriSystem.esriTimeUnits.esriTimeUnitsYears
      pTimeAnimProp.TimeOffset = System.DateTime.Now.Year - 2000
    Else
      MessageBox.Show("Before running this sample, load the associated file '" & filename & "'")
      Return
    End If

    Dim pActiveView As IActiveView = TryCast(pMap, IActiveView)
    pActiveView.Refresh()
  End Sub

  Protected Overrides Sub OnUpdate()
    Enabled = True
  End Sub
End Class