gis項(xiàng)目開(kāi)發(fā)(編輯修改稿)
2024-10-08 08:42 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 ol End Sub 則點(diǎn)查詢、圓查詢、矩查詢、區(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 請(qǐng)選擇類(lèi)型 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 對(duì) 不起！您沒(méi)選中任何站點(diǎn)！ End If Cas
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1