如何用代码调出PageLayout中指北针或图例的属性窗口

在AO+VB中，如何用代码调出PageLayout中的图框设置、比例尺、指北针或图例的属性窗口。<img src="images/post/smile/dvbbs/em12.gif" />

<P>看看这个接口</P>LayoutViewPropertyPage CoClass (esriArcMapUI)
<br>
<p>
<P>Property page for Layout view properties.</P>

<P>Description: <BR><BR>This sample adds a north arrow and a legend to the page layout. North arrows and legends are types of map surrounds. Map surrounds are objects which are related to a map. All map surrounds are held inside a MapSurroundFrame container, an element object, and this frame is related to a MapFrame. This relationship enables, for example, north arrows to automatically rotate when their related map is rotated and it tells legends what layers and symbology a map has. </P>

<P>How to use: <BR>Paste the code into VBA. <BR>From the Macros dialog, run the AddMapSurrounds routine. <BR>          Public Sub AddMapSurrounds()<BR>  Dim pMxDoc As IMxDocument<BR>  Dim pActiveView As IActiveView<BR>  Dim pEnv As IEnvelope<BR>  Dim pID As New UID<BR>  Dim pMapSurround As IMapSurround<BR>  Dim pMarkerNorthArrow As IMarkerNorthArrow<BR>  Dim pCharacterMarkerSymbol As ICharacterMarkerSymbol<BR>  <BR>  Set pMxDoc = Application.Document<BR>  Set pActiveView = pMxDoc.PageLayout<BR>  Set pEnv = New Envelope<BR>  <BR>  'Add a north arrow<BR>  pEnv.PutCoords 0.2, 0.2, 1, 1<BR>  pID.Value = "esriCarto.MarkerNorthArrow"<BR>  Set pMapSurround = CreateSurround(pID, pEnv, "North Arrow", pMxDoc.FocusMap, pMxDoc.PageLayout)<BR>  'Change out the default north arrow<BR>  Set pMarkerNorthArrow = pMapSurround 'QI<BR>  Set pCharacterMarkerSymbol = pMarkerNorthArrow.MarkerSymbol 'clones the symbol<BR>  pCharacterMarkerSymbol.CharacterIndex = 200 'change the symbol<BR>  pMarkerNorthArrow.MarkerSymbol = pCharacterMarkerSymbol 'set it back<BR>  <BR>  'Add a legend<BR>  'In this case just use the default legend<BR>  pEnv.PutCoords 1, 1, 3.4, 2.4<BR>  pID.Value = "esriCarto.Legend"<BR>  Set pMapSurround = CreateSurround(pID, pEnv, "Legend", pMxDoc.FocusMap, pMxDoc.PageLayout)<BR>  <BR>  'Refresh the graphics<BR>  pActiveView.PartialRefresh esriViewGraphics, Nothing, Nothing<BR>End Sub</P>
<P><BR>Private Function CreateSurround(pID As UID, pEnv As IEnvelope, strName As String, _<BR>                           pMap As IMap, pPageLayout As IPageLayout) As IMapSurround<BR>  <BR>  Dim pGraphicsContainer As IGraphicsContainer<BR>  Dim pActiveView As IActiveView<BR>  Dim pMapSurroundFrame As IMapSurroundFrame<BR>  Dim pMapSurround As IMapSurround<BR>  Dim pMapFrame As IMapFrame<BR>  Dim pElement As IElement<BR>  <BR>  'MapSurrounds are held in a MapSurroundFrame<BR>  'MapSurroundFrames are related to MapFrames<BR>  'MapFrames hold Maps<BR>  Set pGraphicsContainer = pPageLayout<BR>  Set pMapFrame = pGraphicsContainer.FindFrame(pMap)<BR>  Set pMapSurroundFrame = pMapFrame.CreateSurroundFrame(pID, Nothing)<BR>  pMapSurroundFrame.MapSurround.Name = strName</P>
<P>  'Set the geometry of the MapSurroundFrame to give it a location<BR>  'Activate it and add it to the PageLayout's graphics container<BR>  Set pElement = pMapSurroundFrame<BR>  Set pActiveView = pPageLayout<BR>  pElement.Geometry = pEnv<BR>  pElement.Activate pActiveView.ScreenDisplay</P>
<P><BR>  'Allow the legend frame size to be altered after the legend has been<BR>  'added to the GraphicsContainer <BR>  Dim PTrack As ITrackCancel<BR>  Set PTrack = New CancelTracker<BR>  pElement.Draw pActiveView.ScreenDisplay, PTrack </P>
<P>  pGraphicsContainer.AddElement pElement, 0<BR>  'Re-apply the change to the Legend MapSurroundFrame Geometry <BR>  pElement.Geometry = pEnv<BR>  <BR>  Set CreateSurround = pMapSurroundFrame.MapSurround<BR>End Function</P>
<P><BR> </P>

<P>谢谢老大,我试试看</P>

老大,如果我添加的不是固定的哪种样式的图例或指北针,而是调出NorthArrowSelector框来进行选择,接收选择的值进行添加,应该怎么接收?<img src="images/post/smile/dvbbs/em12.gif" />