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

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等，编程思路和关键方法都是相同的。

查看本文来源