关注一下

<P>我把这一句</P>
<P>PageLayoutControl1.ActiveView.Extent = m_pHookHelper.ActiveView.Extent</P>
<P>改为：</P>
<P>PageLayoutControl1.Extent = m_pHookHelper.ActiveView.Extent.Extent </P>
<P>还照样是一片空白</P>
<P>为什么？？？<BR></P>

<P>Public Sub CopyAndOverwriteMap()<BR></P>
<P>    Dim i As Integer<BR>    <BR>    For i = 0 To m_pHookHelper.FocusMap.LayerCount - 1<BR>        PageLayoutControl1.ActiveView.FocusMap.AddLayer m_pHookHelper.FocusMap.Layer(i)<BR>    Next i<BR>    Dim pObjectCopy As IObjectCopy<BR>    Set pObjectCopy = New ObjectCopy<BR>    <BR>    Dim pToCopyMap As IUnknown<BR>    Set pToCopyMap = m_pHookHelper.ActiveView.FocusMap<BR>    <BR>    Dim pCopiedMap As IUnknown<BR>    Set pCopiedMap = pObjectCopy.Copy(pToCopyMap)<BR>    <BR>    Dim pToOverwriteMap As IUnknown<BR>    Set pToOverwriteMap = Me.PageLayoutControl1.ActiveView.FocusMap<BR>    <BR>    pObjectCopy.Overwrite pCopiedMap, pToOverwriteMap</P>
<P>    PageLayoutControl1.ActiveView.Extent = m_pHookHelper.ActiveView.Extent<BR>    PageLayoutControl1.Refresh esriViewGraphics</P>
<P>End Sub</P>
<P>还是一片空白阿？？？</P>

<P><BR>Private Sub CopyFocusMap()<BR>'  Dim i As Integer</P>
<P>'  For i = 0 To m_pPMap.LayerCount - 1<BR>'    PageLayoutControl1.ActiveView.FocusMap.AddLayer m_pPMap.layer(i)<BR>'  Next<BR>    '获取 IObjectCopy 接口<BR>    Dim pObjectCopy As IObjectCopy<BR>    Set pObjectCopy = New ObjectCopy</P>
<P>    '获取 IUnknown 接口 (源“Map”)<BR>    Dim pToCopyMap As IUnknown<BR>    Set pToCopyMap = frmMap.map1.ActiveView.FocusMap 'm_pPactiveview.FocusMap</P>
<P>    '获取 IUnknown 接口 (参与复制的源“Map”)<BR>    Dim pCopiedMap As IUnknown<BR>    Set pCopiedMap = pObjectCopy.Copy(pToCopyMap)</P>
<P>    '获取 IUnknown 接口 (目的“Map”)<BR>    Dim pToOverwriteMap As IUnknown<BR>    Set pToOverwriteMap = PageLayoutControl1.ActiveView.FocusMap</P>
<P>    '复制 Map<BR>    pObjectCopy.Overwrite pCopiedMap, pToOverwriteMap</P>
<P>    <BR>    '设置 PageLayoutControl 的 Extent<BR>   <BR>    PageLayoutControl1.Extent = frmMap.map1.Extent 'm_pPactiveview.Extent  ''hzm<BR>   <BR>    '刷新显示<BR>    PageLayoutControl1.Refresh esriViewGraphics</P>
<P>End Sub</P>