TrackPan

Created:9/21/2000
Description:

There are two approaches to panning - TrackPan and the PanStart, PanMoveTo, and PanStop group. TrackPan is the easiest to use as it takes care of all the mouse events, performs the pan, and refreshes the display when the pan is complete.

See the Pan Tool tip for another pan sample that uses the PanStart approach. This sample also shows how to make a pan tool that works in all views and magnifier windows and works almost identically to ArcMap's pan tool.


How to use:
  1. Add a UIToolControl to any toolbar.
  2. Right-click on the tool and select view source.
  3. Paste the code below into VBA. Make sure the names of the UIControls matches.
  4. Close VBA to enable mouse events.
  5. Use the command to pan the focus map.
Option Explicit

Private Sub UIToolControl1_MouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long)
  Dim pScreenDisplay As IScreenDisplay
  Dim pActiveView As IActiveView
  Dim pMxDoc As IMxDocument
  
  Set pMxDoc = Application.Document
  Set pActiveView = pMxDoc.FocusMap
  Set pScreenDisplay = pActiveView.ScreenDisplay
  pScreenDisplay.TrackPan
End Sub