About the RSS weather layer Sample
[C#]
AddWeatherItemTool.cs
using System;
using System.Drawing;
using System.Runtime.InteropServices;
using Microsoft.Win32;
using ESRI.ArcGIS.ADF.BaseClasses;
using ESRI.ArcGIS.ADF.CATIDs;
using ESRI.ArcGIS.Controls;
using ESRI.ArcGIS.Carto;
using ESRI.ArcGIS.Display;
using ESRI.ArcGIS.Geometry;
using ESRI.ArcGIS.Geodatabase;
using ESRI.ArcGIS.DataSourcesFile;
namespace RSSWeatherLayer
{
/// <summary>
/// Summary description for AddWeatherItemTool.
/// </summary>
[ClassInterface(ClassInterfaceType.None)]
[Guid("D74A98E8-2CAA-4068-AA3D-C4DFA25BD5BE")]
[ProgId("RSSWeatherLayer.AddWeatherItemTool")]
[ComVisible(true)]
public sealed class AddWeatherItemTool: BaseTool
{
#region COM Registration Function(s)
[ComRegisterFunction()]
[ComVisible(false)]
static void RegisterFunction(Type registerType)
{
// Required for ArcGIS Component Category Registrar support
ArcGISCategoryRegistration(registerType);
//
// TODO: Add any COM registration code here
//
}
[ComUnregisterFunction()]
[ComVisible(false)]
static void UnregisterFunction(Type registerType)
{
// Required for ArcGIS Component Category Registrar support
ArcGISCategoryUnregistration(registerType);
//
// TODO: Add any COM unregistration code here
//
}
#region ArcGIS Component Category Registrar generated code
/// <summary>
/// Required method for ArcGIS Component Category registration -
/// Do not modify the contents of this method with the code editor.
/// </summary>
private static void ArcGISCategoryRegistration(Type registerType)
{
string regKey = string.Format("HKEY_CLASSES_ROOT\\CLSID\\{{{0}}}", registerType.GUID);
MxCommands.Register(regKey);
ControlsCommands.Register(regKey);
}
/// <summary>
/// Required method for ArcGIS Component Category unregistration -
/// Do not modify the contents of this method with the code editor.
/// </summary>
private static void ArcGISCategoryUnregistration(Type registerType)
{
string regKey = string.Format("HKEY_CLASSES_ROOT\\CLSID\\{{{0}}}", registerType.GUID);
MxCommands.Unregister(regKey);
ControlsCommands.Unregister(regKey);
}
#endregion
#endregion
private IHookHelper m_hookHelper = null;
private RSSWeatherLayerClass m_weatherLayer = null;
private IFeatureClass m_featureClass = null;
private ISpatialReference m_spatialRefWGS84 = null;
public AddWeatherItemTool()
{
base.m_category = "Weather";
base.m_caption = "Add Weather Item";
base.m_message = "Add Weather item";
base.m_toolTip = "Add Weather item";
base.m_name = base.m_category + "_" + base.m_caption;
try
{
base.m_bitmap = new System.Drawing.Bitmap(GetType().Assembly.GetManifestResourceStream(GetType(), "AddWeatherItemTool.bmp"));
base.m_cursor = new System.Windows.Forms.Cursor(GetType().Assembly.GetManifestResourceStream(GetType(), "AddWeatherItemTool.cur"));
}
catch (Exception ex)
{
System.Diagnostics.Trace.WriteLine(ex.Message, "Invalid Bitmap");
}
}
#region Overriden Class Methods
/// <summary>
/// Occurs when this command is created
/// </summary>
/// <param name="hook">Instance of the application</param>
public override void OnCreate(object hook)
{
//Instantiate the hook helper
if (m_hookHelper == null)
m_hookHelper = new HookHelperClass();
//set the hook
m_hookHelper.Hook = hook;
//connect to the ZipCodes featureclass
//get the ArcGIS path from the registry
RegistryKey key = Registry.LocalMachine.OpenSubKey(@"SOFTWARE\ESRI\ArcObjectsSdk10.1");
string path = Convert.ToString(key.GetValue("InstallDir"));
path = System.IO.Path.Combine(path, @"Samples\Data\USZipCodeData\");
IWorkspaceFactory wf = new ShapefileWorkspaceFactoryClass() as IWorkspaceFactory;
IWorkspace ws = wf.OpenFromFile(path, 0);
IFeatureWorkspace fw = ws as IFeatureWorkspace;
m_featureClass = fw.OpenFeatureClass("US_ZipCodes");
m_spatialRefWGS84 = CreateGeoCoordSys();
}
/// <summary>
/// Occurs when this command is clicked
/// </summary>
public override void OnClick()
{
try
{
if (0 == m_hookHelper.FocusMap.LayerCount)
return;
//get the weather layer
IEnumLayer layers = m_hookHelper.FocusMap.get_Layers(null, false);
layers.Reset();
ILayer layer = layers.Next();
while(layer != null)
{
if(layer is RSSWeatherLayerClass)
{
m_weatherLayer = (RSSWeatherLayerClass)layer;
break;
}
layer = layers.Next();
}
}
catch(Exception ex)
{
System.Diagnostics.Trace.WriteLine(ex.Message);
}
}
/// <summary>
/// Occurs when the user click inside the globe
/// </summary>
/// <param name="Button"></param>
/// <param name="Shift"></param>
/// <param name="X"></param>
/// <param name="Y"></param>
public override void OnMouseDown(int Button, int Shift, int X, int Y)
{
//make sure that the weatherlayer and the featureclass exists
if ((null == m_weatherLayer) || (null == m_featureClass))
return;
//get the current point (convert the mouse coordinate into geographics coordinate)
IActiveView activeView = m_hookHelper.ActiveView;
IDisplayTransformation displayTrans = activeView.ScreenDisplay.DisplayTransformation;
IPoint point = displayTrans.ToMapPoint(X, Y);
point.SpatialReference = m_hookHelper.FocusMap.SpatialReference;
//project the point to WGS1984 CoordSys
if (null != point.SpatialReference)
{
if (point.SpatialReference.FactoryCode != m_spatialRefWGS84.FactoryCode)
point.Project(m_spatialRefWGS84);
}
//create the spatial filter in order to select the relevant zipCode
ISpatialFilter spatialFilter = new SpatialFilterClass();
spatialFilter.Geometry = point as IGeometry;
spatialFilter.GeometryField = m_featureClass.ShapeFieldName;
//The spatial filter supposed to filter all the polygons containing the point
spatialFilter.SpatialRel = esriSpatialRelEnum.esriSpatialRelWithin;
//query the featureclass for the containing features
IFeatureCursor featureCursor = m_featureClass.Search(spatialFilter, true);
IFeature feature = featureCursor.NextFeature();
if(null == feature)
return;
//get the zip code from the containing feature
long zipCode = Convert.ToInt64(feature.get_Value(feature.Fields.FindField("ZIP")));
//add the weather item to the layer
m_weatherLayer.AddItem(zipCode, point.Y, point.X);
//refresh the map
activeView.PartialRefresh(esriViewDrawPhase.esriViewGeography, m_weatherLayer, displayTrans.FittedBounds);
activeView.ScreenDisplay.UpdateWindow();
//release the featurecursor
Marshal.ReleaseComObject(featureCursor);
}
/// <summary>
/// Occurs when the user move the mouse
/// </summary>
/// <param name="Button"></param>
/// <param name="Shift"></param>
/// <param name="X"></param>
/// <param name="Y"></param>
public override void OnMouseMove(int Button, int Shift, int X, int Y)
{
// TODO: Add AddWeatherItemTool.OnMouseMove implementation
}
/// <summary>
/// Occurs when then user release the mouse button
/// </summary>
/// <param name="Button"></param>
/// <param name="Shift"></param>
/// <param name="X"></param>
/// <param name="Y"></param>
public override void OnMouseUp(int Button, int Shift, int X, int Y)
{
// TODO: Add AddWeatherItemTool.OnMouseUp implementation
}
#endregion
private ISpatialReference CreateGeoCoordSys()
{
ISpatialReferenceFactory2 spatialRefFactory = new SpatialReferenceEnvironmentClass();
IGeographicCoordinateSystem wgs84GeoCoordSys = spatialRefFactory.CreateGeographicCoordinateSystem((int)esriSRGeoCSType.esriSRGeoCS_WGS1984);
return (ISpatialReference)wgs84GeoCoordSys;
}
}
}
[Visual Basic .NET]
AddWeatherItemTool.vb
Imports Microsoft.VisualBasic
Imports System
Imports System.Drawing
Imports System.Runtime.InteropServices
Imports Microsoft.Win32
Imports ESRI.ArcGIS.ADF.BaseClasses
Imports ESRI.ArcGIS.ADF.CATIDs
Imports ESRI.ArcGIS.Controls
Imports ESRI.ArcGIS.Carto
Imports ESRI.ArcGIS.Display
Imports ESRI.ArcGIS.Geometry
Imports ESRI.ArcGIS.Geodatabase
Imports ESRI.ArcGIS.DataSourcesFile
''' <summary>
''' Summary description for AddWeatherItemTool.
''' </summary>
<ClassInterface(ClassInterfaceType.None), Guid("D74A98E8-2CAA-4068-AA3D-C4DFA25BD5BE"), ProgId("AddWeatherItemTool"), ComVisible(True)> _
Public NotInheritable Class AddWeatherItemTool : Inherits BaseTool
#Region "COM Registration Function(s)"
<ComRegisterFunction(), ComVisible(False)> _
Private Shared Sub RegisterFunction(ByVal registerType As Type)
' Required for ArcGIS Component Category Registrar support
ArcGISCategoryRegistration(registerType)
'
' TODO: Add any COM registration code here
'
End Sub
<ComUnregisterFunction(), ComVisible(False)> _
Private Shared Sub UnregisterFunction(ByVal registerType As Type)
' Required for ArcGIS Component Category Registrar support
ArcGISCategoryUnregistration(registerType)
'
' TODO: Add any COM unregistration code here
'
End Sub
#Region "ArcGIS Component Category Registrar generated code"
''' <summary>
''' Required method for ArcGIS Component Category registration -
''' Do not modify the contents of this method with the code editor.
''' </summary>
Private Shared Sub ArcGISCategoryRegistration(ByVal registerType As Type)
Dim regKey As String = String.Format("HKEY_CLASSES_ROOT\CLSID\{{{0}}}", registerType.GUID)
MxCommands.Register(regKey)
ControlsCommands.Register(regKey)
End Sub
''' <summary>
''' Required method for ArcGIS Component Category unregistration -
''' Do not modify the contents of this method with the code editor.
''' </summary>
Private Shared Sub ArcGISCategoryUnregistration(ByVal registerType As Type)
Dim regKey As String = String.Format("HKEY_CLASSES_ROOT\CLSID\{{{0}}}", registerType.GUID)
MxCommands.Unregister(regKey)
ControlsCommands.Unregister(regKey)
End Sub
#End Region
#End Region
Private m_hookHelper As IHookHelper = Nothing
Private m_weatherLayer As RSSWeatherLayerClass = Nothing
Private m_featureClass As IFeatureClass = Nothing
Private m_spatialRefWGS84 As ISpatialReference = Nothing
Public Sub New()
MyBase.m_category = "Weather"
MyBase.m_caption = "Add Weather Item"
MyBase.m_message = "Add Weather item"
MyBase.m_toolTip = "Add Weather item"
MyBase.m_name = MyBase.m_category & "_" & MyBase.m_caption
Try
MyBase.m_bitmap = New System.Drawing.Bitmap(Me.GetType().Assembly.GetManifestResourceStream(Me.GetType(), "AddWeatherItemTool.bmp"))
MyBase.m_cursor = New System.Windows.Forms.Cursor(Me.GetType().Assembly.GetManifestResourceStream(Me.GetType(), "AddWeatherItemTool.cur"))
Catch ex As Exception
System.Diagnostics.Trace.WriteLine(ex.Message, "Invalid Bitmap")
End Try
End Sub
#Region "Overridden Class Methods"
''' <summary>
''' Occurs when this command is created
''' </summary>
''' <param name="hook">Instance of the application</param>
Public Overrides Sub OnCreate(ByVal hook As Object)
'Instantiate the hook helper
If m_hookHelper Is Nothing Then
m_hookHelper = New HookHelperClass()
End If
'set the hook
m_hookHelper.Hook = hook
'connect to the ZipCodes featureclass
'get the ArcGIS path from the registry
Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\ESRI\ArcObjectsSdk10.1")
Dim path As String = Convert.ToString(key.GetValue("InstallDir"))
path = System.IO.Path.Combine(path, "Samples\Data\USZipCodeData\")
Dim wf As IWorkspaceFactory = New ShapefileWorkspaceFactoryClass()
Dim ws As IWorkspace = wf.OpenFromFile(path, 0)
Dim fw As IFeatureWorkspace = TryCast(ws, IFeatureWorkspace)
m_featureClass = fw.OpenFeatureClass("US_ZipCodes")
m_spatialRefWGS84 = CreateGeoCoordSys()
End Sub
''' <summary>
''' Occurs when this command is clicked
''' </summary>
Public Overrides Sub OnClick()
Try
If 0 = m_hookHelper.FocusMap.LayerCount Then
Return
End If
'get the weather layer
Dim layers As IEnumLayer = m_hookHelper.FocusMap.Layers(Nothing, False)
layers.Reset()
Dim layer As ILayer = layers.Next()
Do While Not layer Is Nothing
If TypeOf layer Is RSSWeatherLayerClass Then
m_weatherLayer = CType(layer, RSSWeatherLayerClass)
Exit Do
End If
layer = layers.Next()
Loop
Catch ex As Exception
System.Diagnostics.Trace.WriteLine(ex.Message)
End Try
End Sub
''' <summary>
''' Occurs when the user click inside the globe
''' </summary>
''' <param name="Button"></param>
''' <param name="Shift"></param>
''' <param name="X"></param>
''' <param name="Y"></param>
Public Overrides Sub OnMouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Integer, ByVal Y As Integer)
'make sure that the weatherlayer and the featureclass exists
If Nothing Is m_weatherLayer OrElse Nothing Is m_featureClass Then
Return
End If
'get the current point (convert the mouse coordinate into geographics coordinate)
Dim activeView As IActiveView = m_hookHelper.ActiveView
Dim displayTrans As IDisplayTransformation = activeView.ScreenDisplay.DisplayTransformation
Dim point As IPoint = displayTrans.ToMapPoint(X, Y)
point.SpatialReference = m_hookHelper.FocusMap.SpatialReference
'project the point to WGS1984 CoordSys
If Not Nothing Is point.SpatialReference Then
If point.SpatialReference.FactoryCode <> m_spatialRefWGS84.FactoryCode Then
point.Project(m_spatialRefWGS84)
End If
End If
'create the spatial filter in order to select the relevant zipCode
Dim spatialFilter As ISpatialFilter = New SpatialFilterClass()
spatialFilter.Geometry = TryCast(point, IGeometry)
spatialFilter.GeometryField = m_featureClass.ShapeFieldName
'The spatial filter supposed to filter all the polygons containing the point
spatialFilter.SpatialRel = esriSpatialRelEnum.esriSpatialRelWithin
'query the featureclass for the containing features
Dim featureCursor As IFeatureCursor = m_featureClass.Search(spatialFilter, True)
Dim feature As IFeature = featureCursor.NextFeature()
If Nothing Is feature Then
Return
End If
'get the zip code from the containing feature
Dim zipCode As Long = Convert.ToInt64(feature.Value(feature.Fields.FindField("ZIP")))
'add the weather item to the layer
m_weatherLayer.AddItem(zipCode, point.Y, point.X)
'refresh the map
activeView.PartialRefresh(esriViewDrawPhase.esriViewGeography, m_weatherLayer, displayTrans.FittedBounds)
activeView.ScreenDisplay.UpdateWindow()
'release the featurecursor
Marshal.ReleaseComObject(featureCursor)
End Sub
''' <summary>
''' Occurs when the user move the mouse
''' </summary>
''' <param name="Button"></param>
''' <param name="Shift"></param>
''' <param name="X"></param>
''' <param name="Y"></param>
Public Overrides Sub OnMouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Integer, ByVal Y As Integer)
' TODO: Add AddWeatherItemTool.OnMouseMove implementation
End Sub
''' <summary>
''' Occurs when then user release the mouse button
''' </summary>
''' <param name="Button"></param>
''' <param name="Shift"></param>
''' <param name="X"></param>
''' <param name="Y"></param>
Public Overrides Sub OnMouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Integer, ByVal Y As Integer)
' TODO: Add AddWeatherItemTool.OnMouseUp implementation
End Sub
#End Region
Private Function CreateGeoCoordSys() As ISpatialReference
Dim spatialRefFactory As ISpatialReferenceFactory2 = New SpatialReferenceEnvironmentClass()
Dim wgs84GeoCoordSys As IGeographicCoordinateSystem = spatialRefFactory.CreateGeographicCoordinateSystem(CInt(esriSRGeoCSType.esriSRGeoCS_WGS1984))
Return CType(wgs84GeoCoordSys, ISpatialReference)
End Function
End Class