kittypig
路人甲
路人甲
  • 注册日期2004-09-22
  • 发帖数37
  • QQ
  • 铜币199枚
  • 威望0点
  • 贡献值0点
  • 银元0个
阅读:1293回复:1

坐标问题,大虾救命!

楼主#
更多 发布于:2004-10-24 22:05
<P>我想做鼠标经过地图上某点就在文本框里显示该点的信息。我先将鼠标坐标转换成了地图坐标。然后我想设定一个矩形区域,想通过判定鼠标的x,y在这个矩形的x,y范围内就在文本框里显示这点信息。具体代码如下:</P>
<P>Private Sub Map1_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
Dim ftr As Feature
Dim lyr As Layer
Dim MapX As Double
Dim MapY As Double</P>
<P>'convert where the mouse is clicked to the map's current coordinate system
Map1.ConvertCoord x, Y, MapX, MapY, miScreenToMap</P>
<P>If 3.28022322607761E-07 < MapX < 3.66665460460422E-07 And 1.92030451488277E-07 < MapY < 2.10856595551678E-07 Then
 Text1.Text = "找到该点"
Else
 Text1.Text = "不在范围内"
 
End If
End Sub</P>
<P>可是我不管鼠标怎样在地图里移动,那个文本框里显示的始终是"找到该点",给人感觉是if语句的条件判定有问题啊。我不知道该如何实现判定鼠标坐标在( 3.28022322607761E-07,1.92030451488277E-07 ),(3.66665460460422E-07,1.92030451488277E-07 ),(3.28022322607761E-07,2.10856595551678E-07),(3.66665460460422E-07,2.10856595551678E-07)内啊?
</P>
喜欢0 评分0
kittypig
路人甲
路人甲
  • 注册日期2004-09-22
  • 发帖数37
  • QQ
  • 铜币199枚
  • 威望0点
  • 贡献值0点
  • 银元0个
1楼#
发布于:2004-10-25 15:20
<P>没人救我,伤心欲绝中。</P>
举报 回复(0) 喜欢(0)     评分
游客

返回顶部