ArcGIS Engine Developer Guide

BUILDING APPLICATIONS WITH ACTIVEX
Private Sub m_pTransformEvents_VisibleBoundsUpdated(ByVal sender As
esriDisplay.IDisplayTransformation, ByVal sizeChanged As Boolean)
' Set the extent to the new visible extent.
Set m_pEnvelope = sender.VisibleBounds
' Refresh the MapControl's foreground phase.
MapControl1.Refresh esriViewForeground
End Sub
6. Add the following code to the MapControl_OnAfterDraw event to draw the
envelope with the symbol you created earlier onto the MapControl display.
Private Sub MapControl1_OnAfterDraw(ByVal display As Variant, ByVal
viewDrawPhase As Long)
If m_pEnvelope Is Nothing Then Exit Sub
' If the foreground phase has drawn
Dim pViewDrawPhase As esriViewDrawPhase
pViewDrawPhase = viewDrawPhase
If pViewDrawPhase = esriViewForeground Then
' Draw the shape on the MapControl.
MapControl1.DrawShape m_pEnvelope, m_pFillSymbol
End If
End Sub
7. Run the application. Use the map navigation tools that you added earlier to
change the extent of the focus map in the PageLayoutControl. The new
extent is drawn on the MapControl.
294 • ArcGIS Engine Developer Guide