彭怎么组词:VB+MapX创建测距工具源码-MapInfo项目小组

来源：百度文库 编辑：中财网 时间：2024/05/02 08:11:02

VB+MapX创建测距工具源码

分类: 源码下载 发布: MapInfo 浏览: 74日期: Friday, November 27, 2009

代码功能简介：创建测距工具
转载请注明：源码来源于MapInfo家园(http://www.gis-mapinfo.cn)

首先创建测距工具
global const calculatedistance=1
Private Sub Form_Load()
map1.CreateCustomTool(calcilatedistance,miToolTypepoly ,microsscursor)
End Sub
Private Sub Distances_Click()
map1.currenttool=calculatetool
End Sub


然后在mapx的PolyToolUsed事件中， 用Distance( x1,y1,x2,y2 )计算距离，由状态条中或label显示。
Private Sub Map1_PolyToolUsed(ByVal ToolNum As Integer, ByVal Flags As Long, ByVal points As Object, ByVal bShift As Boolean, ByVal bCtrl As Boolean, EnableDefault As Boolean)

Dim DisSum As Double
Dim Dis As Double
Dim n As Integer
Dim pts As New MapXLib.points
Dim x1 As Double, y1 As Double, x2 As Double, y2 As Double

Set pts = points

DisSum = 0
MDIForm1.StatusBar1.Panels.Item(3).Text= Format(Str(DisSum), "#,##0.000000")

Select Case Flags
Case miPolyToolBegin
Case miPolyToolInProgress
If ToolNum = CalculateDistance Then
For i = 1 To pts.Count - 1
x1 = pts.Item(i).X
y1 = pts.Item(i).Y
x2 = pts.Item(i + 1).X
y3 = pts.Item(i + 1).Y
Dis = Map1.Distance(x1, y1, x2, y2)
DisSum = DisSum + Dis
MDIForm1.StatusBar1.Panels.Item(3).Text = Format(Str(DisSum), "#,##0.000000")
Next i
End If

Case miPolyToolEnd

End Select
 

VB MAPI控件的注册! 求VB+MAPX实例 问个很菜的问题:有了VB源码如何创建执行程序? 关于mapx与VB开发的问题 VB 使用MAPI 发送邮件的 2个问题 VB下载+VB源码下载 写字板的VB源码 什么是VB源码 VB软件源码下载 高分求VB源码 vb网络编程源码 vb源码问题求助 VB源码怎么下??? 怎么用mapx中BufferFeatures创建缓冲区，我需要代码 源码收集的工具 VB+MapX运行出现：对象“Search”的方法“CMapXLayerfind”失败 VB+Map-X里如何实现地图的测距？ 我系统没有安装任何邮件收发系统,怎样才能用MAPI呢(VB) 用VB做电子邮件客户端工具，类似OUTLOOK，问创建新邮件，如何实现弹出窗口 超市管理系统VB源码 VB删除隐藏文件源码 诚求vb成绩排名源码 求助VB源码：点对点数据传输 VB运行子目录程序源码