Extension\ZoomOut.vb
' Copyright 2012 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. ' Option Explicit On Imports ESRI.ArcGIS.Carto Imports ESRI.ArcGIS.Geometry Imports ESRI.ArcGIS.esriSystem Imports ESRI.ArcGIS.Controls Imports ESRI.ArcGIS.ADF.BaseClasses Imports ESRI.ArcGIS.ADF.CATIDs Imports System.Runtime.InteropServices <ComClass(ZoomOut.ClassId, ZoomOut.InterfaceId, ZoomOut.EventsId)> _ Public NotInheritable Class ZoomOut Inherits BaseCommand Private m_Hookhelper As IHookHelper #Region "COM GUIDs" ' These GUIDs provide the COM identity for this class ' and its COM interfaces. If you change them, existing ' clients will no longer be able to access the class. Public Const ClassId As String = "11becc11-216b-490c-b3c8-ca4a2896acaa" Public Const InterfaceId As String = "e9048f72-46ab-4991-9459-2e1a96b67688" Public Const EventsId As String = "1fde3753-2c8a-41f7-a88b-49546abd5ef8" #End Region #Region "Component Category Registration" <ComRegisterFunction()> _ Public Shared Sub Reg(ByVal regKey As String) ControlsCommands.Register(regKey) End Sub <ComUnregisterFunction()> _ Public Shared Sub Unreg(ByVal regKey As String) ControlsCommands.Unregister(regKey) End Sub #End Region Public Sub New() MyBase.New() 'Create an IHookHelper object m_Hookhelper = New HookHelperClass 'Set the command properties MyBase.m_caption = "Variable Zoom Out" MyBase.m_message = "Variable Zoom Out" MyBase.m_toolTip = "Variable Zoom Out" MyBase.m_category = "ZoomExtension Sample(VB.NET)" MyBase.m_name = "ZoomExtension Sample(VB.NET)_Variable Zoom Out" MyBase.m_bitmap = New System.Drawing.Bitmap(GetType(ZoomOut).Assembly.GetManifestResourceStream(GetType(ZoomOut), "zoomoutfxd.bmp")) End Sub Public Overrides ReadOnly Property Enabled() As Boolean Get 'Get the extension manager Dim pExtensionManager As IExtensionManager = New ExtensionManagerClass 'Get the extension from the extension manager Dim pExtension As IExtension pExtension = pExtensionManager.FindExtension("Zoom Factor Extension") 'Get the state of the extension Dim pExtensionConfig As IExtensionConfig pExtensionConfig = pExtension If (Not pExtensionConfig Is Nothing) Then If (pExtensionConfig.State = esriExtensionState.esriESEnabled) Then Return True Else Return False End If Else Return False End If End Get End Property Public Overrides Sub OnCreate(ByVal hook As Object) m_Hookhelper.Hook = hook End Sub Public Overrides Sub OnClick() 'Get the current extent of the active view Dim pActiveView As IActiveView pActiveView = m_Hookhelper.ActiveView Dim pEnvelope As IEnvelope pEnvelope = pActiveView.Extent 'Get the extension manager Dim pExtensionManager As ExtensionManager pExtensionManager = New ExtensionManagerClass 'Get the extension from the extension manager Dim pExtension As IExtension pExtension = pExtensionManager.FindExtension("Zoom Factor Extension") 'Get the zoom factor from the extension Dim ZoomFactor As Double ZoomFactor = 1.1 Dim pZoomExtension As IZoomExtension If (Not pExtension Is Nothing) Then pZoomExtension = pExtension ZoomFactor = pZoomExtension.ZoomFactor Else System.Windows.Forms.MessageBox.Show("The extension cannot be found!") End If 'Update the current extent of the active view pEnvelope.Expand(ZoomFactor, ZoomFactor, True) pActiveView.Extent = pEnvelope pActiveView.Refresh() End Sub End Class