阅读:1292回复:1
坐标问题,大虾救命!
<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> |
|
1楼#
发布于:2004-10-25 15:20
<P>没人救我,伤心欲绝中。</P>
|
|