VB中利用MapX创建用户定制工具

摘要 本文介绍了VB中如何利用MapX创建用户定制地图工具，详细地说明了整个创建过程，以及在创建定制工具的过程中所使用的关键方法。

　　1.前言

　　随着地理信息系统的发展，国内外已出现了不少GIS（地理信息系统）软件，其中MapX是MapInfo公司的ActiveX控件产品。由于它是一种基于Windows操作系统的标准控件，因而MapX4.0支持绝大多数标准的可视化开发环境，如：VisualBasic，Delphi，PowerBuilder，VisualC++等面向对象语言，而且可以使用Lotus Script将MapX4.0嵌入到Lotus Notes中。

　　虽然MapX4.0提供了许多标准工具，可以直接使用，但是很多情况下，这些标准工具不能满足实际的需要，这就要求通过定制地图工具来规定工具能完成何种功能，例如画椭圆工具，标尺工具（测线段长度）等等。下面，笔者就通过一具体实例来介绍一下VB中采用MapX4.0控件制作地图的定制工具。

　　2.VB环境下MapX编程

　　利用MapX4.0创建用户定制工具分为以下三步：

　　2.1 创建定制工具

　　本例创建的是画椭圆工具。首先，宣称全局常量miAddEllipseTool = 1，1就代表了画椭圆这个工具。然后，在主窗体中创建画椭圆工具。
关键方法（创建定制工具）：

OBJECT.CreateCustomTool (ToolNumber, Type, Cursor, [ShiftCursor] , [CtrlCursor], [InfoTips])

　　OBJECT（对象）：Map对象；

　　ToolNumber（工具号）是创建出代表画椭圆工具的miAddEllipseTool；

　　Type（类型）：描述了工具的行为，这个参数取的ToolTypeConstants（工具类型常量）值。本例，工具是按下鼠标左键到弹上鼠标左键的过程中画椭圆。本例中取的是miToolTypePoint；

　　Cursor（指针形状）：使用该工具时，该工具在地图上显示的形状，该参数从CursorConstants（指针常量）中取值。本例选用的是miCrossCursor，那么当选择该工具时，该工具将在地图上显示成十字叉形状；

　　ShiftCursor ，CtrlCursor：这两个参数是可选的，缺省情况时，SHIFT键和CTRL键不起作用；

　　InfoTips（工具提示）： Boolean型。 如果要显示工具提示，需要将此参数设为true；缺省值为false。

　　实际编码：

Public Const miAddEllipseTool = 1 '定制的加椭圆工具 Public RectX1 As Double '新加椭圆（所需的矩形）的点1的X（经纬度）坐标 Public RectY1 As Double '新加椭圆（所需的矩形）的点1的Y（经纬度）坐标 Public RectX2 As Double '新加椭圆（所需的矩形）的点2的X（经纬度）坐标 Public RectY2 As Double '新加椭圆（所需的矩形）的点2的Y（经纬度）坐标 Private Sub Form_Load() '创建定制工具 Map1.CreateCustomTool miAddEllipseTool, _ miToolTypePoint, miCrossCursor End Sub

　　此时所创建的工具没有任何功能，要工具具备相应的功能由第二步实现。