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

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

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!