Commented Unassigned: Problems with Reprojections [25994]

I am working on a project that receives shapefiles in various projections that must be reprojected to the Google Mercator. I have tried to set the project to automatically reproject the shapefiles but it is failing. The ProjectionMismatch event fires but the LayerReprojected event never does. I checked the MaxReprojectionShapeCount in the GlobalSetting and it is less then the number of shapes in the file.

I have attached the shapefile I am trying to add.

Thanks for any help on this issue.

Imports MapWinGIS
Public Class Form1

Dim gs As New GlobalSettings

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim iLayer As Integer
Dim sf As New MapWinGIS.Shapefile

gs.ReprojectLayersOnAdding = True
gs.AllowLayersWithoutProjections = True
gs.AllowProjectionMismatch = False

AxMap1.Projection = tkMapProjection.PROJECTION_GOOGLE_MERCATOR

iLayer = AxMap1.AddLayerFromFilename("C:\Test\PAR_N.shp", tkFileOpenStrategy.fosAutoDetect, True)

If iLayer < 0 Then
MsgBox(AxMap1.get_ErrorMsg(AxMap1.LastErrorCode))
End If

AxMap1.ZoomToLayer(iLayer)
AxMap1.Redraw()

sf = AxMap1.get_Shapefile(iLayer)

End Sub
Private Sub AxMap1_ProjectionMismatch(sender As Object, e As AxMapWinGIS._DMapEvents_ProjectionMismatchEvent) Handles AxMap1.ProjectionMismatch

e.reproject = tkMwBoolean.blnTrue

End Sub
Private Sub AxMap1_LayerReprojected(sender As Object, e As AxMapWinGIS._DMapEvents_LayerReprojectedEvent) Handles AxMap1.LayerReprojected

MsgBox(e.success.ToString)

End Sub
End Class

Comments: Hi, try to add e.cancelAdding = tkMwBoolean.blnFalse after e.reproject = tkMwBoolean.blnTrue.