默认头像
路人甲
路人甲
  • 注册日期2005-04-28
  • 发帖数6
  • QQ
  • 铜币130枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1666回复:4

AE如何在Mapcontrol中显示鼠标点的经纬度?

楼主#
更多 发布于:2005-05-18 00:12

我看帮助,好像实现这个要写很多代码,但是在MO中,只是一个简单的转化就行了。我想是不是这个也有简单的方法。谢谢各位高手能在我engine的学习中,指点一下这个用代码怎么实现。谢谢了!!!

喜欢0 评分0
默认头像
gis
管理员
管理员
  • 注册日期2003-07-16
  • 发帖数15951
  • QQ
  • 铜币25345枚
  • 威望15368点
  • 贡献值0点
  • 银元0个
  • GIS帝国居民
  • 帝国沙发管家
  • GIS帝国明星
  • GIS帝国铁杆
1楼#
发布于:2005-08-09 09:47
以下是引用gaoguosheng在2005-8-6 23:46:40的发言:

Dim m_pPoint As IPoint
Set m_pPoint = MapControl1.ToMapPoint(x, y)

 StatusBar1.Panels(2).Text = CStr(Round(m_pPoint.x, 3)) + " " + CStr(Round(m_pPoint.y, 3))
 StatusBar1.Panels(2).Text = StatusBar1.Panels(2).Text + " " + CStr(sMapUnits)
 StatusBar1.Panels(2).Alignment = sbrCenter

在我网站也收集了些源码,http://www.gs008.com

国生资讯->gis 相关

GIS麦田守望者,期待与您交流。
举报 回复(0) 喜欢(0)     评分
默认头像
路人甲
路人甲
  • 注册日期2005-08-02
  • 发帖数38
  • QQ18087249
  • 铜币244枚
  • 威望0点
  • 贡献值0点
  • 银元0个
2楼#
发布于:2005-08-06 23:46

Dim m_pPoint As IPoint
Set m_pPoint = MapControl1.ToMapPoint(x, y)

 StatusBar1.Panels(2).Text = CStr(Round(m_pPoint.x, 3)) + " " + CStr(Round(m_pPoint.y, 3))
 StatusBar1.Panels(2).Text = StatusBar1.Panels(2).Text + " " + CStr(sMapUnits)
 StatusBar1.Panels(2).Alignment = sbrCenter

在我网站也收集了些源码,http://www.gs008.com

国生资讯->gis 相关

举报 回复(0) 喜欢(0)     评分
默认头像
路人甲
路人甲
  • 注册日期2005-03-18
  • 发帖数46
  • QQ
  • 铜币247枚
  • 威望0点
  • 贡献值0点
  • 银元0个
3楼#
发布于:2005-05-19 16:22
?
举报 回复(0) 喜欢(0)     评分
默认头像
gis
管理员
管理员
  • 注册日期2003-07-16
  • 发帖数15951
  • QQ
  • 铜币25345枚
  • 威望15368点
  • 贡献值0点
  • 银元0个
  • GIS帝国居民
  • 帝国沙发管家
  • GIS帝国明星
  • GIS帝国铁杆
4楼#
发布于:2005-05-18 09:46

这个和mo里差不多,也是把点坐标转换下

电脑上没vb,没办法贴上代码,:)

GIS麦田守望者,期待与您交流。
举报 回复(0) 喜欢(0)     评分
默认头像

返回顶部