Отработка клика на полигоне.
Добавлено: 11 сен 2007, 10:57
Как поймать или сделать событие? Так чтоб при клике на полигоне срабатывала какая нибудь процедура (выполнялись действия). Что то типа OnClick().
Геоинформационные системы (ГИС) и Дистанционное зондирование Земли
https://gis-lab.info/forum/
Код: Выделить всё
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