lzylzx
路人甲
路人甲
  • 注册日期2006-04-13
  • 发帖数13
  • QQ
  • 铜币152枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1955回复:3

在vb窗体上加map控件,坐标的问题

楼主#
更多 发布于:2006-05-07 19:55
<P>在vb窗体上加map控件.</P>
<P>想给它的左下点,和右上点加上经度,纬度的坐标</P>
<P>应该怎么表示啊?</P>
<P>默认坐标是什么啊?</P>
<P>还有 Map1.ToMapDistance(X)语句怎么用?</P>
<P>谢谢高人指点啊!</P>
喜欢0 评分0
hiwangwenxiang
路人甲
路人甲
  • 注册日期2009-04-01
  • 发帖数7
  • QQ
  • 铜币117枚
  • 威望0点
  • 贡献值0点
  • 银元0个
1楼#
发布于:2009-06-02 10:59
这个我也想了解,顶一下
举报 回复(0) 喜欢(0)     评分
hiwangwenxiang
路人甲
路人甲
  • 注册日期2009-04-01
  • 发帖数7
  • QQ
  • 铜币117枚
  • 威望0点
  • 贡献值0点
  • 银元0个
2楼#
发布于:2009-06-18 10:53
我也想了解一下,请高人指点<img src="images/post/smile/dvbbs/em02.gif" />
举报 回复(0) 喜欢(0)     评分
swatofa
路人甲
路人甲
  • 注册日期2009-05-27
  • 发帖数5
  • QQ
  • 铜币114枚
  • 威望0点
  • 贡献值0点
  • 银元0个
3楼#
发布于:2009-06-24 15:39
<P>     Dim P1 As Point</P>
<P>        If RadioButton1.Checked Then<BR>            P1 = AxMap1.ToMapPoint(e.x, e.y)<BR>            Label1.Text = "X = " ; Format(P1.X, "0.000") ; " ,  y = " ; Format(P1.Y, "0.000")<BR>        ElseIf RadioButton2.Checked Then<BR>            Label1.Text = "X = " ; Format(AxMap1.ToMapDistance(e.x), "0.000") ; " ,  y = " ; Format(AxMap1.ToMapDistance(e.y), "0.000")</P>
<P>        End If</P>
<P>        'ToMapPoint方法,考虑了Datum和PrimeMeridian属性,从伦敦开始向右(东经)0-180°,向左(西经)0-180°,从赤道向上(北纬)为0-90°,向下(南纬)为0-90°。<BR>        'ToMapDistance方法,地图从左到右为0-306°,从上到下为0-180°</P>
<P>默认的坐标是窗体坐标(e.x,e.y)</P>

<DIV>建立一个交通VB.NET和MO二次开发的群,大家一起讨论开发中的问题,QQ群号码:18528564</DIV>
举报 回复(0) 喜欢(0)     评分
游客

返回顶部