ArcObject操作之"添加书签","定位书签","删除书签"

最新推荐文章于 2024-08-23 10:29:31 发布

weixin_33862993

最新推荐文章于 2024-08-23 10:29:31 发布

阅读量200

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/ycbfish333/archive/2008/08/09/1264175.html

本文提供了一个使用Visual Basic编写的地图应用程序示例，演示如何添加、定位及删除地图上的书签。通过代码展示了创建书签、跳转到指定书签位置及移除书签的具体实现。

Private Sub 添加书签ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加书签ToolStripMenuItem.Click

        Dim pMapBookMarks As IMapBookmarks
        pMapBookMarks = Me.AxMapControl1.ActiveView.FocusMap
        Dim pAOIBookMark As IAOIBookmark
        pAOIBookMark = New AOIBookmark
        pAOIBookMark.Location = Me.AxMapControl1.ActiveView.Extent
        pMapBookMarks.AddBookmark(pAOIBookMark)

End Sub

Private Sub 定位书签ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 定位书签ToolStripMenuItem.Click

        Dim pMapBookMarks As IMapBookmarks
        pMapBookMarks = Me.AxMapControl1.ActiveView.FocusMap
        Dim pEnumSpatialBM As IEnumSpatialBookmark
        pEnumSpatialBM = pMapBookMarks.Bookmarks
        Dim pSpatialBM As ISpatialBookmark

'在这里定位到的是第一个书签

pSpatialBM = pEnumSpatialBM.Next

pSpatialBM.ZoomTo(Me.AxMapControl1.ActiveView.FocusMap)
Me.AxMapControl1.ActiveView.Refresh()

End Sub

Private Sub 删除指定书签ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 删除指定书签ToolStripMenuItem.Click

'在这里删除的是第一个书签

pSpatialBM = pEnumSpatialBM.Next

pMapBookMarks.RemoveBookmark(pSpatialBM)

End Sub

Private Sub 删除全部书签ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 删除全部书签ToolStripMenuItem.Click

        Dim pMapBookMarks As IMapBookmarks
        pMapBookMarks = Me.AxMapControl1.ActiveView.FocusMap
        pMapBookMarks.RemoveAllBookmarks()

End Sub