ArcGIS Engine Developer Guide

BUILDING APPLICATIONS WITH ACTIVEX
' Set the line symbol properties.
pOutline.Width = 1.5
pOutline.Color = pColor
' Get the IFillSymbol interface.
Set m_pFillSymbol = New SimpleFillSymbol
' Set the fill symbol properties.
m_pFillSymbol.Outline = pOutline
m_pFillSymbol.Style = esriSFSHollow
End Sub
3. Call the CreateOverviewSymbol subroutine from the Form_Load event before
the TOCControl label editing code.
Private Sub Form_Load()
' Create symbol used on the MapControl.
CreateOverviewSymbol
' Set label editing to manual…
End if
4. The default event interface of the PageLayoutControl is the
IPageLayoutControlEvents. These events do not tell you when the extent of the
map within the data frame changes. To do this you will use the
ITransformEvents interface of the PageLayoutControl focus map. Add the
following code to the PageLayoutControl_OnPageLayoutReplaced event
directly above the load document code.
Private Sub PageLayoutControl1_OnPageLayoutReplaced(ByVal newPageLayout
As Variant)
' Get the IActiveView of the focus map in the PageLayoutControl.
Dim pActiveView As IActiveView
Set pActiveView = PageLayoutControl1.ActiveView.FocusMap
' Trap the ITransformEvents of the PageLayoutControl's focus map.
Set m_pTransformEvents = pActiveView.ScreenDisplay.DisplayTransformation
' Get the extent of the focus map.
Set m_pEnvelope = pActiveView.Extent
' Load the same preauthored map document into the MapControl.
MapControl1.LoadMxFile PageLayoutControl1.DocumentFilename
' Set the extent of the MapControl to the full extent of the data.
MapControl1.Extent = MapControl1.FullExtent
End Sub
5. Add the following code to the m_pTransformEvents_VisibleBoundsUpdated
event. This event is triggered whenever the extent of the map is changed and
is used to set the envelope to the new visible bounds of the map. By refreshing
the MapControl you force it to redraw the shape on its display.
Chapter 6 • Developer scenarios • 293