摘要 本文介紹了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
此時所創建的工具沒有任何功能，要工具具備相應的功能由第二步實現。
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等，編程思路和關鍵方法都是相同的。
