如何实现ArcMap里面的复制视图到剪贴板的功能！

如何实现ArcMap里面的复制视图到剪贴板的功能！斑竹出手啊!

<P>上面是以前发的，没用到clipboard</P>
<P>下面这个用了</P><PRE>'sample VB code for clipboard, this is not tested
'you can look up the relevant Win32 api functions

Dim hMemoryDC As Long
Dim hBitmap As Long
Dim lWidth As Long, lHeight As Long

'get the width and height of the map, make sure its in pixels, watch out for 3D borders etc.
lWidth = MapControl1.Width
lHeight = MapControl1.Height


hMemoryDC = CreateCompatibleDC(0)  'screen DC
hBitmap = CreateCompatibleBitmap(hMemoryDC, lWidth, lHeight)

If hBitmap <> 0 Then

   'select the bitmap into the DC
   SelectObject hMemoryDC, hBitmap

   'draw the map to the DC
   pActiveView.Draw(hMemoryDC, Nothing)

   'open clipboard, use whatever hWnd you like
   OpenClipboard Form1.hWnd

   'clear out clipboard
   EmptyClipboard

   'copy the bits to the clipboard
   SetClipboardData CF_BITMAP, hBitmap

   'close clipboard
   CloseClipboard

End If

'cleanup
DeleteDC hMemoryDC
DeleteObject hBitmap
</PRE>

<FONT color=#0000ff>Public Sub</FONT> CopyAndOverwriteMap()<BR>    <BR>  <CODE><FONT color=#008000>'Get IObjectCopy interface</FONT></CODE><BR>  <CODE><FONT color=#0000ff>Dim</FONT></CODE> pObjectCopy <CODE><FONT color=#0000ff>As</FONT></CODE> IObjectCopy<BR>  <CODE><FONT color=#0000ff>Set</FONT></CODE> pObjectCopy = <CODE><FONT color=#0000ff>New</FONT></CODE> ObjectCopy<BR><BR>  <CODE><FONT color=#008000>'Get IUnknown interface (map to copy)</FONT></CODE><BR>  <CODE><FONT color=#0000ff>Dim</FONT></CODE> pToCopyMap <CODE><FONT color=#0000ff>As</FONT></CODE> IUnknown<BR>  <CODE><FONT color=#0000ff>Set</FONT></CODE> pToCopyMap = PageLayoutControl1.ActiveView.FocusMap<BR><BR>  <CODE><FONT color=#008000>'Get IUnknown interface (copied map)</FONT></CODE><BR>  <CODE><FONT color=#0000ff>Dim</FONT></CODE> pCopiedMap <CODE><FONT color=#0000ff>As</FONT></CODE> IUnknown<BR>  <CODE><FONT color=#0000ff>Set</FONT></CODE> pCopiedMap = pObjectCopy.Copy(pToCopyMap)<BR><BR>  <CODE><FONT color=#008000>'Get IUnknown interface (map to overwrite)</FONT></CODE><BR>  <CODE><FONT color=#0000ff>Dim</FONT></CODE> pToOverwriteMap <CODE><FONT color=#0000ff>As</FONT></CODE> IUnknown<BR>  <CODE><FONT color=#0000ff>Set</FONT></CODE> pToOverwriteMap = MapControl1.Map<BR>  <BR>  <CODE><FONT color=#008000>'Overwrite the MapControl's map</FONT></CODE><BR>  pObjectCopy.Overwrite pCopiedMap, pToOverwriteMap<BR> <BR>  SetMapExtent<BR><BR><CODE><FONT color=#0000ff>End Sub<BR></FONT></CODE>

没人能揭贴,试问天下高手在和处,帝国?