Обращаюсь с просьбой о помощи.
Вопрос в следующем, выбираю инструментом объект на карте, данные об этом объекте выводятся в стандартное диалоговое окно предусмотренное
работой кнопки Identify.
Как выводить эти же данные об объекте в свое диалоговое окно?
Как выводить в свое диалоговое окно не все подряд данные из таблицы, а только определенные поля?
Спасибо.
Привожу стандартный код кнопки Identify в ArcGis.
Если можно, то приведите пожалуйста пример кода, или что нужно исправить в этом коде.
Код: Выделить всё
Imports System.Runtime.InteropServices
Imports System.Drawing
Imports ESRI.ArcGIS.ADF.BaseClasses
Imports ESRI.ArcGIS.ADF.CATIDs
Imports ESRI.ArcGIS.Framework
Imports ESRI.ArcGIS.ArcMapUI
Imports System.Windows.Forms
Imports ESRI.ArcGIS.Geometry
Imports ESRI.ArcGIS.esriSystem
Imports ESRI.ArcGIS.SystemUI
Imports ESRI.ArcGIS.Carto
Imports ESRI.ArcGIS.CartoUI
Imports ESRI.ArcGIS.Geodatabase
Imports ESRI.ArcGIS.ADF
Public NotInheritable Class CoordTool
Inherits BaseTool
Private m_pApp As IApplication
Private m_pMxDoc As IMxDocument
Public Overrides Sub OnCreate(ByVal hook As Object)
m_pApp = hook
If Not (hook Is Nothing) Then
If TypeOf (hook) Is IApplication Then
m_pApp = CType(hook, IApplication)
m_pMxDoc = CType(m_pApp.Document, IMxDocument)
End If
End If
End Sub
Public Overrides Sub OnMouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Integer, ByVal Y As Integer)
Dim pActiveView As IActiveView
Dim pIdentifyDialog As IIdentifyDialog
Dim pIdentifyDialogProps As IIdentifyDialogProps
Dim pEnumLayer As IEnumLayer
Dim pLayer As ILayer
pActiveView = m_pMxDoc.FocusMap
pIdentifyDialog = New IdentifyDialog
pIdentifyDialogProps = pIdentifyDialog
pIdentifyDialog.Map = m_pMxDoc.FocusMap
pIdentifyDialog.Display = pActiveView.ScreenDisplay
pIdentifyDialog.ClearLayers()
pEnumLayer = pIdentifyDialogProps.Layers
pEnumLayer.Reset()
pLayer = pEnumLayer.Next
Do While Not pLayer Is Nothing
pIdentifyDialog.AddLayerIdentifyPoint(pLayer, X, Y)
pLayer = pEnumLayer.Next
Loop
pIdentifyDialog.Show()
End Sub
