MapViewChanged事件实现"前后视图"
【功能】：MapViewChanged事件实现"前后视图"
【环境】：VB6+mapx4.5+win2000
【出处】:www.51gis.com
Option Explicit
Dim oZoom As Double
Dim oMapX As Double
Dim oMapY As Double
Dim Zoom As Double
Dim MapX As Double
Dim MapY As Double
Private Sub Form_Load()
cmdPreOrNextView.Caption = "前一视图"
End Sub
Private Sub cmdPreOrNextView_Click()
Map1.ZoomTo oZoom, oMapX, oMapY
If cmdPreOrNextView.Caption = "前一视图" Then
cmdPreOrNextView.Caption = "后一视图"
Else
cmdPreOrNextView.Caption = "前一视图"
End If
End Sub
Private Sub Map1_MapViewChanged()
oZoom = Zoom
oMapX = MapX
oMapY = MapY
Zoom = Map1.Zoom
MapX = Map1.CenterX
MapY = Map1.CenterY
End Sub