ThinkGeo.com    |     Documentation    |     Premium Support

TagPrefix not registered

#1

Hi everyone,


This is my first time on Mapsuite Web Edition, and it really looks fantastic with an amazing number of tools. But unfortunately for me i can't get pass a certain level, everytime i try to replicate the "Plot a point UsingLongLat" sample, it always brings out an error saying "Description panel control cannot be displayed because its TagPrefix is not registered to this web page".


 


Thanks for your swift response.



#2

Hello OBAFEMI, 
  
 Description panel is a simple panel we design for show the sample, so if you want to use it, you need refer them, you can find the source code for the description panel at “Helper” folder and you need put it into your project. 
  
 Let us know your queries. 
  
 Regards, 
  
 Gary

#3

Hi Gary,


Thanks for response, i have finally been able to resolve the description panel issue.


This is where i will need your help by reviewing this codes for me. I'm trying to add markers on my shapefiles.


Thanks once more.


 


 

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load



        If Not Page.IsPostBack Then

            Map1.MapBackground.BackgroundBrush = New GeoSolidBrush(GeoColor.FromHtml("#E5E3DF"))

            Map1.MapTools.ScaleLine.Enabled = True

            Map1.CurrentExtent = New RectangleShape(2.0, 14.0, 13.0, 4.0)

            Map1.MapUnit = GeographyUnit.DecimalDegree

            Map1.MapTools.MouseCoordinate.Enabled = True

            Map1.MapTools.MouseMapTool.Enabled = True



            Dim worldLayer As New ShapeFileFeatureLayer(MapPath("~/Huaweii/Nigeria.shp"))

            worldLayer.ZoomLevelSet.ZoomLevel01.DefaultAreaStyle = AreaStyles.Water1

            worldLayer.ZoomLevelSet.ZoomLevel01.DefaultTextStyle = TextStyles.Water1("NAME")

            worldLayer.ZoomLevelSet.ZoomLevel01.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20



            worldLayer.RequireIndex = False





            Dim tower As New ShapeFileFeatureLayer(MapPath("~/Huaweii/Cells.shp"))

            tower.ZoomLevelSet.ZoomLevel05.DefaultPointStyle = PointStyles.City2

            tower.ZoomLevelSet.ZoomLevel05.DefaultTextStyle = New TextStyle("Descriptio", New GeoFont("Verdana", 5), New GeoSolidBrush(GeoColor.StandardColors.Black))

            '   tower.ZoomLevelSet.ZoomLevel05.DefaultTextStyle.HaloPen = New GeoPen(GeoColor.StandardColors.Chocolate, 2)

            tower.ZoomLevelSet.ZoomLevel05.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20

            tower.DrawingMarginPercentage = 50

            tower.RequireIndex = False

















            Dim streetsLayer As New ShapeFileFeatureLayer(MapPath("~/Huaweii/nigeria rds.shp"))

            streetsLayer.ZoomLevelSet.ZoomLevel10.DefaultLineStyle = LineStyles.LocalRoad3

            streetsLayer.ZoomLevelSet.ZoomLevel10.DefaultTextStyle = New TextStyle("ROAD_NAME", New GeoFont("Verdana", 16), New GeoSolidBrush(GeoColor.StandardColors.Black))

            streetsLayer.ZoomLevelSet.ZoomLevel10.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20

            streetsLayer.RequireIndex = False



            ''''''''''''''''''''''''''''''



            Map1.StaticOverlay.Layers.Add("WorldLayer", worldLayer)

            Map1.StaticOverlay.Layers.Add("Tower", tower)

            Map1.StaticOverlay.Layers.Add("StreetsLayer", streetsLayer)





            Dim markerOverlay As New InMemoryMarkerOverlay()

            markerOverlay.ZoomLevelSet.ZoomLevel01.DefaultMarkerStyle.WebImage.ImageWidth = 21

            markerOverlay.ZoomLevelSet.ZoomLevel01.DefaultMarkerStyle.WebImage.ImageHeight = 25

            markerOverlay.ZoomLevelSet.ZoomLevel01.DefaultMarkerStyle.WebImage.ImageOffsetX = -10.5F

            markerOverlay.ZoomLevelSet.ZoomLevel01.DefaultMarkerStyle.WebImage.ImageOffsetY = -25.0F

            markerOverlay.ZoomLevelSet.ZoomLevel01.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20

        End If







 Private Sub Map1_Click(ByVal sender As Object, ByVal e As ThinkGeo.MapSuite.WebEdition.MapClickedEventArgs) Handles Map1.Click

        DirectCast(Map1.CustomOverlays(1), InMemoryMarkerOverlay).Features.Add("marker" + DateTime.Now.ToString("mmssms"), New Feature(e.Position))

    End Sub



#4

Hi Obafemi,



Thanks for your code, I reviewed it, and find that you didn't add the new InMemoryMarkerOverlay to your Map control(Map1). So, you can add following code above "End If" in Page_Load Sub


Map1.CustomOverlays.Add(markerOverlay)


Then, change your Map1_Click Sub with following codes:


Private Sub Map1_Click(ByVal sender As Object, ByVal e As ThinkGeo.MapSuite.WebEdition.MapClickedEventArgs) Handles Map1.Click


        DirectCast(Map1.CustomOverlays(0), InMemoryMarkerOverlay).Features.Add("marker" + DateTime.Now.ToString("mmssms"), New Feature(e.Position))


End Sub


 
Hope it helps,
Edgar