gis项目开发(编辑修改稿)内容摘要：
ol End Sub 则点查询、圆查询、矩查询、区查询编辑完成 “ Map”和“ ListBox”添加 Map1和 List1 再用“查看代码”输入： Private Sub Map1_ToolUsed(ByVal ToolNum As Integer, ByVal x1 As Double, ByVal y1 As Double, ByVal x2 As Double, ByVal y2 As Double, ByVal Distance As Double, ByVal Shift As Boolean, ByVal Ctrl As Boolean, EnableDefault As Boolean) Dim Obj As Object Dim a As Integer Dim pt As New Point Dim featlyr As Dim curfeat As Dim mydata, data As Dataset Dim ftr As If 请选择类型 Then Set featlyr = () Set data = (miDataSetLayer, featlyr) End If Select Case ToolNum Case miSelectTool x1, y1 Set curfeat = (pt) If 0 Then Set ftr = (1) 您查询到的结果为： (, 1) End If Case miRadiusSelectTool Dim dist As Double dist = (x1, y1, x2, y2) x1, y1 Set curfeat = (pt, dist, miUnitMile, searchType) If 0 Then 您共查到 amp。 amp。 条记录： For Each Obj In curfeat (, 1) Next Else MsgBox 对 不起。 您没选中任何站点。 End If Cas。阅读剩余 0%
本站所有文章资讯、展示的图片素材等内容均为注册用户上传(部分报媒/平媒内容转载自网络合作媒体)，仅供学习参考。
用户通过本站上传、发布的任何内容的知识产权归属用户或原始著作权人所有。如有侵犯您的版权，请联系我们反馈本站将在三个工作日内改正。