隨着地理信息系統的發展，國內外已出現了不少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
此時所創建的工具沒有任何功能，要工具具備相應的功能由第二步實現。
2.2編寫工具句柄 (工具具備什麼功能)。
當按下鼠標左鍵時，需要記下橢圓的起始位置;當鼠標右鍵彈上時，需要記下橢圓的結束位置，這時，畫出橢圓。橢圓將以這兩點爲矩形的對角線在矩形框中繪製橢圓。需要特別注意的是，MapX4.0中使用的座標系統是經/緯度系統，而MouseDOwn，MouseUp事件中的座標是屏幕座標，因此，需要將屏幕座標轉化爲經/緯度座標，所畫橢圓才能顯示在正確的位置上。
關鍵方法(繪製橢圓)：
OBJECT.CreateEllipticalRegion(Rectangle,[Angle] , [Resolution] , [Style] )
OBJECT:FeatureFactory對象;
Rectangle(矩形)：Rectangle對象，確定了橢圓的大小;
Angle(角度)：變量，決定橢圓繞中心點旋轉的角度;
Resolution(精度) ：變量， 橢圓的精度，由多少點構成;
Style(樣式): 變量，定義了所畫橢圓的樣式，如顏色，線型等。
實際編碼：
Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton And (Map1.CurrentTool = miAddEllipseTool) Then
Map1.NumericCoordSys.Set miLongLat, 0
'將屏幕座標轉變爲經緯度座標
Map1.ConvertCoord X, Y, RectX1, RectY1, miScreenToMap
End if
End Sub
Private Sub Map1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton And (Map1.CurrentTool = miAddEllipseTool) Then
'將地圖的座標系統設爲經/緯度座標
Map1.NumericCoordSys.Set miLongLat, 0
'將屏幕座標轉變爲經緯度座標
Map1.ConvertCoord X, Y, RectX2, RectY2, miScreenToMap
'鼠標彈起時，畫橢圓
Call AddEllipse(form1,RectX1,RectY1,RectX2,RectY2)
Endif
End sub
'畫橢圓過程
Public Sub AddEllipse(frm As Form, x1 As Double, _
y1 As Double,x2 As Double,y2 As Double, EditLayer As Variant)
Dim RECT As New MapXLib.Rectangle '畫橢圓的矩形框
Dim CreatedEllipse As Feature '所畫的橢圓
Dim I as integer,EditLayer as integer
'設置畫橢圓的矩形框
RECT.Set x1, y1, x2, y2
With frm.Map1
'創建橢圓
Set CreatedEllipse = .FeatureFactory. _
CreateEllipticalRegion(RECT, , 500, .DefaultStyle)
'確定哪一層是可編輯層，橢圓只能畫在可編輯層上
For I=1 to .map1.layers.count
If .map1.layers(I).editable=true then
Editlayer=I
Exit for
Endif
Next I
'將橢圓添加到所畫的圖層上
.Layers.Item(EditLayer).AddFeature CreatedEllipse
End With
End Sub
此時，畫橢圓工具具備了畫橢圓的功能，運用定製的這個工具由第三步實現。
2.3調用定製工具
'設置當前工具爲定製的畫橢圓工具
Map1.CurrentTool=miAddEllipse
或 Map1.currenttool=1
3. 結束語
本例畫橢圓時，從鼠標按下，一直到鼠標最後彈起時纔可以看到橢圓出現在地圖上，這就是說在鼠標移動(MouseMove事件)時，從鼠標按下，到鼠標彈起的中間過程是看不到中間過程的橢圓出現的。爲了實現在鼠標移動時，也可以看到橢圓，那麼需要在MouseMove事件中畫橢圓，並且，每次畫橢圓時刪除掉前一次畫的橢圓。這樣的運行結果就是看到，從鼠標按下，到鼠標彈起的過程中，隨鼠標的移動而有了繪橢圓的變化過程。
另外，本文是以VB5爲例，進行的編程，但對於其它語言，如VC++，Delphi等，編程思路和關鍵方法都是相同的。
