Report Location in Decimal Degrees

Created:7/10/2000
Description:

This sample tool reports the mouse down location in decimal degrees. To convert decimal degrees to DMS (degrees, minutes, seconds), use the LatLonFormat object.

How to use:
  1. Load some projected data into the focus map.
  2. Add a new UIToolControl to any toolbar.
  3. Paste the code into VBA.
  4. Make sure the names of the controls match, the sample assumes UIToolControl1.
  5. Completely close VBA so mouse events fire.
  6. Select the tool and then click anywhere on the focus map.
Private Sub UIToolControl1_MouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long)
  Dim pMxDoc As IMxDocument
  Dim pPoint As IPoint
  Dim pClone As IClone
  Dim pGeometry As IGeometry
  Dim pSpatialRefFactory As ISpatialReferenceFactory
  Dim pSpatialRef As ISpatialReference
  Dim pGeographicCoordSys As IGeographicCoordinateSystem
  
  'Get the point where the user clicked
  Set pMxDoc = Application.Document
  If pMxDoc.CurrentLocation.IsEmpty Then Exit Sub
  'Clone the point because we don't want to alter
  'the actual document's current location point
  Set pClone = pMxDoc.CurrentLocation
  Set pPoint = pClone.Clone
  Set pGeometry = pPoint 'QI
  
  'Create a new geographic coordinate system to use in the conversion
  Set pSpatialRefFactory = New SpatialReferenceEnvironment
  Set pGeographicCoordSys = pSpatialRefFactory.CreateGeographicCoordinateSystem(esriSRGeoCS_NAD1983)
  Set pSpatialRef = pGeographicCoordSys 'QI
  pSpatialRef.SetFalseOriginAndUnits -180, -90, 1000000
  
  pGeometry.Project pSpatialRef
  MsgBox pPoint.x & ", " & pPoint.y, , "Decimal Degrees"
  
End Sub