• <source id="ht2cg"></source>
    <b id="ht2cg"><tr id="ht2cg"></tr></b>

  • <ins id="ht2cg"></ins>
    <small id="ht2cg"><pre id="ht2cg"></pre></small>
  • <acronym id="ht2cg"><tr id="ht2cg"></tr></acronym>
    <b id="ht2cg"><pre id="ht2cg"><var id="ht2cg"></var></pre></b>
    <b id="ht2cg"><sub id="ht2cg"></sub></b>

    <acronym id="ht2cg"></acronym>
    <thead id="ht2cg"></thead>

    MapX+VB 前一視圖功能

    2016-07-08

    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


    天堂网