MO中常用的操作方法全.doc

MO中常用的操作方法(1) 1.地图放大 Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ? ??Set Map1.Extent = Map1.TrackRectangle End Sub 2.地图移动 以下是右键移动、左键放大的代码 Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ? If Button = vbLeftButton Then ??? ??? Set Map1.Extent = Map1.TrackRectangle ? ElseIf Button = vbRightButton Then ??? ??? Map1.Pan ? End If End Sub 3.地图缩小 以下是右键缩小、左键放大的代码 Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ??? Dim r As MapObjects2.Rectangle ??? If Button = vbLeftButton Then ??????? Set Map1.Extent = Map1.TrackRectangle ??? ElseIf Button = vbRightButton Then ??????? Set r = Map1.Extent ??????? r.ScaleRectangle 1.5 ??????? Map1.Extent = r ??? End If End Sub 4.恢复原始大小 Private Sub Command1_Click() ??? Set Map1.Extent = Map1.FullExtent End Sub 5.定位到具体对象 Sub UpdateMap() ? Dim newExt As Object ? strExp = CONTINENT = + listContinents.Text + ? Set recs = Map1.Layers(0).Searchexpression_r(strExp) ? ? If recs.EOF Then ??? Set newExt = Map1.FullExtent? set a default extent ? Else ??? Set shp = recs(Shape).Value ??? Set newExt = shp.Extent ??? Dim i ??? i = 0 ??? Do While Not recs.EOF ????? Set shp = recs(Shape).Value ????? Set newExt = newExt.Union(shp.Extent) - this works ????? i = i + 1 ????? recs.MoveNext ??? Loop ? End If ? If i 1 Then ??? Set newExt = newExt.Extent ? End If ? Form1.Map1.Extent = newExt End Sub 5.加载图层 Private Sub Form_Load() ? ??? Dim dc As New DataConnection ? ??? Dim layer As MapLayer ? ??? dc.Database = App. Path ? ??? If Not dc.Connect Then ??? ?????? MsgBox 在指定的文件夹下没找到图层数据文件！ ??? ?????? End ? ??? End If ? ??? Set layer = New MapLayer ? ??? Set layer.GeoDataset = dc.FindGeoDataset(States) ? ??? Map1.Layers.Add layer ? ??? Set layer = New MapLayer ? ??? Set layer.GeoDataset = dc.FindGeoDataset(Rivers) ? ??? Map1.Layers.Add layer ? ??? Map1.Refresh End Sub 6.卸载图层 Map1.Layers.Remove 0?? ?清除Map1的第0层图层。 Map1.Layers.Clear?? ???????