Hello
This is my Code......
Dim geoEngine = New GeoCodeEngine("C:\Program Files\ThinkGeo\Map Suite Geocode USA Evaluation Edition 2.0\GeoCodeIndex", False)
Dim geoCodeResult As New GeoCodeResult()
Dim geoCodeUSASettings = GetSettingsFromXML()
geoCodeResult = geoEngine.AdvancedGeoCode("1617 St. Andrews Dr.", "Lawrence", " KS", "66047", geoCodeUSASettings)
Dim Pp As New PointShape()
Pp.X = Convert.ToDouble(geoCodeResult.Longitude)
Pp.Y = Convert.ToDouble(geoCodeResult.Latitude)
ViewState("Pp") = Pp
Map1.MapUnit = GeographyUnit.DecimalDegree
'Map1.CurrentExtent = New RectangleShape(-97.68367, 30.29563, -97.67009, 30.28538)
'Map1.CurrentExtent = New RectangleShape(-180.0, 83.0, 180.0, -90.0)
'Map1.CurrentExtent = New RectangleShape(-170.0R, 80.0R, 170.0R, -80.0R)
Map1.CurrentExtent = New RectangleShape(-97.7458275477605, 30.2976947428081, -97.728208518133, 30.2851233270739)
Dim streetLayer As New ShapeFileFeatureLayer("C:\Program Files\ThinkGeo\Map Suite Web Evaluation Edition 3.0\Samples\VB Samples\SampleData\USA\Austin\austinstreets.shp")
streetLayer.ZoomLevelSet.ZoomLevel01.DefaultLineStyle = LineStyles.LocalRoad2
streetLayer.ZoomLevelSet.ZoomLevel01.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20
streetLayer.DrawingMarginPercentage = 80
Dim streetTxLayer As New ShapeFileFeatureLayer("C:\Program Files\ThinkGeo\Map Suite Web Evaluation Edition 3.0\Samples\VB Samples\SampleData\USA\Austin\austinstreets.shp")
streetTxLayer.ZoomLevelSet.ZoomLevel01.DefaultTextStyle = TextStyles.Highway5("FENAME")
streetTxLayer.ZoomLevelSet.ZoomLevel01.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20
streetTxLayer.DrawingMarginPercentage = 80
Dim rangeLayer As New InMemoryFeatureLayer()
rangeLayer.ZoomLevelSet.ZoomLevel01.DefaultPointStyle = PointStyles.CreateSimpleCircleStyle(GeoColor.SimpleColors.Red, 20)
rangeLayer.ZoomLevelSet.ZoomLevel01.DefaultAreaStyle.FillSolidBrush.Color = GeoColor.FromArgb(100, 200, 255, 200)
rangeLayer.ZoomLevelSet.ZoomLevel01.DefaultAreaStyle.OutlinePen.Color = GeoColor.StandardColors.LightGreen
rangeLayer.ZoomLevelSet.ZoomLevel01.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20
rangeLayer.InternalFeatures.Add(New Feature(Pp))
Map1.StaticOverlay.Layers.Add("StreetLayer", streetLayer)
Map1.StaticOverlay.Layers.Add("StreetTxLayer", streetTxLayer)
Map1.DynamicOverlay.Layers.Add("RangeLayer", rangeLayer)
Map1.MarkerOverlay.Columns.Add(New FeatureSourceColumn("FENAME"))
Map1.MarkerOverlay.ZoomLevelSet.ZoomLevel01.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20
Map1.CenterAt(Pp)
Map1.MapUnit = GeographyUnit.DecimalDegree
its not give any error but not showing a map please see the attach screen shop
Please help me what is problem in my code.
Thanks