Отработка клика на полигоне.
-
- Интересующийся
- Сообщения: 23
- Зарегистрирован: 08 авг 2007, 09:36
- Репутация: 0
Отработка клика на полигоне.
Как поймать или сделать событие? Так чтоб при клике на полигоне срабатывала какая нибудь процедура (выполнялись действия). Что то типа OnClick().
- Максим Дубинин
- MindingMyOwnBusiness
- Сообщения: 9128
- Зарегистрирован: 06 окт 2003, 20:20
- Репутация: 747
- Ваше звание: NextGIS
- Откуда: Москва
- Контактная информация:
-
- Завсегдатай
- Сообщения: 483
- Зарегистрирован: 17 авг 2006, 14:04
- Репутация: 0
- Откуда: Новосибирск
-
- Интересующийся
- Сообщения: 23
- Зарегистрирован: 08 авг 2007, 09:36
- Репутация: 0
Код: Выделить всё
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
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и 13 гостей