privatesubcommand1_click().docVIP

Private Sub Command1_Click() Map1.Layers.Remove 0 legend1.setMapSource Map1 legend1.LoadLegend End Sub Private Sub legend1_AfterSetLayerVisible(index As Integer, isVisible As Boolean) Map1.Refresh End Sub Private Sub legend1_LayerDblClick(index As Integer) Set g_layer = Map1.Layers(index) If Not g_layer Is Nothing Then Form2.Show 1 End If End Sub Private Sub Map1_AfterTrackingLayerDraw(ByVal hdc As stdole.OLE_HANDLE) If Not g_selectedFeatures Is Nothing Then Dim sym1 As New MapObjects2.Symbol sym1.Color = moCyan Map1.DrawShape g_selectedFeatures, sym1 End If If Not g_searchShape Is Nothing Then Dim sym As New MapObjects2.Symbol sym.Style = 1 moTransparentFill sym.Outline = True sym.OutlineColor = moRed sym.Size = 2 Map1.DrawShape g_searchShape, sym End If End Sub Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Toolbar1.Buttons(fullextent).Value = tbrPressed Then 放大 ElseIf Toolbar1.Buttons(zoomin).Value = tbrPressed Then Map1.Extent = Map1.TrackRectangle 缩小 ElseIf Toolbar1.Buttons(zoomout).Value = tbrPressed Then Dim r As MapObjects2.Rectangle Set r = Map1.Extent r.ScaleRectangle (1.5) Map1.Extent = r 移动 ElseIf Toolbar1.Buttons(pan).Value = tbrPressed Then Map1.Pan 选择 ElseIf Toolbar1.Buttons(select).Value = tbrPressed Then Set g_searchShape = Map1.TrackPolygon Dim index As Integer index = legend1.getActiveLayer If index -1 Then Set g_layer = Map1.Layers(index) Set g_selectedFeatures = g_layer.SearchShape(g_searchShape, 6, ) Else MsgBox 请选择图层, vbInformation, 提示 End If Map1.TrackingLayer.Refresh True 信息查找 ElseIf Toolbar1.Buttons(identify).Value = tbrPressed Then Dim recs As MapObjects2.Recordset Dim pt As MapObjects2.Point Dim tol As Double index = legend1.getActiveLayer If index -1 Then Set g_layer