阅读:1464回复:2
帮忙,AO问题 !
我在AO开发时,想让MapControl和PageLayoutControl1同步显示,比如在MapControl中放大地图后,切换到PageLayoutControl1中也同样显示放大后的地图,其实和ArcMap地图视图与版面视图切换功能一样,谁知道改怎么做?谢谢 !<img src="images/post/smile/dvbbs/em02.gif" />
|
|
1楼#
发布于:2007-08-10 11:33
<P>这个早在论坛就讨论过多次了</P>
<P>vb代码如下</P><PRE>Public Sub CopyAndOverwriteMap() 'Get IObjectCopy interface Dim pObjectCopy As IObjectCopy Set pObjectCopy = New ObjectCopy 'Get IUnknown interface (map to copy) Dim pToCopyMap As IUnknown Set pToCopyMap = PageLayoutControl1.ActiveView.FocusMap 'Get IUnknown interface (copied map) Dim pCopiedMap As IUnknown Set pCopiedMap = pObjectCopy.Copy(pToCopyMap) 'Get IUnknown interface (map to overwrite) Dim pToOverwriteMap As IUnknown Set pToOverwriteMap = MapControl1.Map 'Overwrite the MapControl's map pObjectCopy.Overwrite pCopiedMap, pToOverwriteMap SetMapExtent End Sub Private Sub SetMapExtent() 'Get IActiveView interface Dim pActiveView As IActiveView Set pActiveView = PageLayoutControl1.ActiveView.FocusMap 'Set the control's extent MapControl1.Extent = pActiveView.Extent 'Refresh the display MapControl1.Refresh End Sub </PRE> |
|
|
2楼#
发布于:2007-08-22 10:14
<img src="images/post/smile/dvbbs/em02.gif" />
|
|