VDS Technologies

 

Hotspots problem

5/30/2014 10:27:23 AM
Total Posts 1

Hotspots problem

Hi

 

I create hotspots but they do not show on map, or I can not click on them, code below

all my layers are created from shape files

 

In debug I can see the values in the hotspots.addinfo

 

Private Sub AddTooltips()
    Dim objLayer As clsLayer
    Dim strArgument As String
    Dim strToolTip As String
    Dim intLayerRecord As Integer
    Dim rstAllShapes As AspMap.Recordset

    amMap.Hotspots.Clear()

    amMap.TooltipStyle.BackColor = Color.LightYellow
    amMap.TooltipStyle.Width = Unit.Pixel(220)

    For Each amLayer As AspMap.Layer In amMap
      objLayer = objLayerList.Layers.Find(Function(x) x.Name = amLayer.Name)
      
      If amLayer.Visible AndAlso objLayer.Queryable Then
        rstAllShapes = amLayer.SearchShape(amLayer.Extent, SearchMethod.Inside)
        'rstAllShapes = amMap(amLayer.Name).SearchShape(amMap.Extent, SearchMethod.Inside)
        rstAllShapes.MoveFirst()
        For intLayerRecord = 0 To rstAllShapes.RecordCount - 1
          strArgument = ""
          strToolTip = ""
          Select Case objLayer.LayerType
            Case AtlasLayerType.Blocks
              strArgument = CStr(rstAllShapes.Fields.Item(11).Value)
              strToolTip = CStr(rstAllShapes.Fields.Item(8).Value)
            Case AtlasLayerType.Discoveries
              strArgument = CStr(rstAllShapes.Fields.Item(4).Value)
              strToolTip = CStr(rstAllShapes.Fields.Item(0).Value)
            Case AtlasLayerType.Fields
              strArgument = CStr(rstAllShapes.Fields.Item(5).Value)
              strToolTip = CStr(rstAllShapes.Fields.Item(0).Value)
            Case AtlasLayerType.PlannedWells
              strArgument = CStr(rstAllShapes.Fields.Item(12).Value)
              strToolTip = CStr(rstAllShapes.Fields.Item(0).Value)
            Case AtlasLayerType.RecentWells
              strArgument = CStr(rstAllShapes.Fields.Item(13).Value)
              strToolTip = CStr(rstAllShapes.Fields.Item(0).Value)
            Case AtlasLayerType.HistoricWells
              strArgument = CStr(rstAllShapes.Fields.Item(13).Value)
              strToolTip = CStr(rstAllShapes.Fields.Item(0).Value)
          End Select
          amMap.Hotspots.AddInfo(rstAllShapes.RecordExtent.Center, 9, strToolTip, strArgument)
         
          rstAllShapes.MoveNext()
        Next

      End If
      objLayer = Nothing
    Next

end sub

 

 

Thanks

 

 

Rob

 

 

5/30/2014 11:39:17 AM
MVP
Total Posts 323

Re: Hotspots problem

This may happen if Map.CoordinateSystem is set to a different coordinate system than the layers. Please provide more information.