阅读:1800回复:0
[求助]求助高手,VB+Mapinfo 7.8不能得到VB+Mapinfo 6.0中的正确坐标值
<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> |
|