如何在PageLayout中添加点元素
来源:互联网 发布:python绝技 代码 编辑:程序博客网 时间:2024/05/05 21:47
将该实现过程写在控件的OnMouseDown事件下
Private Sub AxPageLayoutControl1_OnMouseDown(ByVal sender As Object, ByVal e As ESRI.ArcGIS.Controls.IPageLayoutControlEvents_OnMouseDownEvent) Handles AxPageLayoutControl1.OnMouseDown
Dim pPageLayout As IPageLayout
Dim pActiveView As IActiveView
pPageLayout = Me.AxPageLayoutControl1.PageLayout
'获取控件的PageLayout对象
pActiveView = pPageLayout
'新建一个点Point
Dim pPt As IPoint
pPt = New Point
pPt.PutCoords(e.pageX, e.pageY)
'产生一个Maker元素
Dim pMarkerElement As IMarkerElement
pMarkerElement = New MarkerElement
'产生修饰Marker元素的symbol
Dim pMarkerSymbol As ISimpleMarkerSymbol
pMarkerSymbol = New SimpleMarkerSymbol
'设置符号的颜色
pMarkerSymbol.Color = getRGB(11, 200, 145)
'设置符号大小
pMarkerSymbol.Size = 2
'设置符号类型
pMarkerSymbol.Style = esriSimpleMarkerStyle.esriSMSDiamond
Dim pElement As IElement
pElement = pMarkerElement
'QI,得到IElement接口对象,用于设置元素的Geometry
pElement.Geometry = pPt
pMarkerElement.Symbol = pMarkerSymbol
Dim pGraphicsContainer As IGraphicsContainer
pGraphicsContainer = pPageLayout
'将元素添加到pPageLayout中
pGraphicsContainer.AddElement(pMarkerElement, 0)
pActiveView.PartialRefresh(esriViewDrawPhase.esriViewGraphics, Nothing, Nothing)
End Sub
Public Function getRGB(ByVal r As Integer, ByVal g As Integer, ByVal b As Integer) As IRgbColor
Dim color As IRgbColor
color = New RgbColor
With color
.Red = r
.Green = g
.Blue = b
End With
Return color
End Function
End Class
- 如何在PageLayout中添加点元素
- 实现在PageLayout控件中添加了图例、指北针或比例
- 如何在CStringArray 数组中添加元素,遍历输出元素
- 如何在PADS中添加表面型测试点
- stl(二)------如何在vector中添加元素,以及遍历元素
- VS 中PageLayout 属性设置
- Arcgis pagelayout 实现添加图名,比例尺,指北针
- 在vector中添加元素的方法
- java swing 中的列表框JList如何在程序中动态的添加和删除元素
- ArcGIS Engine中添加点、线、面元素
- 如何在优酷评论中添加网页和视频时间点的超链接?
- JS动态添加div,然后在div中添加元素
- AE:拷贝图像到PageLayout视图中
- C#中如何向数组中动态添加元素
- 如何利用Element元素在末尾添加节点
- 如何在 Selenium 中操作 SPAN 元素
- 在Visual Graph中实现电子地图的“点”元素
- 在Eclipse中如何提供扩展点
- 天之炼狱pkl 连技
- JAVA四种基本排序的总结
- 批量修改数据库表名(sqlserver)
- 一个计算机高手的成长——推荐一读
- CMD下所有命令均无法找到
- 如何在PageLayout中添加点元素
- EJB3持久化规范(第七章)
- 实施经典要诀
- 链式数据结构 单链表
- 五问互联网上热点问题
- 博拉,源于"博客手拉手" ,博客聚合的网站
- 数据库-视图的概念
- 实战SVN For Apache2(一)
- 最近学习Lucene,在别人基础上,做了一个小例子