ZoomExtension

ZoomExtension.cs

using ESRI.ArcGIS.esriSystem;

namespace ZoomFactorExtensionCSharp
{
	public sealed class ZoomExtension : IExtension, IExtensionConfig, IZoomExtension
	{
		private double m_zoomFactor;
		private esriExtensionState m_extensionState; 

		public ZoomExtension()
		{

		}

		public void Shutdown()
		{
			//Not implemented
		}
	
		public void Startup(ref object initializationData)
		{
			//Default zoom factor
			m_zoomFactor = 2;
			//Default extension state is disabled
			m_extensionState = esriExtensionState.esriESDisabled;
		}
	
		public string Name
		{
			get
			{
				return "Zoom Factor Extension";
			}
		}
	
		public string Description
		{
			get
			{
				return "Variable ZoomExtension Sample";
			}
		}
	
		public string ProductName
		{
			get
			{
				return "ZoomExtension Sample";
			}
		}
	
		public esriExtensionState State
		{
			get
			{
				return m_extensionState;
			}
			set
			{
				m_extensionState = value;
			}
		}
	
		public double ZoomFactor
		{
			get
			{
				return m_zoomFactor;
			}
			set
			{
				m_zoomFactor = value;
			}
		}
	}
}

ZoomExtension.vb

Option Explicit On 

Imports ESRI.ArcGIS.esriSystem

Public Class ZoomExtension
    Implements IExtension
    Implements IExtensionConfig
    Implements IZoomExtension

    Dim m_zoomFactor As Double
    Dim m_extensionState As esriExtensionState

    Private ReadOnly Property IExtension_Name() As String Implements ESRI.ArcGIS.esriSystem.IExtension.Name
        Get
            Return "Zoom Factor Extension"
        End Get
    End Property

    Private Sub IExtension_Startup(ByRef initializationData As Object) Implements ESRI.ArcGIS.esriSystem.IExtension.Startup
        'Default zoom factor
        m_zoomFactor = 2
        'Default extension state is disabled
        m_extensionState = esriExtensionState.esriESDisabled
    End Sub

    Private Sub IExtension_Shutdown() Implements ESRI.ArcGIS.esriSystem.IExtension.Shutdown
        'Not implemented
    End Sub

    Private ReadOnly Property IExtensionConfig_Description() As String Implements ESRI.ArcGIS.esriSystem.IExtensionConfig.Description
        Get
            Return "Variable ZoomExtension Sample"
        End Get
    End Property

    Private ReadOnly Property IExtensionConfig_ProductName() As String Implements ESRI.ArcGIS.esriSystem.IExtensionConfig.ProductName
        Get
            Return "ZoomExtension Sample"
        End Get
    End Property

    Private Property IExtensionConfig_State() As ESRI.ArcGIS.esriSystem.esriExtensionState Implements ESRI.ArcGIS.esriSystem.IExtensionConfig.State
        Get
            Return m_extensionState
        End Get
        Set(ByVal Value As esriExtensionState)
            m_extensionState = Value
        End Set
    End Property

    Private Property IZoomExtension_ZoomFactor() As Double Implements IZoomExtension.ZoomFactor
        Get
            Return m_zoomFactor
        End Get
        Set(ByVal Value As Double)
            m_zoomFactor = Value
        End Set
    End Property


End Class