form1.vb

来自「GIS的Arcengine编程」· VB 代码 · 共 77 行

Imports ESRI.ArcGIS.Carto
Imports ESRI.ArcGIS.Controls
Imports ESRI.ArcGIS.Display
Imports ESRI.ArcGIS.esriSystem
Imports ESRI.ArcGIS.Geodatabase
Imports ESRI.ArcGIS.Geometry
Imports ESRI.ArcGIS.GlobeCore
Imports ESRI.ArcGIS.Output
Imports ESRI.ArcGIS.SystemUI

Public Class Form1
    Private Sub AxMapControl1_OnMouseMove(ByVal sender As Object, ByVal e As ESRI.ArcGIS.Controls.IMapControlEvents2_OnMouseMoveEvent) Handles AxMapControl1.OnMouseMove
        Label1.Text = e.mapX.ToString
        Label2.Text = e.mapY.ToString

    End Sub

    Private Sub 属性查询ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 属性查询ToolStripMenuItem.Click
        属性查询.Show()

    End Sub

    Private Sub 空间分析ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 空间分析ToolStripMenuItem.Click
        空间查询.Show()
    End Sub

    Private Sub 缓冲分析ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 缓冲分析ToolStripMenuItem.Click
        缓冲分析.Show()
    End Sub

    Private Sub 临近点查询ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 临近点查询ToolStripMenuItem.Click
        邻近点查询.Show()
    End Sub

    Private Sub 统计查询ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 统计查询ToolStripMenuItem.Click
        统计分析.Show()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AxMapControl1.Refresh()
    End Sub

    Private Sub 打开ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打开ToolStripMenuItem.Click
        OpenFileDialog1.Filter = "MXD|*.mxd"
        OpenFileDialog1.ShowDialog()
        Dim filename As String
        filename = OpenFileDialog1.FileName

        If AxMapControl1.CheckMxFile(filename) Then
            AxMapControl1.LoadMxFile(filename)

        End If


        AxMapControl1.ActiveView.Refresh()
    End Sub

    Private Sub 保存ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 保存ToolStripMenuItem.Click
        SaveFileDialog1.Filter = "MXD|*.mxd"
        SaveFileDialog1.ShowDialog()
        Dim filename As String
        filename = SaveFileDialog1.FileName

        Dim a As IMxdContents
        a = AxMapControl1.Map
        Dim b As IMapDocument
        b = New MapDocument
        b.Open(AxMapControl1.DocumentFilename, "")
        b.ReplaceContents(a)
        If Not filename = "" Then
            b.SaveAs(filename, True, True)

        End If
        
    End Sub
End Class