AfterViewChange event
Occurs when the view of the map has changed and the map is done repainting to that viewpoint.
Applies to
Objects: Map, MappointControl
Syntax
object.AfterViewChange
Parameters
Part | Description |
---|---|
object | An expression that evaluates to a Map or MappointControl object. |
Remarks
Setting the Projection property of the Map object causes the AfterViewChange event to occur, even though the map view may not appear to change.
Do not make this event infinitely recursive by calling itself or causing itself to be called.
Do not create a modal dialog box—including message boxes—during this event.
Example
Dim WithEvents objApp As MapPoint.Application
Dim WithEvents objMap As MapPoint.Map
Private Sub Form_Load()
'Set up the application
Set objApp = CreateObject("mappoint.application")
Set objMap = objApp.ActiveMap
objApp.Visible = True
objApp.UserControl = True
End Sub
Private Sub Command1_Click()
'Zoom in on the map
objMap.ZoomIn
End Sub
Private Sub objMap_AfterViewChange()
List1.AddItem "AfterViewChange event fired"
End Sub