Latest Contributions by KenBuja

Why not just use the feature's Shape property to get a geometry, which has the GeometryType property? ... View more

This is something that's bitten me when using ViewStacks. You have to set the the ViewStack's creationPolicy to "all", otherwise, many things that are contained in the stack won't be created at startup. From the help: Containers with multiple views, such as the ViewStack and Accordion, do  not immediately create all of their descendants, but only those  descendants that are visible in the initial view. Flex defers the  instantiation of descendants that are not initially visible until the  user navigates to a view that contains them. ... View more

Here is how I create an in-memory feature class in my projects, using the Geoprocessor. 'pSR is a variable containing a spatial reference 'in this case, I'm creating an in-memory point feature class pFeatureClass = CreateInMemoryFeatureClass2("temporary", ESRI.ArcGIS.Geometry.esriGeometryType.esriGeometryPoint, pSR)     Public Function CreateInMemoryFeatureClass2(ByVal Name As String, InShapeType As ESRI.ArcGIS.Geometry.esriGeometryType, InSR As ESRI.ArcGIS.Geometry.ISpatialReference3) As ESRI.ArcGIS.Geodatabase.IFeatureClass          Dim CreateFC As New ESRI.ArcGIS.DataManagementTools.CreateFeatureclass         Dim ShapeType As String         Dim Result As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2          Try             Using releaser As New ESRI.ArcGIS.ADF.ComReleaser                 releaser.ManageLifetime(CreateFC)                  Select Case InShapeType                     Case ESRI.ArcGIS.Geometry.esriGeometryType.esriGeometryPoint                         ShapeType = "Point"                     Case ESRI.ArcGIS.Geometry.esriGeometryType.esriGeometryPolyline                         ShapeType = "Line"                     Case ESRI.ArcGIS.Geometry.esriGeometryType.esriGeometryPolygon                         ShapeType = "Polygon"                     Case Else                         Return Nothing                 End Select                  CreateFC.out_path = "in_memory"                 CreateFC.out_name = Name                 CreateFC.geometry_type = ShapeType                 CreateFC.spatial_reference = InSR                  Result = RunTool(CreateFC, Nothing)                 If Result Is Nothing Then                     System.Windows.Forms.MessageBox.Show("Could not create InMemory dataset")                     Return Nothing                 End If                  Return ReturnObjectfromResult(Result, "Feature Class")             End Using          Catch ex As Exception             System.Windows.Forms.MessageBox.Show(ex.ToString, "Create InMemory Featureclass error")             Return Nothing         End Try      End Function     Friend Function ReturnObjectfromResult(ByVal result As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2, ByVal Type As String) As Object          Dim GPVal As ESRI.ArcGIS.Geodatabase.IGPValue         Dim InMemFC As String         Dim GPUtil As ESRI.ArcGIS.Geoprocessing.IGPUtilities3 = New ESRI.ArcGIS.Geoprocessing.GPUtilities          Try             GPVal = result.GetOutput(0)             InMemFC = GPVal.GetAsText()              Select Case Type                 Case "Feature Class"                     Return GPUtil.OpenFeatureClassFromString(InMemFC)                 Case "Table"                     Return GPUtil.OpenTableFromString(InMemFC)             End Select          Catch ex As Exception             System.Windows.Forms.MessageBox.Show(ex.ToString, "Return FeatureClass error")             Return Nothing         End Try      End Function      Friend Function RunTool(ByVal Process As ESRI.ArcGIS.Geoprocessor.IGPProcess, ByVal TC As ESRI.ArcGIS.esriSystem.ITrackCancel2) As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2          Dim Result As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2         Dim GP As New ESRI.ArcGIS.Geoprocessor.Geoprocessor          Try             Result = CType(GP.Execute(Process, Nothing), ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2)             If Result.Status <> ESRI.ArcGIS.esriSystem.esriJobStatus.esriJobSucceeded Then ReturnMessages(Result, "Geoprocessing Error")          Catch ex As Exception             System.Windows.Forms.MessageBox.Show(ex.ToString, "Run Geoprocessor")         End Try          Return Result      End Function      Private Sub ReturnMessages(ByVal pResult As ESRI.ArcGIS.Geoprocessing.IGeoProcessorResult2, ByVal Title As String)          Dim ErrorMessage As String          If pResult.MessageCount > 0 Then             For Count As Integer = 0 To pResult.MessageCount - 1                 ErrorMessage += pResult.GetMessage(Count)             Next         End If          System.Windows.Forms.MessageBox.Show(ErrorMessage, Title)      End Sub  ... View more

You can check the edit state by using IEditor::Editstate. An example to check whether an edit session has been started on the selected map: If My.ArcMap.Editor.EditState <> ESRI.ArcGIS.Editor.esriEditState.esriStateEditing then As for ArcMap crashing, do you use Try..Catch exception handling? ... View more

You left off the quotes and if you're using the Create File Geodatabase command, the geodatabase should have the suffix "gdb". arcpy.CreateFileGDB_management ("C:/Pru", "Dad.gdb", "9.3") ... View more

Instead of adding the MouseEvent.Click event, you should add the MapMouseEvent.MAP_CLICK event ... View more

I notice that you don't have the line Inherits ESRI.ArcGIS.Desktop.AddIns.Extension in your code. This was included in your previous code attachment Also, you'll need to add the line pFeature = pEnumFeature.Next before you start the Do Loop. ... View more