关注中^

<P>联动还是COPY的方法，由于两个控件实际上不能共享一个文档，只能使用COPY的方法</P>

<P> 下面这句是不是有问题?</P>
<P>PageLayoutControl1.Extent = frmMap.map1.Extent </P>
<P>我的PageLayoutControl里没有图形显示,而写PageLayoutControl1.Extent = PageLayoutControl1.fullExtent 时有</P>
<P>我用的是AO9.0 </P>

<P>下面是我的代码,但是Extent不能一致,请问问题出在哪里了?</P>
<P> Sub CopyFocusMap()<BR>        Dim i As Integer</P>
<P>        For i = 0 To Me.AxMapControl1.Map.LayerCount - 1<BR>            Me.AxPageLayoutControl1.ActiveView.FocusMap.AddLayer(Me.AxMapControl1.Map.Layer(i))<BR>        Next<BR>        '获取 IObjectCopy 接口<BR>        Dim pObjectCopy As IObjectCopy<BR>        pObjectCopy = New ObjectCopy</P>
<P>        '获取 源“Map”<BR>        Dim pToCopyMap As Object<BR>        pToCopyMap = Me.AxMapControl1.ActiveView.FocusMap 'm_pPactiveview.FocusMap</P>
<P>        '获取 参与复制的源“Map”<BR>        Dim pCopiedMap As Object<BR>        pCopiedMap = pObjectCopy.Copy(pToCopyMap)</P>
<P>        '获取 目的“Map”<BR>        Dim pToOverwriteMap As Object<BR>        pToOverwriteMap = Me.AxPageLayoutControl1.ActiveView.FocusMap</P>
<P>        '复制 Map<BR>        pObjectCopy.Overwrite(pCopiedMap, pToOverwriteMap)</P>
<P><BR>        '设置 PageLayoutControl 的 Extent</P>
<P>       <BR>        AxPageLayoutControl1.Extent = AxMapControl1.ActiveView.Extent<BR>        </P>
<P>        '刷新显示‘<BR>        'AxPageLayoutControl1.Refresh(esriViewGraphics)<BR>        AxPageLayoutControl1.CtlRefresh(esriViewDrawPhase.esriViewGraphics)</P>

<P>下面是我的代码,但是Extent不能一致,请问问题出在哪里了?</P>
<P> Sub CopyFocusMap()<BR>        Dim i As Integer</P>
<P>        For i = 0 To Me.AxMapControl1.Map.LayerCount - 1<BR>            Me.AxPageLayoutControl1.ActiveView.FocusMap.AddLayer(Me.AxMapControl1.Map.Layer(i))<BR>        Next<BR>        '获取 IObjectCopy 接口<BR>        Dim pObjectCopy As IObjectCopy<BR>        pObjectCopy = New ObjectCopy</P>
<P>        '获取 源“Map”<BR>        Dim pToCopyMap As Object<BR>        pToCopyMap = Me.AxMapControl1.ActiveView.FocusMap 'm_pPactiveview.FocusMap</P>
<P>        '获取 参与复制的源“Map”<BR>        Dim pCopiedMap As Object<BR>        pCopiedMap = pObjectCopy.Copy(pToCopyMap)</P>
<P>        '获取 目的“Map”<BR>        Dim pToOverwriteMap As Object<BR>        pToOverwriteMap = Me.AxPageLayoutControl1.ActiveView.FocusMap</P>
<P>        '复制 Map<BR>        pObjectCopy.Overwrite(pCopiedMap, pToOverwriteMap)</P>
<P><BR>        '设置 PageLayoutControl 的 Extent</P>
<P>       <BR>        AxPageLayoutControl1.Extent = AxMapControl1.ActiveView.Extent<BR>        </P>
<P>        '刷新显示‘<BR>        'AxPageLayoutControl1.Refresh(esriViewGraphics)<BR>        AxPageLayoutControl1.CtlRefresh(esriViewDrawPhase.esriViewGraphics)</P>