gis項目開發(fā)(編輯修改稿)
2024-10-08 08:42 本頁面
【文章內(nèi)容簡介】 ol End Sub 則點查詢、圓查詢、矩查詢、區(qū)查詢編輯完成 “ 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) 您查詢到的結(jié)果為： (, 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
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1