I've added the following code to allow for different features to be highlighted as a person zooms in/out.
Protected Sub Map1_ExtentChanged(ByVal sender As Object, ByVal e As ThinkGeo.MapSuite.WebEdition.ExtentChangedEventArgs) Handles Map1.ExtentChanged
Dim tmpOverlay As LayerOverlay
If Map1.CurrentScale > 300000 Then
tmpOverlay = Map1.CustomOverlays("Township")
SetHighlights(0, tmpOverlay.Layers("Township"))
Else
tmpOverlay = Map1.CustomOverlays("Quarter")
SetHighlights(1, tmpOverlay.Layers("Quarter"))
End If
End Sub
Now, when I zoom out, everything goes white first, then it redraws. Unless I'm trying to zoom in, in which case it zooms out.
VERY annoying.
If I comment out the code and just leave the empty event handler, it stills does the same thing.
Is there a Parent handler I need to call or something?