使用ArcGIS Engine来实现地图的点击查询并闪烁
来源:互联网 发布:深圳能源集团 知乎 编辑:程序博客网 时间:2024/04/28 21:29
过程描述
Private Sub MapControl1_OnMouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long, ByVal mapX As Double, ByVal mapY As Double)
Dim pMap As IMap
Dim i As Integer
Dim pPoint As IPoint
Set pMap = MapControl1.Map
Set pPoint = MapControl1.ActiveView.ScreenDisplay.DisplayTransformation.ToMapPoint(x, y)
Dim pIdentify As IIdentify
Dim pIDArray As IArray
Dim pFeatIdObj As IFeatureIdentifyObj
Dim pIdObj As IIdentifyObj
Set pIdentify = pMap.Layer(1)
Dim pEnv As IEnvelope
Set pEnv = New Envelope
Set pEnv = MapControl1.ActiveView.Extent
pEnv.Height = 100
pEnv.Width = 100
pEnv.CenterAt pPoint
Set pIDArray = pIdentify.Identify(pEnv)
If Not pIDArray Is Nothing Then
Set pFeatIdObj = pIDArray.Element(0)
Set pIdObj = pFeatIdObj
pIdObj.Flash MapControl1.ActiveView.ScreenDisplay
'消息显示查询目标的信息
MsgBox "Layer:" & pIdObj.Layer.Name & vbNewLine & "Feature:" & pIdObj.Name
Else
MsgBox "No feature identified."
End If
End Sub
- 使用ArcGIS Engine来实现地图的点击查询并闪烁
- ArcGIS点击地图查询
- arcgis engine的 地图裁剪
- ArcGIS Engine下实现地图输出
- ArcGIS Engine下实现地图输出
- 在Arcgis Engine中使用Arcgis Server的切片地图的一点心得
- ArcGIS Engine基础开发教程之地图查询
- ArcGIS Engine基础开发教程之地图查询
- ArcGIS Engine基础开发教程之地图查询
- ArcGIS Engine基础开发教程之地图查询
- arcgis for android 地图查询并定位
- ArcGIS Engine 地图制作 C#
- ArcGIS Engine空间查询之高亮显示和非高亮显示的实现
- Arcgis Engine鹰眼功能的实现
- ArcGis Engine 要素折点转点的代码实现
- ArcGIS Engine之地图的打开与保存
- arcgis engine空间查询与属性查询的主要代码
- arcgis engine空间查询与属性查询的主要代码
- 今天开播了
- 对于引用形参的一些说明
- 某题
- 细读《Effective C++》之四
- Uof的参与
- 使用ArcGIS Engine来实现地图的点击查询并闪烁
- 整理的JasperReport资料
- 细读《Effective C++》之五
- 接受整数,然后左右反转
- 读《做个成功的人之克服羞怯》有感
- jsp实现下载功能
- 手工焊接的基本操作
- 人生的意义何在??
- 细读《Effective C++》之六