chenmag
路人甲
路人甲
  • 注册日期2006-09-13
  • 发帖数12
  • QQ
  • 铜币153枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1667回复:0

[求助]求助高手,VB+Mapinfo 7.8不能得到VB+Mapinfo 6.0中的正确坐标值

楼主#
更多 发布于:2006-09-28 19:17
<P>    本人用VB+Mapinfo 6.0开发的回调语句:</P>
<P> Set gMapInfo = CreateObject("MapInfo.application")<BR>    gMapInfo.Do "Create ButtonPad ""Custom Tools"" As " ; _<BR>                "ToolButton ID 2001 cursor 138  DrawMode 34 Calling OLE ""HandleToolButton"" " ;         "toolbutton id 2004 cursor 138  drawmode 34 calling ole""HandleToolButton"""<BR>    </P>
<P>Public Sub HandleToolButton(ByVal CommandInfoStr As String)<BR>Select Case whichButton<BR>Case 2004<BR>        Dim s_table As String<BR>        DandianX = CDbl(GetField(CommandInfoStr, ",", CMD_INFO_X))     '* get x and y<BR>        DandianY = CDbl(GetField(CommandInfoStr, ",", CMD_INFO_Y))   '* from CommandInfo<BR>end select<BR>end sub<BR>可以得到被配准的栅格影像的像片坐标DandianX,DandianY.</P>
<P>但在Mapinfo 7.8中回调的像片坐标是错误的,</P>
<P>不知的哪个高手能帮帮我!!!<BR>在线等!!!</P>
喜欢0 评分0
游客

返回顶部