地理信息系统二次开发-read.ppt

专题10 制图打印 对象模型图 框架元素FrameElements 属于 PageLayout 的附属 MapSurroundFrame elements MapSurrounds对象的容器 (e.g., Scalebars) 内容动态更新 加图 Private Sub Getmap() 获取mapcontrol显示的地图 Dim pmap As IMap Set pMapFrame = New MapFrame Set pmap = frmDisp.MapControl.ActiveView Set pMapFrame.Map = pmap Set penl = pMapFrame 此后到layout控件上拉框，确定位置。 End Sub 加图名 风格库 Style Gallery Style Gallery对象包括了Style GalleryClasses,如指北针、标志符、色阶、颜色和比例尺。 Style GalleryClasses中有许多不同的StyleGalleryItems可供选用 StyleGalleryItems指那些代表了特定的指北针、标志符或其它可能在StyleGallery找到的对象 Set pMxDoc=ThisDocument Dim pSGallery As IStyleGallery Set pSGallery=pMxDoc.StyleGallery 获取StyleGalleryItems （1）得到风格库后，就要获取该StyleGalleryClass中所枚举的所有条目。使用StyleGallery的Items属性可以返回该枚举类型 Dim pEnumNorth As IenumStyleGalleryItem Set pEnumNorth =pSGallery.Items (“North Arrows”,”ESRI.style”,”Default”) 查找风格 从StyleItem枚举中定位到某个风格，使用VB的Do循环或For循环即可 Dim pEighthFile As IStyleGalleryItem Set pEighthFile =pEnumNorth.Next Dim i As Integer For i=0 to 7 Set pEighthFile=pEnumNorth.Next Next i 获取Item 所得到的StyleGalleryItem，并不是实际的项目（如指北针），而只是一个Item的一个列表 Dim pArrow As INorthArrow Set pArrow = pEighthFile.Item MapSurround MapSurround指如指北针、比例尺、图例之类的东西。并不是简单的图形，而是直接和地图动态连接。 MapSurround并不是直接被加入到页面布局中去的，而是被加入到某一特定类型的框架元素中。这一框架元素称为MapSurroundFrame. Set pArrow.Map=pMxDoc.FocusMap Dim pMF As IMapSurroundFrame Set pMF=New MapSurrondFrame Set pMF.MapSurround=pArrow gGC.AddElement pMF,0 pMxDoc.ActiveView.Refresh 指北针 Set pEnnorth = pSty.Items(north Arrows, esri.style, default) For i = 1 To m_NORTHSTYLE.STYLE Set pFile = pEnnorth.Next Next i Set pArrow = pFile.Item pArrow.SIZE = m_NORTHSTYLE.SIZE pArrow.CalibrationAngle = m_NORTHSTYLE.ANGLE Dim pColor As IColor Set pColor = New RgbColor pColor.RGB = m_NORTHSTYLE.Color pArrow.Color = pColor Set pArrow.Map = frmDisp.PageLayoutControl1.ActiveView.FocusMap Set pmsf = New MapSurroundFrame