ArcEngine的一个简单鹰眼

楼主^#

更多发布于：2008-08-21 10:30

首先，添加两个MapControl,主图命名为mapMain，鹰眼图命名为mapEye

Imports ESRI.ArcGIS.Geometry 
Imports ESRI.ArcGIS.Display

Public Class Form1

 Private EyeRect As IEnvelope '鹰眼矩形框范围 
 Private EyeSym As ISimpleFillSymbol ‘鹰眼矩形框符号

 ’得到鹰眼矩形框范围
 Private Function GetEyeRect() As IEnvelope
 Dim pEnvMainFull As IEnvelope 
 pEnvMainFull = mapMain.FullExtent 
 Dim pEnvMainExt As IEnvelope 
 pEnvMainExt = mapMain.Extent
 Dim pEnvEyeFull As IEnvelope 
 pEnvEyeFull = mapEye.FullExtent 
 Dim pEnvEyeExt As IEnvelope 
 pEnvEyeExt = New Envelope
 pEnvEyeExt.XMin = pEnvEyeFull.XMin + (pEnvMainExt.XMin - pEnvMainFull.XMin) / pEnvMainFull.Width * pEnvEyeFull.Width 
 pEnvEyeExt.XMax = pEnvEyeFull.XMax - (pEnvMainFull.XMax - pEnvMainExt.XMax) / pEnvMainFull.Width * pEnvEyeFull.Width 
 pEnvEyeExt.YMin = pEnvEyeFull.YMin + (pEnvMainExt.YMin - pEnvMainFull.YMin) / pEnvMainFull.Height * pEnvEyeFull.Height 
 pEnvEyeExt.YMax = pEnvEyeFull.YMax - (pEnvMainFull.YMax - pEnvMainExt.YMax) / pEnvMainFull.Height * pEnvEyeFull.Height
 GetEyeRect = pEnvEyeExt
 End Function

 ‘得到RGB颜色
 Private Function GetRGBColor(ByVal pRed As Long, ByVal pGreen As Long, ByVal pBlue As Long) As IRgbColor
 Dim pRGB As IRgbColor 
 pRGB = New RgbColor
 pRGB.Red = pRed 
 pRGB.Green = pGreen 
 pRGB.Blue = pBlue 
 pRGB.UseWindowsDithering = True
 GetRGBColor = pRGB
 End Function

 ’得到鹰眼矩形框符号
 Private Function GetEyeSym() As ISimpleFillSymbol
 Dim pSym As ISimpleFillSymbol 
 pSym = New SimpleFillSymbol
 Dim pLnSym As ISimpleLineSymbol 
 pLnSym = New SimpleLineSymbol 
 pLnSym.Color = Me.GetRGBColor(255, 0, 0) 
 pLnSym.Style = esriSimpleLineStyle.esriSLSSolid 
 pLnSym.Width = 2
 pSym.Color = Me.GetRGBColor(255, 0, 0) 
 pSym.Style = esriSimpleFillStyle.esriSFSBackwardDiagonal 
 pSym.Outline = pLnSym
 GetEyeSym = pSym
 End Function

 ‘mapEye.Refresh()事件激活了mapEye的OnAfterDraw事件 -> 开始绘制鹰眼矩形框
 Private Sub mapEye_OnAfterDraw(ByVal sender
As System.Object, ByVal e As
ESRI.ArcGIS.Controls.IMapControlEvents2_OnAfterDrawEvent) Handles
mapEye.OnAfterDraw
 EyeRect = GetEyeRect() 
 EyeSym = GetEyeSym()
 If Not EyeRect Is Nothing And Not EyeSym Is Nothing Then 
 mapEye.DrawShape(EyeRect, EyeSym) 
 End If 
 End Sub

 '在主图（mapMain）上进行操作（放大，缩小，平抑等），激活了mapMain_OnAfterScreenDraw事件
 Private Sub mapMain_OnAfterScreenDraw(ByVal
sender As System.Object, ByVal e As
ESRI.ArcGIS.Controls.IMapControlEvents2_OnAfterScreenDrawEvent) Handles
mapMain.OnAfterScreenDraw
 mapEye.Refresh()
 End Sub

End Class

在为MapControl添加事件时，我发现了三个事件：OnAfterDraw，OnAfterScreenDraw，OnBeforeScreenDraw ；
 经过调试，我发现三者的执行顺序是 OnBeforeScreenDraw -> OnAfterDraw -> OnAfterScreenDraw
 OnBeforeScreenDraw 意思还比较好理解，意为“执行屏幕绘制钱”，OnAfterDraw 与 OnAfterScreenDraw就有点混淆了
于是，我进行了一些调整和实验，把 mapEye.Refresh() 放在了 mapMain_OnAfterDraw 事件中，结果程序顺利运行；
 把 mapEye_OnAfterDraw() 事件改成为 mapEye_OnAfterScreenDraw() 事件，内容保持不变，结果程序没有现实鹰眼功能；
 由此我大概猜想：鹰眼框的绘制是不是算作“屏幕上图形的绘制”，故只能在OnAfterScreenDraw前执行，而主图上的一系列操作只要能够激发
 mapEye.Refresh()就可以了，放在 mapMain_OnAfterScreenDraw 或是 mapMain_OnAfterDraw 中都是一样

关于MapControl的三个事件OnAfterDraw，OnAfterScreenDraw，OnBeforeScreenDraw 还望大家予以更详尽，更深入的讨论和讲解～～～

喜欢0 评分0

没钱又丑，农村户口。头可断，发型一定不能乱。邮箱:gisempire@qq.com

举报回复

gzstyxb

路人甲

注册日期2004-09-22
发帖数358
QQ
铜币1045枚
威望0点
贡献值0点
银元0个

加关注写私信

1楼^#

发布于：2008-08-22 10:10

大家都在重复的写同样的代码，乐此不疲。为何不愿意做成一个通用的控件，一次写成，多处使用呢？

由爱故生忧, 由爱故生怖. 若离于爱者, 无忧亦无怖.

举报回复喜欢评分

gzstyxb

路人甲

注册日期2004-09-22
发帖数358
QQ
铜币1045枚
威望0点
贡献值0点
银元0个

加关注写私信

2楼^#

发布于：2008-08-22 10:13

我写了一个简单的，可以提供大家使用。使用起来非常简单。 <a href="http://www.gisempire.com/bbs/dispbbs.asp?BoardID=62;ID=66591;replyID=;skin=1" target="_blank" >http://www.gisempire.com/bbs/dispbbs.asp?BoardID=62;ID=66591;replyID=;skin=1</A>

由爱故生忧, 由爱故生怖. 若离于爱者, 无忧亦无怖.

举报回复喜欢评分

您需要登录后才可以回帖，登录或者注册

ArcEngine的一个简单鹰眼

最新喜欢：