About the Dynamic cache layer manager controller Sample
[C#]
CacheLayerManagerCmd.cs
using System; using System.Drawing; using System.Windows.Forms; using System.Runtime.InteropServices; using ESRI.ArcGIS.ADF.BaseClasses; using ESRI.ArcGIS.ADF.CATIDs; using ESRI.ArcGIS.Controls; using ESRI.ArcGIS.Carto; using ESRI.ArcGIS.Display; namespace DynamicCacheLayerManagerController { /// <summary> /// Summary description for CacheLayerManagerCmd. /// </summary> [Guid("a59082a3-7f81-459d-8dd7-af0eb57bf3a8")] [ClassInterface(ClassInterfaceType.None)] [ProgId("DynamicCacheLayerManagerController.CacheLayerManagerCmd")] public sealed class CacheLayerManagerCmd : BaseCommand { #region COM Registration Function(s) [ComRegisterFunction()] [ComVisible(false)] static void RegisterFunction(Type registerType) { // Required for ArcGIS Component Category Registrar support ArcGISCategoryRegistration(registerType); // // TODO: Add any COM registration code here // } [ComUnregisterFunction()] [ComVisible(false)] static void UnregisterFunction(Type registerType) { // Required for ArcGIS Component Category Registrar support ArcGISCategoryUnregistration(registerType); // // TODO: Add any COM unregistration code here // } #region ArcGIS Component Category Registrar generated code /// <summary> /// Required method for ArcGIS Component Category registration - /// Do not modify the contents of this method with the code editor. /// </summary> private static void ArcGISCategoryRegistration(Type registerType) { string regKey = string.Format("HKEY_CLASSES_ROOT\\CLSID\\{{{0}}}", registerType.GUID); ControlsCommands.Register(regKey); } /// <summary> /// Required method for ArcGIS Component Category unregistration - /// Do not modify the contents of this method with the code editor. /// </summary> private static void ArcGISCategoryUnregistration(Type registerType) { string regKey = string.Format("HKEY_CLASSES_ROOT\\CLSID\\{{{0}}}", registerType.GUID); ControlsCommands.Unregister(regKey); } #endregion #endregion private IHookHelper m_hookHelper; public CacheLayerManagerCmd() { base.m_category = ".NET Samples"; base.m_caption = "Dynamic cache layer manager"; base.m_message = "Dynamic cache layer manager"; base.m_toolTip = "Dynamic cache layer manager"; base.m_name = "ynamicCacheLayerManagerController_CacheLayerManagerCmd"; try { string bitmapResourceName = GetType().Name + ".bmp"; base.m_bitmap = new Bitmap(GetType(), bitmapResourceName); } catch (Exception ex) { System.Diagnostics.Trace.WriteLine(ex.Message, "Invalid Bitmap"); } } #region Overriden Class Methods /// <summary> /// Occurs when this command is created /// </summary> /// <param name="hook">Instance of the application</param> public override void OnCreate(object hook) { if (hook == null) return; if (m_hookHelper == null) m_hookHelper = new HookHelperClass(); m_hookHelper.Hook = hook; } /// <summary> /// Occurs when this command is clicked /// </summary> public override void OnClick() { // work only in dynamic mode IDynamicMap dynamicMap = m_hookHelper.FocusMap as IDynamicMap; if (dynamicMap == null || !dynamicMap.DynamicMapEnabled) { MessageBox.Show("Please enable dynamic mode and try again."); return; } CacheManagerDlg cacheMgrDlg = new CacheManagerDlg(m_hookHelper); ; cacheMgrDlg.ShowDialog(); } #endregion } }
[Visual Basic .NET]
CacheLayerManagerCmd.vb
Imports Microsoft.VisualBasic Imports System Imports System.Drawing Imports System.Windows.Forms Imports System.Runtime.InteropServices Imports ESRI.ArcGIS.ADF.BaseClasses Imports ESRI.ArcGIS.ADF.CATIDs Imports ESRI.ArcGIS.Controls Imports ESRI.ArcGIS.Carto Imports ESRI.ArcGIS.Display ''' <summary> ''' Summary description for CacheLayerManagerCmd. ''' </summary> <Guid("a59082a3-7f81-459d-8dd7-af0eb57bf3a8"), ClassInterface(ClassInterfaceType.None), ProgId("DynamicCacheLayerManagerController.CacheLayerManagerCmd")> _ Public NotInheritable Class CacheLayerManagerCmd : Inherits BaseCommand #Region "COM Registration Function(s)" <ComRegisterFunction(), ComVisible(False)> _ Private Shared Sub RegisterFunction(ByVal registerType As Type) ' Required for ArcGIS Component Category Registrar support ArcGISCategoryRegistration(registerType) ' ' TODO: Add any COM registration code here ' End Sub <ComUnregisterFunction(), ComVisible(False)> _ Private Shared Sub UnregisterFunction(ByVal registerType As Type) ' Required for ArcGIS Component Category Registrar support ArcGISCategoryUnregistration(registerType) ' ' TODO: Add any COM unregistration code here ' End Sub #Region "ArcGIS Component Category Registrar generated code" ''' <summary> ''' Required method for ArcGIS Component Category registration - ''' Do not modify the contents of this method with the code editor. ''' </summary> Private Shared Sub ArcGISCategoryRegistration(ByVal registerType As Type) Dim regKey As String = String.Format("HKEY_CLASSES_ROOT\CLSID\{{{0}}}", registerType.GUID) ControlsCommands.Register(regKey) End Sub ''' <summary> ''' Required method for ArcGIS Component Category unregistration - ''' Do not modify the contents of this method with the code editor. ''' </summary> Private Shared Sub ArcGISCategoryUnregistration(ByVal registerType As Type) Dim regKey As String = String.Format("HKEY_CLASSES_ROOT\CLSID\{{{0}}}", registerType.GUID) ControlsCommands.Unregister(regKey) End Sub #End Region #End Region Private m_hookHelper As IHookHelper Public Sub New() MyBase.m_category = ".NET Samples" MyBase.m_caption = "Dynamic cache layer manager" MyBase.m_message = "Dynamic cache layer manager" MyBase.m_toolTip = "Dynamic cache layer manager" MyBase.m_name = "CacheLayerManagerCmd" Try Dim bitmapResourceName As String = Me.GetType().Name & ".bmp" MyBase.m_bitmap = New Bitmap(Me.GetType(), bitmapResourceName) Catch ex As Exception System.Diagnostics.Trace.WriteLine(ex.Message, "Invalid Bitmap") End Try End Sub #Region "Overriden Class Methods" ''' <summary> ''' Occurs when this command is created ''' </summary> ''' <param name="hook">Instance of the application</param> Public Overrides Sub OnCreate(ByVal hook As Object) If hook Is Nothing Then Return End If If m_hookHelper Is Nothing Then m_hookHelper = New HookHelperClass() End If m_hookHelper.Hook = hook End Sub ''' <summary> ''' Occurs when this command is clicked ''' </summary> Public Overrides Sub OnClick() ' work only in dynamic mode Dim dynamicMap As IDynamicMap = TryCast(m_hookHelper.FocusMap, IDynamicMap) If dynamicMap Is Nothing OrElse (Not dynamicMap.DynamicMapEnabled) Then MessageBox.Show("Please enable dynamic mode and try again.") Return End If Dim cacheMgrDlg As CacheManagerDlg = New CacheManagerDlg(m_hookHelper) cacheMgrDlg.ShowDialog() End Sub #End Region End Class