[求助]怎样测算图层上两点之间的距离？

Ruler 是我自定义的测算距离的工具

Private Sub lxRulerTool_Click()    Map1.CurrentTool = RulerTool End Sub

Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)   If Map1.CurrentTool = RulerTool And Button = vbLeftButton Then      Map1.ConvertCoord X, Y, XDown, YDown, miScreenToMap   End If End Sub

Private Sub Map1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)   If Map1.CurrentTool = RulerTool And Button = vbLeftButton Then     Dim MapCoordX As Double, MapCoordY As Double       Map1.MapUnit = miUnitMile       Map1.ConvertCoord X, Y, MapCoordX, MapCoordY, miScreenToMap       fMainForm.sbStatusBar.Simple Text = Map1.Distance(XDown, YDown, MapCoordX, MapCoordY) ; "miles"    End If End Sub

为什么执行不了啊？好像是fMainForm.sbStatusBar.Simple Text 这里出问题了。书上说两点距离是在表状态栏里显示，到底在哪啊？各位达人帮我看看啊。

顺便再问一个问题,为什么我测算不出结果呢?

我使用的是下载的上海矢量地图, 用geoset 生成一个M上海的文件,然后用MAPx打开,

是不是还需要一些坐标的设置啊?

en  !

是全程变量我在通用模块里都声明了

XDown, YDown, MapCoordX, MapCoordY

你上面的变量是全程变量吗？