About the Custom feedback tool and font drop-down list tool control Sample
[C#]
ToolSample.cs
using System;
using System.Drawing;
using System.Runtime.InteropServices;
using ESRI.ArcGIS.ADF.BaseClasses;
using ESRI.ArcGIS.ADF.CATIDs;
using System.Windows.Forms;
using ESRI.ArcGIS.Framework;
using ESRI.ArcGIS.Display;
using ESRI.ArcGIS.ArcMapUI;
using ESRI.ArcGIS.Carto;
using ESRI.ArcGIS.Geometry;
using ESRI.ArcGIS.esriSystem;
namespace ToolAndControlSampleCS
{
/// <summary>
/// Summary description for ToolSample.
/// </summary>
[Guid("7352d43a-8941-42ac-80ab-5cbf916d75d1")]
[ClassInterface(ClassInterfaceType.None)]
[ProgId("ToolAndControlSampleCS.ToolSample")]
public sealed class ToolSample : 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);
}
/// <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);
}
#endregion
#endregion
private IApplication m_application;
private INewCircleFeedback m_circleFeedBack;
private IPoint m_centerPoint, m_lastPoint;
private IGeometryEnvironment m_geomEnv; //singleton, use it to calculate angle
private ISimpleLineSymbol m_feedbackSymbol;
public ToolSample()
{
base.m_category = ".NET Samples";
base.m_caption = "Feedback Tool (C#)";
base.m_message = "Circle feedback with color changes when pressing Ctrl key (C#)";
base.m_toolTip = "Circle feedback (C#)";
base.m_name = "CSNETSamples_ToolSampleFeedback";
try
{
string bitmapResourceName = GetType().Name + ".bmp";
base.m_bitmap = new Bitmap(GetType(), bitmapResourceName);
base.m_cursor = Cursors.Cross;
}
catch (Exception ex)
{
System.Diagnostics.Trace.WriteLine(ex.Message, "Invalid Bitmap");
}
}
#region Overriden Class Methods
/// <summary>
/// Occurs when this tool is created
/// </summary>
/// <param name="hook">Instance of the application</param>
public override void OnCreate(object hook)
{
m_application = hook as IApplication;
//Set up
m_geomEnv = new GeometryEnvironmentClass();
m_feedbackSymbol = new SimpleLineSymbolClass();
((ISymbol)m_feedbackSymbol).ROP2 = esriRasterOpCode.esriROPNotXOrPen;
IRgbColor solidColor = new RgbColorClass();
solidColor.Red = 255;
m_feedbackSymbol.Color = solidColor;
m_feedbackSymbol.Width = 2;
}
public override void OnMouseDown(int Button, int Shift, int X, int Y)
{
if (Button != 1) //not the left mouse button, exit
return;
if (m_circleFeedBack == null)
{
m_circleFeedBack = new NewCircleFeedbackClass();
m_circleFeedBack.Symbol = (ISymbol)m_feedbackSymbol;
//Use AppDisplay to work on both Data and PageLayout view
IScreenDisplay disp = ((IMxApplication)m_application).Display;
m_centerPoint = disp.DisplayTransformation.ToMapPoint(X, Y);
m_circleFeedBack.Display = disp;
m_circleFeedBack.Start(m_centerPoint);
}
else
{
Reset(false);
}
}
public override void OnMouseMove(int Button, int Shift, int X, int Y)
{
if (m_circleFeedBack != null)
{
IMxDocument mxDoc = m_application.Document as IMxDocument;
//Get and cache last location just in case color change is requested in keydown to
//refresh the feedback
IScreenDisplay disp = ((IMxApplication)m_application).Display;
m_lastPoint = disp.DisplayTransformation.ToMapPoint(X, Y);
//Move feedback
m_circleFeedBack.MoveTo(m_lastPoint);
//Calculate angle to determine cursor
IConstructAngle constructAngle = (IConstructAngle)m_geomEnv;
ILine angleLine = new LineClass();
angleLine.PutCoords(m_centerPoint, m_lastPoint);
double angle = constructAngle.ConstructLine(angleLine);
SetCursor(angle);
}
}
public override void OnKeyDown(int keyCode, int Shift)
{
//Change feedback symbology
if (Shift == 2 && m_circleFeedBack != null) //Ctrl
{
m_circleFeedBack.Stop();
//change color randomly
IRgbColor solidColor = new RgbColorClass();
Random num = new Random();
solidColor.Red = num.Next(255);
solidColor.Green = num.Next(255);
solidColor.Blue = num.Next(255);
m_feedbackSymbol.Color = solidColor;
//Restart the feedback with newly assigned color
m_circleFeedBack.Start(m_centerPoint);
m_circleFeedBack.MoveTo(m_lastPoint);
}
}
public override bool Deactivate()
{
//Option 1: Always allow to deactivate.
//Reset things before deactivate (easier and recommended)
Reset(true);
return true;
//Option 2: Do not allow deactivate in the middle of the feedback.
//return (m_circleFeedBack == null);
}
public override void Refresh(int hDC)
{
//Refresh the feedback (IDisplayFeedback::Refresh)
// (e.g. if the application has been covered and uncovered during the feedback operation)
if (m_circleFeedBack != null)
m_circleFeedBack.Refresh(hDC);
}
#endregion
private void Reset(bool resetColor)
{
if (m_circleFeedBack != null)
{
m_circleFeedBack.Stop();
m_circleFeedBack = null;
base.m_cursor = Cursors.Cross;
if (resetColor)
{
//Reset symbol color to red
IRgbColor solidColor = new RgbColorClass();
solidColor.Red = 255;
m_feedbackSymbol.Color = solidColor;
}
}
}
private void SetCursor(double radianAngle)
{
double absAngle = Math.Abs(radianAngle);
if (radianAngle < 0) // Southern portion
{
if (absAngle >= 0 && absAngle < Math.PI / 8) //E
{
base.m_cursor = Cursors.PanEast;
}
else if (absAngle >= Math.PI / 8 && absAngle < 3 * Math.PI / 8) //SE
{
base.m_cursor = Cursors.PanSE;
}
else if (absAngle >= 3 * Math.PI / 8 && absAngle < 5 * Math.PI / 8) //S
{
base.m_cursor = Cursors.PanSouth;
}
else if (absAngle >= 5 * Math.PI / 8 && absAngle < 7 * Math.PI / 8)//SW
{
base.m_cursor = Cursors.PanSW;
}
else //W
{
base.m_cursor = Cursors.PanWest;
}
}
else //northern
{
if (absAngle >= 0 && absAngle < Math.PI / 8) //E
{
base.m_cursor = Cursors.PanEast;
}
else if (absAngle >= Math.PI / 8 && absAngle < 3 * Math.PI / 8) //NE
{
base.m_cursor = Cursors.PanNE;
}
else if (absAngle >= 3 * Math.PI / 8 && absAngle < 5 * Math.PI / 8) //N
{
base.m_cursor = Cursors.PanNorth;
}
else if (absAngle >= 5 * Math.PI / 8 && absAngle < 7 * Math.PI / 8)//NW
{
base.m_cursor = Cursors.PanNW;
}
else //W
{
base.m_cursor = Cursors.PanWest;
}
}
}
}
}
[Visual Basic .NET]
ToolSample.vb
Imports System.Runtime.InteropServices
Imports System.Drawing
Imports ESRI.ArcGIS.ADF.BaseClasses
Imports ESRI.ArcGIS.ADF.CATIDs
Imports System.Windows.Forms
Imports ESRI.ArcGIS.Framework
Imports ESRI.ArcGIS.esriSystem
Imports ESRI.ArcGIS.Geometry
Imports ESRI.ArcGIS.Carto
Imports ESRI.ArcGIS.Display
Imports ESRI.ArcGIS.ArcMapUI
<ComClass(ToolSample.ClassId, ToolSample.InterfaceId, ToolSample.EventsId), _
ProgId("ToolAndControlSampleVB.ToolSample")> _
Public NotInheritable Class ToolSample
Inherits BaseTool
#Region "COM Registration Function(s)"
<ComRegisterFunction(), ComVisibleAttribute(False)> _
Public Shared Sub RegisterFunction(ByVal registerType As Type)
' Required for ArcGIS Component Category Registrar support
ArcGISCategoryRegistration(registerType)
'Add any COM registration code after the ArcGISCategoryRegistration() call
End Sub
<ComUnregisterFunction(), ComVisibleAttribute(False)> _
Public Shared Sub UnregisterFunction(ByVal registerType As Type)
' Required for ArcGIS Component Category Registrar support
ArcGISCategoryUnregistration(registerType)
'Add any COM unregistration code after the ArcGISCategoryUnregistration() call
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)
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)
End Sub
#End Region
#End Region
#Region "COM GUIDs"
' These GUIDs provide the COM identity for this class
' and its COM interfaces. If you change them, existing
' clients will no longer be able to access the class.
Public Const ClassId As String = "99b863f5-add8-4a3d-9a3c-72092553263c"
Public Const InterfaceId As String = "fdf22bda-0294-43e6-aa74-2b0e92890ed1"
Public Const EventsId As String = "9b627f0d-f7d5-4a13-a843-36f3387a4e68"
#End Region
Private m_application As IApplication
Private m_circleFeedback As INewCircleFeedback
Private m_centerPoint, m_lastPoint As IPoint
Private m_geomEnv As IGeometryEnvironment
Private m_feedbackSymbol As ISimpleLineSymbol
' A creatable COM class must have a Public Sub New()
' with no parameters, otherwise, the class will not be
' registered in the COM registry and cannot be created
' via CreateObject.
Public Sub New()
MyBase.New()
MyBase.m_category = ".NET Samples"
MyBase.m_caption = "Feedback Tool (VB.Net)"
MyBase.m_message = "Circle feedback with color changes when pressing Ctrl key (VB.Net)"
MyBase.m_toolTip = "Circle feedback (VB.Net)"
MyBase.m_name = "VBNETSamples_ToolSampleFeedback"
Try
Dim bitmapResourceName As String = Me.GetType().Name + ".bmp"
MyBase.m_bitmap = New Bitmap(Me.GetType(), bitmapResourceName)
MyBase.m_cursor = Cursors.Cross
Catch ex As Exception
System.Diagnostics.Trace.WriteLine(ex.Message, "Invalid Bitmap")
End Try
End Sub
Public Overrides Sub OnCreate(ByVal hook As Object)
m_application = TryCast(hook, IApplication)
'set up
m_geomEnv = New GeometryEnvironmentClass()
m_feedbackSymbol = New SimpleLineSymbolClass()
DirectCast(m_feedbackSymbol, ISymbol).ROP2 = esriRasterOpCode.esriROPNotXOrPen
Dim solidColor As IRgbColor = New RgbColorClass()
solidColor.Red = 255
m_feedbackSymbol.Color = solidColor
m_feedbackSymbol.Width = 2
End Sub
Public Overrides Sub OnMouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Integer, ByVal Y As Integer)
If Button <> 1 Then Return 'exit sub
If m_circleFeedback Is Nothing Then
m_circleFeedback = New NewCircleFeedbackClass()
m_circleFeedback.Symbol = DirectCast(m_feedbackSymbol, ISymbol)
'Use AppDisplay so it will work on magnifying windows
Dim disp As IScreenDisplay = DirectCast(m_application, IMxApplication).Display
m_centerPoint = disp.DisplayTransformation.ToMapPoint(X, Y)
m_circleFeedback.Display = disp
m_circleFeedback.Start(m_centerPoint)
Else
Reset(False)
End If
End Sub
Public Overrides Sub OnMouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Integer, ByVal Y As Integer)
If m_circleFeedback IsNot Nothing Then
Dim mxDoc As IMxDocument = TryCast(m_application.Document, IMxDocument)
'Cache last location just in case color change is requested in keydown to
'refresh the feedback
Dim disp As IScreenDisplay = DirectCast(m_application, IMxApplication).Display
m_lastPoint = disp.DisplayTransformation.ToMapPoint(X, Y)
'Move feedback
m_circleFeedback.MoveTo(m_lastPoint)
'Calculate angle to determine cursor
Dim constructAngle As IConstructAngle = DirectCast(m_geomEnv, IConstructAngle)
Dim angleLine As ILine = New LineClass()
angleLine.PutCoords(m_centerPoint, m_lastPoint)
Dim angle As Double = constructAngle.ConstructLine(angleLine)
SetCursor(angle)
End If
End Sub
Public Overrides Function Deactivate() As Boolean
'Option 1: Always allow to deactivate.
'Reset things before deactivate (easier and recommended)
Reset(True)
Return True
'Option 2: Do not allow deactivate in the middle of the feedback.
'Return (m_circleFeedback Is Nothing)
End Function
Public Overrides Sub OnKeyDown(ByVal keyCode As Integer, ByVal Shift As Integer)
'Change feedback symbology
If Shift = 2 And m_circleFeedback IsNot Nothing Then 'Ctrl
m_circleFeedback.Stop()
'change color randomly
Dim solidColor As IRgbColor = New RgbColorClass()
Dim num As Random = New Random()
solidColor.Red = num.Next(255)
solidColor.Green = num.Next(255)
solidColor.Blue = num.Next(255)
m_feedbackSymbol.Color = solidColor
'Restart the feedback with newly assigned color
m_circleFeedback.Start(m_centerPoint)
m_circleFeedback.MoveTo(m_lastPoint)
End If
End Sub
Public Overrides Sub Refresh(ByVal hDC As Integer)
If m_circleFeedback IsNot Nothing Then
m_circleFeedback.Refresh(hDC)
End If
End Sub
Private Sub Reset(ByVal resetColor As Boolean)
If m_circleFeedback IsNot Nothing Then
m_circleFeedback.Stop()
m_circleFeedback = Nothing
MyBase.m_cursor = Cursors.Cross
If resetColor Then
'Reset symbol color to red
Dim solidColor As IRgbColor = New RgbColorClass()
solidColor.Red = 255
m_feedbackSymbol.Color = solidColor
End If
End If
End Sub
Private Sub SetCursor(ByVal radianAngle As Double)
Dim absAngle As Double = Math.Abs(radianAngle)
If radianAngle < 0 Then 'Southern portion
If (absAngle >= 0 And absAngle < Math.PI / 8) Then 'E
MyBase.m_cursor = Cursors.PanEast
ElseIf (absAngle >= Math.PI / 8 And absAngle < 3 * Math.PI / 8) Then 'SE
MyBase.m_cursor = Cursors.PanSE
ElseIf (absAngle >= 3 * Math.PI / 8 And absAngle < 5 * Math.PI / 8) Then 'S
MyBase.m_cursor = Cursors.PanSouth
ElseIf (absAngle >= 5 * Math.PI / 8 And absAngle < 7 * Math.PI / 8) Then 'SW
MyBase.m_cursor = Cursors.PanSW
Else 'W
MyBase.m_cursor = Cursors.PanWest
End If
Else 'northern
If (absAngle >= 0 And absAngle < Math.PI / 8) Then 'E
MyBase.m_cursor = Cursors.PanEast
ElseIf (absAngle >= Math.PI / 8 And absAngle < 3 * Math.PI / 8) Then 'NE
MyBase.m_cursor = Cursors.PanNE
ElseIf (absAngle >= 3 * Math.PI / 8 And absAngle < 5 * Math.PI / 8) Then 'N
MyBase.m_cursor = Cursors.PanNorth
ElseIf (absAngle >= 5 * Math.PI / 8 And absAngle < 7 * Math.PI / 8) Then 'NW
MyBase.m_cursor = Cursors.PanNW
Else 'W
MyBase.m_cursor = Cursors.PanWest
End If
End If
End Sub
End Class