水世界-水处理技术社区(论坛)

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信登录

扫一扫,用微信登录

搜索
查看: 2145|回复: 1
打印 上一主题 下一主题

vb+ao鹰眼图代码

[复制链接]

1万

积分

5860

金钱

4894

帖子

铂金水师

QQ
跳转到指定楼层
楼主
发表于 2007-9-21 14:33:28 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式



马上注册并关注水世界微信号,获得更多资料

您需要 登录 才可以下载或查看,没有帐号?注册   扫一扫,用微信登录

x
Dim pMainMap As IMap Dim pMainAV As IActiveView Dim pOverMap As IMap Dim pOverAV As IActiveView Dim pOverGraCon As IGraphicsContainer Dim pEnv As IEnvelope Private Sub Form_Load() Set pMainMap = MapControl1.Map Set pMainAV = pMainMap Set pOverMap = MapControl2.Map Set pOverAV = pOverMap Set pOverGraCon = pOverAV pOverAV.Extent = MapControl2.FullExtent pOverAV.PartialRefresh esriViewDrawPhase.esriViewGeography, Nothing, Nothing End Sub Private Sub MapControl1_OnAfterScreenDraw(ByVal hdc As Long) '两个控件保持保持一致 Set pEnv = pMainAV.Extent Dim pOverEle As IFillShapeElement Set pOverEle = getEnvEle(pEnv) pOverGraCon.DeleteAllElements pOverGraCon.AddElement pOverEle, 0 '刷新鸟瞰控件视图 pOverAV.PartialRefresh esriViewDrawPhase.esriViewGeography, Nothing, Nothing End Sub Private Sub MapControl2_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 pPt As IPoint Set pPt = New Point pPt.PutCoords mapX, mapY '改变主控件的视图范围 pEnv.CenterAt pPt pMainAV.Extent = pEnv pMainAV.PartialRefresh esriViewDrawPhase.esriViewGeography, Nothing, Nothing End Sub ' 产生颜色的函数 Private Function getEnvEle(ByVal pEnv As IEnvelope) As IFillShapeElement Dim pEle As IElement Dim pFillShapeEle As IFillShapeElement Set pFillShapeEle = New RectangleElement Set pEle = pFillShapeEle '颜色产生器 Dim pColor As IRgbColor Set pColor = New RgbColor pColor.Red = 255 pColor.Green = 0 pColor.Blue = 0 pColor.Transparency = 255 '线符号 Dim pLineSym As ISimpleLineSymbol Set pLineSym = New SimpleLineSymbol pLineSym.Color = pColor pLineSym.Style = esriSimpleLineStyle.esriSLSSolid pLineSym.Width = 1 '填充符号 Dim pFillSym As IFillSymbol Set pFillSym = New SimpleFillSymbol pColor.Transparency = 0 pFillSym.Color = pColor pFillSym.Outline = pLineSym pEle.Geometry = pEnv pFillShapeEle.Symbol = pFillSym Set getEnvEle = pFillShapeEle 'Return pFillShapeEle End Function
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 转播转播 分享分享 分享淘帖 支持支持 反对反对
清啦

16

积分

469

金钱

32

帖子

小小水师

沙发
发表于 2008-4-26 15:30:14 | 只看该作者
AO在线上画注记AO在线上画注记
您需要登录后才可以回帖 登录 | 注册   扫一扫,用微信登录

本版积分规则

联系管理员|手机版|小黑屋|水世界-水处理技术社区(论坛) ( 京ICP备12048982号-4

GMT+8, 2025-6-10 15:06 , Processed in 0.179508 second(s), 36 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表