基于MAPX控件的鹰眼图实现-Read.DOCVIP

基于MAPX控件的鹰眼图实现 许士敏 摘 要：MapX 控件是一个常用的GIS功能组件，apX并详细说明在Visual Basic和Visual C++开发环境下利用MapX 控件实现鹰眼图的方法。 关键词：MapX控件 GIS VB VC 一、引言 地理信息系统 (GIS)是计算机技术和信息系统共同发展的产物，但是最初的 GIS系统过于专业化，主要运用于地理、地质等专业部门，加上处理设备的昂贵，一度曾阻碍了它的发展[1]。随着计算机技术的发展和用户需求的不断提高，特别是 GIS系统在军事及其它非专业领域内的应用，更是加快了它的发展，使其在世人面前重放光彩，新的信息可视化地图信息系统自重并成为计算机信息系统的一种发展趋势[2]。结合GIS工具软件与当今可视化开发语言的集成二次开发方式就成为GIS应用开发的主流。它的优点是既可以充分利用GIS工具软件对空间数据库的管理、分析功能，又可以利用其它可视化开发语言具有的高效、方便等编程优点，集二者之所长，不仅能大大提高应用系统的开发效率，而且使用可视化软件开发工具开发出来的应用程序具有更好的外观效果，更强大的数据库功能，而且可靠性好、易于移植、便于维护。尤其是使用OCX技术利用GIS功能组件进行集成开发，更能表现出这些优势。Map Info公司顺应这一发展潮流，该公司开发的 MapX就是一种受到用户广泛欢迎的功能强大的地图分析功能的 ActiveX控件，本文将对该控件作简要的介绍。 二、 Map X的功能简介 Map Info公司吸取了传统 GIS系统的精华，并借助于计算机技术的发展，及时将 GIS概念从大中型计算机的专用工作站上普及到普通桌面 PC上，开创了一种崭新的信息系统模式。MapX是 Map Info公司的能向用户提供强大地图分析功能的 Active X控件产品。MapX是MapInfo公司向用户提供的具有强大地图分析功能的ActiveX控件产品。由于它是一种基于Windows操作系统的标准控件，因而能支持绝大多数标准的可视化开发环境如Visual C++、Visual Basic、Delphi、PowerBuilder等。编程人员在开发过程中可以选用自己最熟悉的开发语言，轻松地将地图功能嵌入到应用中，并且可以脱离MapInfo的软件平台运行。利用MapX，能够简单快速地在企业应用中嵌入地图化功能，增强企业应用的空间分析能力，实现企业应用的增值。MapX采用基于MapInfo Professional的相同的地图化技术，可以实现MapInfo Professional具有的绝大部分地图编辑和空间分析功能。而且MapX提供了各种工具、属性和方法，实现这些功能是非常容易的。 鹰眼图是GIS中一个基本的功能，鹰眼图又名缩略图，顾名思义，在鹰眼图上可以象从空中俯视一样查看地图框中所显示的地图在整个图中的位置。如图1所示：以北京市地图为例，鹰眼的大小可分为北京市城区和北京市全区两个等级。Windows下的可视化开发工具现在大家接触得最多的就是VC，VB，下面将详细介绍在VC与VB环境下鹰眼图的具体实现，从这也可以看出利用MapX开发GIS应用程序的方法和技巧。 图1 鹰眼图示意图 三、VB下鹰眼图的实现 VB下鹰眼图实现的思路是这样的：在某一Form上放两个MapX控件：Map1（主图），Map2（鹰眼图）；然后在鹰眼图上创建一个图层，在该图层上添加一个矩形Feature，该矩形的大小随着主图边界而变化。 具体实现参考下面详细代码。 Dim m_Layer As Layer ’鹰眼图上临时图层 Dim m_Fea As MapXLib.Feature ’鹰眼图上反映主地图窗口位置的Feature Private Sub Form_Load() Set m_Layer = Map2.Layers.CreateLayer(Rectlayer) ’在Map2创建图层 End Sub ’根据map1的Bounds在Map2上绘制矩形Feature Private Sub Map1_MapViewChanged() Dim tempFea As MapXLib.Feature ’声明Feature变量 Dim tempPnts As MapXLib.Points ’声明Points变量 Dim tempStyle As MapXLib.Style ’声明Style变量 ’矩形边框还没有创建时 If m_Layer.AllFeatures.Count = 0 Then ’设置矩形边框样式 Set tempStyle = New MapXLib.Style ’创建Style对象 tempStyle