在AO开发中布局视图中生成图例功能的实现

Private Sub UIButtonControl4_Click()



Dim pmxdoc As IMxDocument
Set pmxdoc = ThisDocument

Dim pactiveview As IActiveView
Set pactiveview = pmxdoc.PageLayout

Dim pgraphicscontainer As IGraphicsContainer
Dim pmapframe As IMapFrame
Set pgraphicscontainer = pmxdoc.PageLayout
Set pmapframe = pgraphicscontainer.FindFrame(pmxdoc.FocusMap)


Dim pmapsurroundframe As IMapSurroundFrame
Dim puid As New UID
Dim pelement As IElement
puid.Value = "esricore.legend"

Set pmapsurroundframe = pmapframe.CreateSurroundFrame(puid, Nothing)
pmapsurroundframe.MapSurround.Name = "legend"

Set pelement = pmapsurroundframe

Dim pmainmapelement As IElement
Dim pmainenv As IEnvelope
Set pmainmapelement = pmapframe
Set pmainenv = pmainmapelement.Geometry.Envelope