Страница 1 из 1

Отработка клика на полигоне.

Добавлено: 11 сен 2007, 10:57
Fiyanov
Как поймать или сделать событие? Так чтоб при клике на полигоне срабатывала какая нибудь процедура (выполнялись действия). Что то типа OnClick().

Добавлено: 17 сен 2007, 04:26
Максим Дубинин
клике на полигоне каким инструментом? и о каком продукте идет речь?
вариантов - полно, и в arcgis и arcview.

Добавлено: 17 сен 2007, 09:13
AndreyL
Не знаю, что конкретно интересует автора темы, но меня бы интересовала обработка клика (лучше двойного) инструментом выбора элемента (обычной стрелочкой, не молнией гиперссылки) в АркГИС.

Добавлено: 17 сен 2007, 14:29
Fiyanov

Код: Выделить всё

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 pActiveView As IActiveView
  Dim pPoint As IPoint
  Dim pFeature As IFeature
  
  'Fateev
  sFeature = "Use shape-layers:" & vbCrLf
  
  Set pMxDoc = ThisDocument 'Application.Document
  Set pActiveView = pMxDoc.FocusMap
  'Create a search point
  Set pPoint = pActiveView.ScreenDisplay.DisplayTransformation.ToMapPoint(x, y)
  'Pass the point to the FindFeature function along with the Map and search tolerance
  Set pFeature = FindFeature(pMxDoc.SearchTolerance, pPoint, pMxDoc.FocusMap)
    
  'Message box the feature ID and feature class alias name
  If Not pFeature Is Nothing Then
    MsgBox sFeature & vbCrLf & "Top element:" & vbCrLf & "-  FID:" & 
  End If
End Sub
Вот так при помощи tools'a можно прохавать. В ArcMAP