AddSimplePointLayerCmd.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. ' 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.Geodatabase ''' <summary> ''' This command ''' </summary> <Guid("b358ec88-8304-4d19-a7af-80d63566e4d1"), ClassInterface(ClassInterfaceType.None), ProgId("SimplePointPlugin.AddSimplePointLayerCmd")> _ Public NotInheritable Class AddSimplePointLayerCmd 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) MxCommands.Register(regKey) 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) MxCommands.Unregister(regKey) ControlsCommands.Unregister(regKey) End Sub #End Region #End Region Private m_hookHelper As IHookHelper = Nothing Public Sub New() MyBase.m_category = ".NET Samples" MyBase.m_caption = "Add SimplePoint layer" MyBase.m_message = "Add SimplePoint layer data source to the map" MyBase.m_toolTip = "Add SimplePoint layer" MyBase.m_name = "SimplePointPlugin_AddSimplePointLayerCmd" 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 "Overridden 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 Try m_hookHelper = New HookHelperClass() m_hookHelper.Hook = hook If m_hookHelper.ActiveView Is Nothing Then m_hookHelper = Nothing End If Catch m_hookHelper = Nothing End Try If m_hookHelper Is Nothing Then MyBase.m_enabled = False Else MyBase.m_enabled = True End If End Sub ''' <summary> ''' Occurs when this command is clicked ''' </summary> Public Overrides Sub OnClick() Try Dim dlg As OpenSimplePointDlg = New OpenSimplePointDlg(m_hookHelper) dlg.Show() '//get the type using the ProgID 'Type t = Type.GetTypeFromProgID("esriGeoDatabase.SimplePointPluginWorkspaceFactory"); '//Use activator in order to create an instance of the workspace factory 'IWorkspaceFactory workspaceFactory = Activator.CreateInstance(t) as IWorkspaceFactory; 'string path = GetFileName(); 'if (string.Empty == path) ' return; '//open the workspace 'IFeatureWorkspace featureWorkspace = (IFeatureWorkspace)workspaceFactory.OpenFromFile(@"C:\Data\Data", 0); '//get a featureclass from the workspace 'IFeatureClass featureClass = featureWorkspace.OpenFeatureClass("points"); '//create a new feature layer and add it to the map 'IFeatureLayer featureLayer = new FeatureLayerClass(); 'featureLayer.Name = featureClass.AliasName; 'featureLayer.FeatureClass = featureClass; 'm_hookHelper.FocusMap.AddLayer((ILayer)featureLayer); Catch ex As Exception System.Diagnostics.Trace.WriteLine(ex.Message) End Try End Sub #End Region End Class