mapform.aspx.vb

来自「Get Map Coordinat by click on map」· VB 代码 · 共 42 行

'//////////////////////////////////////////////////////////////////////////////////////////////
'//
'//   (c) Pitney Bowes MapInfo Corporation, 2008.  All rights reserved.
'//
'//   This software is only provided as a demonstration by MapInfo.  
'//   No licence or other right is granted.  
'//   No use, transmission or copying is permitted.
'//
'//   This software is provided by MapInfo "as is" and any express or implied warranties, 
'//   including, but not limited to, the implied warranties of merchantability and fitness 
'//   for a particular purpose are disclaimed.  In no event shall MapInfo be liable for any 
'//   direct, indirect, incidental, special, exemplary, or consequential damages (including, 
'//   but not limited to, procurement of substitute goods or services; loss of use, data or
'//   profits; or business interruption) however caused and whether in contract, strict 
'//   liability, or tort (including negligence) arising in any way out of the use of this 
'//   software, even if advised of the possibility of such damage.
'//
'//////////////////////////////////////////////////////////////////////////////////////////////

Imports MapInfo
Imports MapInfo.WebControls
Imports MapInfo.Mapping
Imports MapInfo.Engine
'Imports ApplicationStateManager

Partial Class _Default
    Inherits System.Web.UI.Page
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Session.IsNewSession Then
            Dim controlModel As MapInfo.WebControls.MapControlModel = MapControlModel.SetDefaultModelInSession()
            If Not Page.IsPostBack Then
                controlModel.Commands.Add(New MapLayer.ClsCoordinat)
            End If
        End If
    End Sub

    'At the time of unloading the page, save the state
    Private Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Unload
    End Sub

End Class