Server spatial query server object extension
SpatialQuerySOE_VBNet\Results.vb
' Copyright 2010 ESRI
' 
' All rights reserved under the copyright laws of the United States
' and applicable international laws, treaties, and conventions.
' 
' You may freely redistribute and use this sample code, with or
' without modification, provided you include the original copyright
' notice and use restrictions.
' 
' See the use restrictions.
' 

Imports Microsoft.VisualBasic
Imports System
Imports System.Runtime.InteropServices
Imports System.EnterpriseServices

Namespace SpatialQuerySOE_VBNet
  ''' <summary>
  ''' SOE Results container class.
  ''' </summary>
  <AutomationProxy(True), ClassInterface(ClassInterfaceType.None), Guid("EC1526DE-97E9-4228-8972-DE50C4A71696")> _
  Public Class Results
    Inherits ServicedComponent
    Implements SpatialQuerySOE.Interfaces_VBNet.IResults

    Private m_resultsGraphics As ESRI.ArcGIS.Carto.IGraphicElements
    Private m_summaryStats As ESRI.ArcGIS.Geodatabase.IRecordSet

#Region "SpatialQuerySOE.Interfaces_VBNet.IResults Members"

    ''' <summary>
    ''' Graphics representing the geometries of the features intersecting the query area, clipped to the query area
    ''' </summary>
    Public Property ResultsGraphics() As ESRI.ArcGIS.Carto.IGraphicElements Implements SpatialQuerySOE.Interfaces_VBNet.IResults.ResultsGraphics
      Get
        Return m_resultsGraphics
      End Get
      Set(ByVal value As ESRI.ArcGIS.Carto.IGraphicElements)
        m_resultsGraphics = CType(value, ESRI.ArcGIS.Carto.IGraphicElements)
      End Set
    End Property

    ''' <summary>
    ''' The area per field value for features within the search area for the field specified 
    ''' in the SOE configuration
    ''' </summary>
    Public Property SummaryStatistics() As ESRI.ArcGIS.Geodatabase.IRecordSet Implements SpatialQuerySOE.Interfaces_VBNet.IResults.SummaryStatistics
      Get
        Return m_summaryStats
      End Get
      Set(ByVal value As ESRI.ArcGIS.Geodatabase.IRecordSet)
        m_summaryStats = CType(value, ESRI.ArcGIS.Geodatabase.IRecordSet)
      End Set
    End Property

#End Region
  End Class
End Namespace