S57 Search

This sample shows how to use the the SearchAsync method to search an HydrographicS57Layer based on an input geometry and a buffer distance.

XAML

<UserControl x:Class="ArcGISWPFSDK.S57Search"
             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
             xmlns:esri="http://schemas.esri.com/arcgis/client/2009"
             xmlns:local="clr-namespace:ArcGISWPFSDK">
    <Grid>
        <Grid.Resources>
            <Style TargetType="ListBoxItem">
                <Setter Property="Template">
                    <Setter.Value>
                        <ControlTemplate TargetType="ListBoxItem">
                            <Border x:Name="ItemBorder"
                                    BorderBrush="Black"
                                    Background="LightGray"
                                    BorderThickness="2"         
                                    Margin="3">
                                <ContentPresenter Margin="2" />
                            </Border>
                            <ControlTemplate.Triggers>
                                <Trigger Property="IsMouseOver" Value="True">
                                    <Setter TargetName="ItemBorder"
                                            Property="BorderBrush"
                                            Value="Blue" />
                                </Trigger>
                                <Trigger Property="IsSelected" Value="True">
                                    <Setter TargetName="ItemBorder"
                                            Property="BorderBrush"
                                            Value="Red"/>
                                </Trigger>
                                <MultiTrigger>
                                    <MultiTrigger.Conditions>
                                        <Condition Property="IsMouseOver" Value="False" />
                                        <Condition Property="IsSelected" Value="False" />
                                    </MultiTrigger.Conditions>
                                    <Setter TargetName="ItemBorder"
                                            Property="Opacity"
                                            Value="0.50" />
                                </MultiTrigger>
                            </ControlTemplate.Triggers>
                        </ControlTemplate>
                    </Setter.Value>
                </Setter>
            </Style>
           
        </Grid.Resources>
        <Grid>

            <esri:Map x:Name="MyMap"  UseAcceleratedDisplay="True" Extent="-15090086, 4141039, -13113925 , 5862778"
                     WrapAround="True" MinimumResolution="5">

                <esri:ArcGISTiledMapServiceLayer ID="Ocean_BaseMap"
                        Url="http://services.arcgisonline.com/ArcGIS/rest/services/Ocean_Basemap/MapServer" />

                <esri:HydrographicS57Layer x:Name="_hydrographicS57Layer"  ID="HydrographicS57Layer" >
                    <esri:S57Cell Path="..\Data\s57_electronic_navigational_charts\US1WC01M\US1WC01M.000" />
                    <esri:S57Cell Path="..\Data\s57_electronic_navigational_charts\US1WC07M\US1WC07M.000" />
                </esri:HydrographicS57Layer>

                <esri:GraphicsLayer x:Name="_searchResults" ID="Search Results" Opacity="0.5"  />

                <esri:GraphicsLayer x:Name="_searchGeometryDisplay" ID="Search Geometry" Opacity="0.5"  />
            </esri:Map>

            <Grid Width="300" Height="550" Margin="5,5,0,0" VerticalAlignment="Top" HorizontalAlignment="Left">
                <Grid.Resources>
                    <DataTemplate x:Key="identifyResults">
                        <StackPanel Orientation="Vertical" Margin="5,5">
                            <StackPanel Orientation="Horizontal">
                                <TextBlock Text="Acronym: " />
                                <TextBlock Text="{Binding Path=Acronym}" />
                            </StackPanel>
                            <StackPanel Orientation="Horizontal">
                                <TextBlock Text="Long Name: " />
                                <TextBlock Text="{Binding Path=LongName}"/>
                            </StackPanel>
                            <StackPanel Orientation="Horizontal">
                                <TextBlock Text="Cell Name: " />
                                <TextBlock Text="{Binding Path=CellName}"/>
                            </StackPanel>
                            <StackPanel Orientation="Horizontal">
                                <TextBlock Text="Composition Scale: " />
                                <TextBlock Text="{Binding Path=CompositionScale}"/>
                            </StackPanel>
                        </StackPanel>
                    </DataTemplate>
                </Grid.Resources>

                <Rectangle Height="550" Grid.RowSpan="6" VerticalAlignment="Top" Fill="White" Stroke="Gray" >
                    <Rectangle.Effect>
                        <DropShadowEffect/>
                    </Rectangle.Effect>
                </Rectangle>
                <Rectangle Grid.RowSpan="6" Margin="5" Fill="#DDFFFFFF" Stroke="DarkGray" />

                <StackPanel>
                    <TextBlock Margin="10,10,5,0">Click on the map to perform an Identify operation.</TextBlock>
                    <StackPanel Orientation="Horizontal">
                        <TextBlock Margin="10,5,5,0">Found:</TextBlock>
                        <TextBlock Margin="5,5,5,0" x:Name="IdentifyResultsText"/>
                    </StackPanel>
                    <ListBox x:Name="ResultItems" ItemTemplate="{StaticResource identifyResults}" 
                             SelectionChanged="ResultItems_SelectionChanged" Width="280" Height="350"
                             HorizontalContentAlignment="Stretch" Margin="10,5,10,10" />
                    <ScrollViewer HorizontalScrollBarVisibility="Auto" VerticalScrollBarVisibility="Auto"  
                         Width="280" Height="125">
                        <DataGrid x:Name="ResultAttributes"  AutoGenerateColumns="True" HeadersVisibility="All" 
                              Background="White">
                        </DataGrid>
                    </ScrollViewer>

                </StackPanel>
            </Grid>

            <Border Background="White" BorderThickness="1" 
                HorizontalAlignment="Right" VerticalAlignment="Top"
                Margin="10" BorderBrush="White">
                <Border.Effect>
                    <DropShadowEffect/>
                </Border.Effect>
                <Grid Margin="10" Background="White">
                    <StackPanel Orientation="Vertical">
                        <StackPanel x:Name="MyStackPanel" Orientation="Horizontal" Width="305" Height="60">
                            <Button Tag="DrawPoint" Margin="5" Click="Tool_Click"  
                                ToolTipService.ToolTip="Select with a point">
                                <Image Source="/Assets/Images/DrawPoint.png" Margin="2" />
                            </Button>
                            <Button Tag="DrawPolyline" Margin="5" Click="Tool_Click"
                                ToolTipService.ToolTip="Select with a polyline">
                                <Image Source="/Assets/Images/DrawPolyline.png" Margin="2" />
                            </Button>
                            <Button Tag="DrawPolygon" Margin="5" Click="Tool_Click"
                                ToolTipService.ToolTip="Select with a polygon">
                                <Image Source="/Assets/Images/DrawPolygon.png" Margin="2" />
                            </Button>
                            <Button Tag="DrawRectangle" Margin="5" Click="Tool_Click"
                                ToolTipService.ToolTip="Select with a rectangle">
                                <Image Source="/Assets/Images/DrawRectangle.png" Margin="2" />
                            </Button>
                            <Button Tag="ClearStopDraw" Margin="5" Click="Tool_Click"
                                Style="{x:Null}"
                                ToolTipService.ToolTip="Clear map">
                                <Image Source="/Assets/Images/StopDraw.png" Margin="2" />
                            </Button>
                        </StackPanel>
                        <StackPanel Orientation="Horizontal" >
                            <TextBlock Text="Buffer Distance:" Margin="2" Width="135"/>
                            <TextBox x:Name="BufferDistance" Text="0" Width="150" Margin="2"/>
                        </StackPanel>
                        <StackPanel Orientation="Horizontal" >
                            <TextBlock Text="Object Name (Acronym):" Margin="2" Width="135"/>
                            <TextBox x:Name="SearchText" Text="" Width="150" Margin="2"/>
                        </StackPanel>
                        <StackPanel Orientation="Horizontal" HorizontalAlignment="Center">
                            <Button x:Name="SearchS57LayerButton" Click="SearchS57LayerButton_Click" Margin="2" Width="80">Search</Button>
                            <Button x:Name="ClearResultsButton" Click="ClearResultsButton_Click" Margin="2" Width="80">Clear Results</Button>
                        </StackPanel>
                    </StackPanel>
                </Grid>
            </Border>
        </Grid>
    </Grid>
</UserControl>

C#

using System;
using System.Windows.Controls;
using ESRI.ArcGIS.Client.AdvancedSymbology;
using ESRI.ArcGIS.Client;
using ESRI.ArcGIS.Client.Geometry;
using ESRI.ArcGIS.Client.Symbols;
using System.Windows.Data;
using System.Collections.Generic;
using System.Windows.Media;
using System.Windows;

namespace ArcGISWPFSDK
{
    public partial class S57Search : UserControl
    {
        private Draw MyDrawObject;
        private HydrographicS57Layer hydrographicS57Layer;
        private ESRI.ArcGIS.Client.Geometry.Geometry _searchGeometry;

        public S57Search()
        {
            InitializeComponent();

            hydrographicS57Layer = MyMap.Layers["HydrographicS57Layer"] as HydrographicS57Layer;

            MyDrawObject = new Draw(MyMap)
            {
                LineSymbol = new ESRI.ArcGIS.Client.Symbols.SimpleLineSymbol()
                {
                    Color = new SolidColorBrush(Colors.Red),
                    Width = 1,
                },
                FillSymbol = new ESRI.ArcGIS.Client.Symbols.SimpleFillSymbol()
                {
                    BorderBrush = new SolidColorBrush(Colors.Red),
                    BorderThickness = 1,
                    Fill = new SolidColorBrush(Colors.Red),
                },
            };
            MyDrawObject.DrawComplete += MyDrawSurface_DrawComplete;          
        }

        private void UnSelectTools()
        {
            foreach (UIElement element in MyStackPanel.Children)
                if (element is Button)
                    VisualStateManager.GoToState((element as Button), "UnSelected", false);
        }

        private void Tool_Click(object sender, RoutedEventArgs e)
        {
            ClearResults();
            _searchGeometryDisplay.Graphics.Clear();
            UnSelectTools();

            VisualStateManager.GoToState(sender as Button, "Selected", false);

            switch ((sender as Button).Tag as string)
            {
                case "DrawPoint":
                    MyDrawObject.DrawMode = DrawMode.Point;
                    break;
                case "DrawPolyline":
                    MyDrawObject.DrawMode = DrawMode.Polyline;
                    break;
                case "DrawPolygon":
                    MyDrawObject.DrawMode = DrawMode.Polygon;
                    break;
                case "DrawRectangle":
                    MyDrawObject.DrawMode = DrawMode.Rectangle;
                    break;
                default:
                    MyDrawObject.DrawMode = DrawMode.None;
                    _searchGeometry = null;
                    _searchGeometryDisplay.Graphics.Clear();
                    _searchResults.Graphics.Clear();
                    break;
            }
            if (MyDrawObject.DrawMode != DrawMode.None && MyDrawObject.IsEnabled != true)
                MyDrawObject.IsEnabled = true;  
        }

        private void MyDrawSurface_DrawComplete(object sender, ESRI.ArcGIS.Client.DrawEventArgs args)
        {
            _searchGeometryDisplay.Graphics.Clear();

            Graphic searchGraphic = MakeGraphicFromGeom(args.Geometry, Colors.Yellow, true);
            searchGraphic.Selected = true;
            _searchGeometryDisplay.Graphics.Add(searchGraphic);

            _searchGeometry = args.Geometry;
        }

        // Handle the ListBox item selection changed event
        private void ResultItems_SelectionChanged(object sender, SelectionChangedEventArgs e)
        {
            // Get the selected ListBoxItem and cast to S57FeatureObject
            var item = ResultItems.SelectedItem as S57FeatureObject;

            // Clear the results graphics
            _searchResults.Graphics.Clear();

            // Generate a graphic with appropriate symbology from the S57FeatureObject geometry
            if (item != null)
                _searchResults.Graphics.Add(MakeGraphicFromGeom(item.Geometry, Colors.Red, false));

            // Display the attributes in the attributes DataGrid.
            int index = ResultItems.SelectedIndex;
            if (index > -1)
            {
                /*
                 * Note:- S57FeatureObject.Attributes property has been deprecated. Instead use S57FeatureObject.AttributeItems.
                 */
                //ResultAttributes.ItemsSource = item.Attributes;
                ResultAttributes.ItemsSource = item.AttributeItems;
            }
            else
                ResultAttributes.ItemsSource = null;
        }

        // Utility function to generate a graphic, with symbol, from a Geometry object.
        private Graphic MakeGraphicFromGeom(ESRI.ArcGIS.Client.Geometry.Geometry geom, Color color, bool outlineOnly)
        {
            if (geom == null)
                return null;
            Graphic graphic = new Graphic();
            graphic.Geometry = geom;

            // Check geometry type and create appropriate Simple...Symbol.
            if (geom is MapPoint || geom is MultiPoint)
                graphic.Symbol = new SimpleMarkerSymbol() { Color = new SolidColorBrush(color), Size = 20 };
            else if (geom is ESRI.ArcGIS.Client.Geometry.Polyline)
                graphic.Symbol = new SimpleLineSymbol() { Color = new SolidColorBrush(color), Width = 6 };
            else if (geom is ESRI.ArcGIS.Client.Geometry.Polygon || geom is Envelope)
                graphic.Symbol = outlineOnly == true ? new SimpleFillSymbol() 
                { BorderBrush = new SolidColorBrush(color),BorderThickness=3 }
                : new SimpleFillSymbol() { Fill = new SolidColorBrush(color), BorderBrush = new SolidColorBrush(color),BorderThickness=3 };
            return graphic;
        }

        private void SearchS57LayerButton_Click(object sender, RoutedEventArgs e)
        {
            MyDrawObject.DrawMode = DrawMode.None;
            ClearResults();

            if (_searchGeometry == null)
                _searchGeometry = hydrographicS57Layer.FullExtent;

            double bufferDistance = 0;
            Double.TryParse(BufferDistance.Text, out bufferDistance);

            // Call the SearchAsync method passing in the user defined geometry, the maximum number of results, a callback delegate, and pixel tolerance
            hydrographicS57Layer.SearchAsync(
                _searchGeometry,
                bufferDistance,
                SearchText.Text,
                listOfS57FeatureObjects =>
                {
                    if (listOfS57FeatureObjects.Count == 0)
                        return;

                    // Set the ItemSource property of the ListBox to the returned IList<S57FeatureObject> result set
                    ResultItems.ItemsSource = listOfS57FeatureObjects;

                    // Set the Identify results text
                    IdentifyResultsText.Text = string.Format("{0} item{1}", listOfS57FeatureObjects.Count, listOfS57FeatureObjects.Count > 1 ? "s" : "");
                });
        }

        private void ClearResultsButton_Click(object sender, RoutedEventArgs e)
        {
            ClearResults();
        }

        private void ClearResults() 
        {
            _searchResults.Graphics.Clear(); 
            ResultItems.ItemsSource = null;
            IdentifyResultsText.Text = string.Empty;
        }
    }
}

VB.NET

Imports System.Windows.Controls
Imports ESRI.ArcGIS.Client.AdvancedSymbology
Imports ESRI.ArcGIS.Client
Imports ESRI.ArcGIS.Client.Geometry
Imports ESRI.ArcGIS.Client.Symbols
Imports System.Windows.Data
Imports System.Collections.Generic
Imports System.Windows.Media
Imports System.Windows

Namespace ArcGISWPFSDK
	Public Partial Class S57Search
		Inherits UserControl
		Private MyDrawObject As Draw
		Private hydrographicS57Layer As HydrographicS57Layer
		Private _searchGeometry As ESRI.ArcGIS.Client.Geometry.Geometry

		Public Sub New()
			InitializeComponent()

			hydrographicS57Layer = TryCast(MyMap.Layers("HydrographicS57Layer"), HydrographicS57Layer)

			MyDrawObject = New Draw(MyMap) With { _
				Key .LineSymbol = New ESRI.ArcGIS.Client.Symbols.SimpleLineSymbol() With { _
					Key .Color = New SolidColorBrush(Colors.Red), _
					Key .Width = 1 _
				}, _
				Key .FillSymbol = New ESRI.ArcGIS.Client.Symbols.SimpleFillSymbol() With { _
					Key .BorderBrush = New SolidColorBrush(Colors.Red), _
					Key .BorderThickness = 1, _
					Key .Fill = New SolidColorBrush(Colors.Red) _
				} _
			}
			AddHandler MyDrawObject.DrawComplete, AddressOf MyDrawSurface_DrawComplete
		End Sub

		Private Sub UnSelectTools()
			For Each element As UIElement In MyStackPanel.Children
				If TypeOf element Is Button Then
					VisualStateManager.GoToState(TryCast(element, Button), "UnSelected", False)
				End If
			Next
		End Sub

		Private Sub Tool_Click(sender As Object, e As RoutedEventArgs)
			ClearResults()
			_searchGeometryDisplay.Graphics.Clear()
			UnSelectTools()

			VisualStateManager.GoToState(TryCast(sender, Button), "Selected", False)

			Select Case TryCast(TryCast(sender, Button).Tag, String)
				Case "DrawPoint"
					MyDrawObject.DrawMode = DrawMode.Point
					Exit Select
				Case "DrawPolyline"
					MyDrawObject.DrawMode = DrawMode.Polyline
					Exit Select
				Case "DrawPolygon"
					MyDrawObject.DrawMode = DrawMode.Polygon
					Exit Select
				Case "DrawRectangle"
					MyDrawObject.DrawMode = DrawMode.Rectangle
					Exit Select
				Case Else
					MyDrawObject.DrawMode = DrawMode.None
					_searchGeometry = Nothing
					_searchGeometryDisplay.Graphics.Clear()
					_searchResults.Graphics.Clear()
					Exit Select
			End Select
			If MyDrawObject.DrawMode <> DrawMode.None AndAlso MyDrawObject.IsEnabled <> True Then
				MyDrawObject.IsEnabled = True
			End If
		End Sub

		Private Sub MyDrawSurface_DrawComplete(sender As Object, args As ESRI.ArcGIS.Client.DrawEventArgs)
			_searchGeometryDisplay.Graphics.Clear()

			Dim searchGraphic As Graphic = MakeGraphicFromGeom(args.Geometry, Colors.Yellow, True)
			searchGraphic.Selected = True
			_searchGeometryDisplay.Graphics.Add(searchGraphic)

			_searchGeometry = args.Geometry
		End Sub

		' Handle the ListBox item selection changed event
		Private Sub ResultItems_SelectionChanged(sender As Object, e As SelectionChangedEventArgs)
			' Get the selected ListBoxItem and cast to S57FeatureObject
			Dim item = TryCast(ResultItems.SelectedItem, S57FeatureObject)

			' Clear the results graphics
			_searchResults.Graphics.Clear()

			' Generate a graphic with appropriate symbology from the S57FeatureObject geometry
			If item IsNot Nothing Then
				_searchResults.Graphics.Add(MakeGraphicFromGeom(item.Geometry, Colors.Red, False))
			End If

			' Display the attributes in the attributes DataGrid.
			Dim index As Integer = ResultItems.SelectedIndex
			If index > -1 Then
				'
'                 * Note:- S57FeatureObject.Attributes property has been deprecated. Instead use S57FeatureObject.AttributeItems.
'                 

				'ResultAttributes.ItemsSource = item.Attributes;
				ResultAttributes.ItemsSource = item.AttributeItems
			Else
				ResultAttributes.ItemsSource = Nothing
			End If
		End Sub

		' Utility function to generate a graphic, with symbol, from a Geometry object.
		Private Function MakeGraphicFromGeom(geom As ESRI.ArcGIS.Client.Geometry.Geometry, color As Color, outlineOnly As Boolean) As Graphic
			If geom Is Nothing Then
				Return Nothing
			End If
			Dim graphic As New Graphic()
			graphic.Geometry = geom

			' Check geometry type and create appropriate Simple...Symbol.
			If TypeOf geom Is MapPoint OrElse TypeOf geom Is MultiPoint Then
				graphic.Symbol = New SimpleMarkerSymbol() With { _
					Key .Color = New SolidColorBrush(color), _
					Key .Size = 20 _
				}
			ElseIf TypeOf geom Is ESRI.ArcGIS.Client.Geometry.Polyline Then
				graphic.Symbol = New SimpleLineSymbol() With { _
					Key .Color = New SolidColorBrush(color), _
					Key .Width = 6 _
				}
			ElseIf TypeOf geom Is ESRI.ArcGIS.Client.Geometry.Polygon OrElse TypeOf geom Is Envelope Then
				graphic.Symbol = If(outlineOnly = True, New SimpleFillSymbol() With { _
					Key .BorderBrush = New SolidColorBrush(color), _
					Key .BorderThickness = 3 _
				}, New SimpleFillSymbol() With { _
					Key .Fill = New SolidColorBrush(color), _
					Key .BorderBrush = New SolidColorBrush(color), _
					Key .BorderThickness = 3 _
				})
			End If
			Return graphic
		End Function

		Private Sub SearchS57LayerButton_Click(sender As Object, e As RoutedEventArgs)
			MyDrawObject.DrawMode = DrawMode.None
			ClearResults()

			If _searchGeometry Is Nothing Then
				_searchGeometry = hydrographicS57Layer.FullExtent
			End If

			Dim bufferDistance__1 As Double = 0
			[Double].TryParse(BufferDistance.Text, bufferDistance__1)

			' Call the SearchAsync method passing in the user defined geometry, the maximum number of results, a callback delegate, and pixel tolerance
			hydrographicS57Layer.SearchAsync(_searchGeometry, bufferDistance__1, SearchText.Text, Function(listOfS57FeatureObjects) 
			If listOfS57FeatureObjects.Count = 0 Then
				Return
			End If

			' Set the ItemSource property of the ListBox to the returned IList<S57FeatureObject> result set
			ResultItems.ItemsSource = listOfS57FeatureObjects

			' Set the Identify results text
			IdentifyResultsText.Text = String.Format("{0} item{1}", listOfS57FeatureObjects.Count, If(listOfS57FeatureObjects.Count > 1, "s", ""))

End Function)
		End Sub

		Private Sub ClearResultsButton_Click(sender As Object, e As RoutedEventArgs)
			ClearResults()
		End Sub

		Private Sub ClearResults()
			_searchResults.Graphics.Clear()
			ResultItems.ItemsSource = Nothing
			IdentifyResultsText.Text = String.Empty
		End Sub
	End Class
End Namespace