Cesar,
1. Reference the DLL FdoExtension, other wise you could not see the S57FeatureLayer class.
2. Copy the Folder MapSuiteFdoExtensionx86 from C:\Program Files\ThinkGeo\Map Suite Desktop Evaluation Edition 3.0\Developer Reference\System32 to “C:\WINDOWS\system32”
Private Sub ShowHideLayer_Load(ByVal sender As Object, ByVal e As EventArgs)
winformsMap1.MapUnit = GeographyUnit.DecimalDegree
winformsMap1.BackgroundOverlay.BackgroundBrush = New GeoSolidBrush(GeoColor.GeographicColors.ShallowOcean)
Dim fileName As String = "C:\Post7521\US4CN22M\US4CN22M\US4CN22M.000"
Dim s57FeatureLayer As S57FeatureLayer = New S57FeatureLayer(fileName, "FID", "OGRSchema", "Area")
s57FeatureLayer.ZoomLevelSet.ZoomLevel01.DefaultAreaStyle = AreaStyles.Country1
s57FeatureLayer.ZoomLevelSet.ZoomLevel01.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20
Dim staticOverlay As New LayerOverlay()
staticOverlay.Layers.Add("WorldLayer", s57FeatureLayer)
winformsMap1.Overlays.Add("WorldOverlay", staticOverlay)
winformsMap1.CurrentExtent = New RectangleShape(-139.2, 92.4, 120.9, -93.2)
s57FeatureLayer.Open()
winformsMap1.CurrentExtent = s57FeatureLayer.GetBoundingBox()
s57FeatureLayer.Close()
winformsMap1.Refresh()
End Sub
Any more questions just feel free to let me know.
Thanks.
Yale