' 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 System
Imports System.Collections.Generic
Imports System.Text
Imports System.IO
Imports ESRI.ArcGIS.ADF.BaseClasses
Imports ESRI.ArcGIS.ADF.CATIDs
Imports System.Windows.Forms
Imports ESRI.ArcGIS.Geometry
Imports ESRI.ArcGIS.Analyst3D
Imports ESRI.ArcGIS.GlobeCore
Imports ESRI.ArcGIS.Carto
Imports ESRI.ArcGIS.Display
Imports Microsoft.VisualBasic

Namespace GlobeGraphicsToolbar
  Public Class TextTool
    Inherits ESRI.ArcGIS.Desktop.AddIns.Tool
    Private Const LeftButton As Integer = 1
        Private Const GeographicCoordinateSystem As ESRI.ArcGIS.Geometry.esriSRGeoCSType = ESRI.ArcGIS.Geometry.esriSRGeoCSType.esriSRGeoCS_WGS1984
    Private Const TextElementSize As Single = 10
    Private Const GraphicsLayerName As String = "Globe Graphics"
    Private _missing As Object = Type.Missing

    Public Sub New()
    End Sub

    Protected Overrides Sub OnUpdate()

    End Sub

    Protected Overrides Sub OnMouseDown(ByVal arg As ESRI.ArcGIS.Desktop.AddIns.Tool.MouseEventArgs)
      If arg.Button = MouseButtons.Left Then
        Dim geographicCoordinates As New GeographicCoordinates(ArcGlobe.Globe, arg.X, arg.Y)

        Dim spatialReferenceFactory As New SpatialReferenceFactory(CInt(Fix(GeographicCoordinateSystem)))

        Dim pointGeometry As New PointGeometry(geographicCoordinates.Longitude, geographicCoordinates.Latitude, geographicCoordinates.AltitudeInKilometers, spatialReferenceFactory.SpatialReference)

        Dim textForm As New TextForm()

        Dim dialogResult As DialogResult = textForm.ShowDialog()

        If textForm.InputText.Length > 0 Then
          Dim textElement As New TextElement(pointGeometry.Geometry, textForm.InputText, TextElementSize)

          Dim tableOfContents As New TableOfContents(ArcGlobe.Globe)

          If (Not tableOfContents.LayerExists(GraphicsLayerName)) Then
            tableOfContents.ConstructLayer(GraphicsLayerName)
          End If

          Dim layer As New Layer(tableOfContents(GraphicsLayerName))

          layer.AddElement(textElement.Element, textElement.ElementProperties)

          ArcGlobe.Globe.GlobeDisplay.RefreshViewers()
        End If
      End If
    End Sub
  End Class

End Namespace