mo实现简单放大缩小漫游功能

<P>Private Sub Command1_Click()<BR>Dim p As MapObjects2.Point<BR>Dim recs As MapObjects2.Recordset<BR>Dim r As MapObjects2.Rectangle<BR>Set r = Map1.Extent<BR>r.ScaleRectangle 1.5<BR>Map1.Extent = r<BR>End Sub</P>
<P>Private Sub Command2_Click()<BR>Set Map1.Extent = Map1.FullExtent<BR>End Sub</P>
<P>Private Sub Command3_Click()<BR>Dim bs As String<BR>bs = "按右键移动,左键放大;"<BR> <BR>End Sub</P>
<P>Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)<BR>If Button = vbLeftButton Then<BR>  Set Map1.Extent = Map1.TrackRectangle<BR>  ElseIf Button = vbRightButton Then<BR>     Map1.Pan<BR>   End If<BR>End Sub<BR></P>