form1.vb

来自「ae的mapcontrol的开发原代码」· VB 代码 · 共 26 行

Imports ESRI.ArcGIS.esriSystem
Imports ESRI.ArcGIS.Carto


Public Class Form1
    Private Sub 打开OToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打开OToolStripMenuItem.Click
        Dim pMapDocument As IMapDocument
        pMapDocument = New MapDocument
        Try
            Dim pFileName As String
            OpenFileDialog1.Filter = "文档文件(.mxd)|*.Mxd"
            OpenFileDialog1.ShowDialog()
            pFileName = OpenFileDialog1.FileName
            pMapDocument.Open(pFileName)
            Dim i As Integer
            For i = 0 To pMapDocument.MapCount - 1
                AxMapControl1.Map = pMapDocument.Map(i)
            Next
            AxMapControl1.Refresh()
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
    End Sub

End Class