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 此时所创建的工具没有任何功能，要工具具备相应的功能由第二步实现。
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
