Pan Buttons

The sample illustrates how to use buttons at standard directions around a map to pan in the direction of the button that was clicked.

XAML

<UserControl x:Class="ArcGISWPFSDK.LocalPanButtons"
             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
             xmlns:esri="http://schemas.esri.com/arcgis/client/2009">
    <Grid x:Name="LayoutRoot">
        <esri:Map x:Name="MyMap" WrapAround="True" Extent="-15000000,2000000,-7000000,8000000" Background="#FFE3E3E3" RenderTransformOrigin="0.5,0.5" MinimumResolution="2445.98490512499">
            <esri:ArcGISLocalTiledLayer ID="BaseMap" Path="..\\Data\\TPKs\\Topographic.tpk"/>
            <esri:Map.RenderTransform>
                <ScaleTransform ScaleX="0.94" ScaleY="0.9" />
            </esri:Map.RenderTransform>
        </esri:Map>
        <Button FontFamily="Webdings" FontSize="24" Content="3" Tag="W" Height="35" 
                HorizontalAlignment="Left" VerticalAlignment="Center" Width="35" Click="PanClick" />
        <Button FontFamily="Webdings" FontSize="24" Content="4" Tag="E" Height="35" 
                HorizontalAlignment="Right" VerticalAlignment="Center" Width="35" Click="PanClick" />
        <Button FontFamily="Webdings" FontSize="24" Content="5" Tag="N" Height="35" 
                HorizontalAlignment="Center" VerticalAlignment="Top" Width="35" Click="PanClick" />
        <Button FontFamily="Webdings" FontSize="24" Content="6" Tag="S" Height="35" 
                HorizontalAlignment="Center" VerticalAlignment="Bottom" Width="35" Click="PanClick" />
        <Button Tag="NE" Height="35" HorizontalAlignment="Right" VerticalAlignment="Top" Width="35" Click="PanClick" >
            <Button.Content>
                <TextBlock FontFamily="Webdings" FontSize="24" Text="5" RenderTransformOrigin="0.5,0.5" >
                    <TextBlock.RenderTransform>
                        <RotateTransform  Angle="45"/>
                    </TextBlock.RenderTransform>
                </TextBlock>
            </Button.Content>
        </Button>
        <Button Tag="SE" Height="35" HorizontalAlignment="Right" VerticalAlignment="Bottom"  Width="35" Click="PanClick" >
            <Button.Content>
                <TextBlock FontFamily="Webdings" FontSize="24" Text="5" RenderTransformOrigin="0.5,0.5" >
                    <TextBlock.RenderTransform>
                        <RotateTransform  Angle="135"/>
                    </TextBlock.RenderTransform>
                </TextBlock>
            </Button.Content>
        </Button>
        <Button Tag="SW" Height="35" HorizontalAlignment="Left" VerticalAlignment="Bottom" Width="35" Click="PanClick" >
            <Button.Content>
                <TextBlock FontFamily="Webdings" FontSize="24" Text="5" RenderTransformOrigin="0.5,0.5" >
                    <TextBlock.RenderTransform>
                        <RotateTransform  Angle="225"/>
                    </TextBlock.RenderTransform>
                </TextBlock>
            </Button.Content>
        </Button>
        <Button Tag="NW" Height="35" Width="35" HorizontalAlignment="Left" VerticalAlignment="Top" Click="PanClick" >
            <Button.Content>
                <TextBlock FontFamily="Webdings" FontSize="24" Text="5" RenderTransformOrigin="0.5,0.5" >
                    <TextBlock.RenderTransform>
                        <RotateTransform  Angle="315"/>
                    </TextBlock.RenderTransform>
                </TextBlock>
            </Button.Content>
        </Button>
    </Grid>
</UserControl>

C#

using System.Windows;
using System.Windows.Controls;
using ESRI.ArcGIS.Client.Geometry;

namespace ArcGISWPFSDK
{
    public partial class LocalPanButtons : UserControl
    {
        public LocalPanButtons()
        {
            InitializeComponent();
        }

        private void PanClick(object sender, RoutedEventArgs e)
        {
            Envelope extent = MyMap.Extent;
            if (extent == null) return;
            MapPoint center = extent.GetCenter();

            switch ((sender as Button).Tag.ToString())
            {
                case "W":
                    MyMap.PanTo(new MapPoint(extent.XMin, center.Y)); break;
                case "E":
                    MyMap.PanTo(new MapPoint(extent.XMax, center.Y)); break;
                case "N":
                    MyMap.PanTo(new MapPoint(center.X, extent.YMax)); break;
                case "S":
                    MyMap.PanTo(new MapPoint(center.X, extent.YMin)); break;
                case "NE":
                    MyMap.PanTo(new MapPoint(extent.XMax, extent.YMax)); break;
                case "SE":
                    MyMap.PanTo(new MapPoint(extent.XMax, extent.YMin)); break;
                case "SW":
                    MyMap.PanTo(new MapPoint(extent.XMin, extent.YMin)); break;
                case "NW":
                    MyMap.PanTo(new MapPoint(extent.XMin, extent.YMax)); break;
                default: break;
            }
        }
    }
}

VB.NET

Imports System.Windows
Imports System.Windows.Controls
Imports ESRI.ArcGIS.Client.Geometry

Namespace ArcGISWPFSDK
    Partial Public Class LocalPanButtons
        Inherits UserControl
        Public Sub New()
            InitializeComponent()
        End Sub

        Private Sub PanClick(sender As Object, e As RoutedEventArgs)
            Dim extent As Envelope = MyMap.Extent
            If extent Is Nothing Then
                Return
            End If
            Dim center As MapPoint = extent.GetCenter()

            Select Case TryCast(sender, Button).Tag.ToString()
                Case "W"
                    MyMap.PanTo(New MapPoint(extent.XMin, center.Y))
                    Exit Select
                Case "E"
                    MyMap.PanTo(New MapPoint(extent.XMax, center.Y))
                    Exit Select
                Case "N"
                    MyMap.PanTo(New MapPoint(center.X, extent.YMax))
                    Exit Select
                Case "S"
                    MyMap.PanTo(New MapPoint(center.X, extent.YMin))
                    Exit Select
                Case "NE"
                    MyMap.PanTo(New MapPoint(extent.XMax, extent.YMax))
                    Exit Select
                Case "SE"
                    MyMap.PanTo(New MapPoint(extent.XMax, extent.YMin))
                    Exit Select
                Case "SW"
                    MyMap.PanTo(New MapPoint(extent.XMin, extent.YMin))
                    Exit Select
                Case "NW"
                    MyMap.PanTo(New MapPoint(extent.XMin, extent.YMax))
                    Exit Select
                Case Else
                    Exit Select
            End Select
        End Sub
    End Class
End Namespace