Developing an application in VB.NET some technical difficulties occurred.
Aim of the application is to add an existing *.lyr file to ArcMap using a VB.NET application and a DLL integrated in ArcMap.
Using the VB.NET application to initiate the DLL integrated in ArcMap an error occurred and ArcMap will shut down.
The source code used is listened below:
Public Sub AddLayerToActiveView(ByVal activeView As ESRI.ArcGIS.Carto.IActiveView, ByVal layerPathFile As System.String)
If activeView Is Nothing OrElse layerPathFile Is Nothing OrElse (Not layerPathFile.EndsWith(".lyr")) Then
Return
End If
' Create a new GxLayer
Dim gxLayer As ESRI.ArcGIS.Catalog.IGxLayer = New ESRI.ArcGIS.Catalog.GxLayerClass
Dim gxFile As ESRI.ArcGIS.Catalog.IGxFile = CType(gxLayer, ESRI.ArcGIS.Catalog.IGxFile) 'Explicit Cast
' Set the path for where the layerfile is located on disk
gxFile.Path = layerPathFile
' Test if we have a valid layer and add it to the map
If Not (gxLayer.Layer Is Nothing) Then
Dim map As ESRI.ArcGIS.Carto.IMap = activeView.FocusMap
gxLayer.Layer.Name = layerPathFile
map.AddLayer(gxLayer.Layer)
End If
End Sub
''' Aufruf AddLayerToActiveView mit Parametern
Dim myactiveView As IActiveView = GetActiveViewFromArcMap(My.ArcMap.Application)
Call AddLayerToActiveView(myactiveView, "M:\test\XY200.lyr")
''''
''' Funktion zur Rückgabe von ActiveView
Public Function GetActiveViewFromArcMap(ByVal application As ESRI.ArcGIS.Framework.IApplication) As ESRI.ArcGIS.Carto.IActiveView
If application Is Nothing Then
Return Nothing
End If
Dim mxDocument As ESRI.ArcGIS.ArcMapUI.IMxDocument = TryCast(application.Document, ESRI.ArcGIS.ArcMapUI.IMxDocument) ' Dynamic Cast
Dim activeView As ESRI.ArcGIS.Carto.IActiveView = mxDocument.ActiveView
Return activeView
End Function
Is it possible to initiate a DLL integrated in ArcMap by a standalone-application?
Any help would be appreciated.
Thank you
