把图片框的完整内容复制到剪贴板

文章作者 100test 发表时间 2011:08:01 11:33:07
来源 100Test.Com百考试题网

　　VB本身不允许你将一个Form、UserControl或PictureBox上的完整图片复制到剪贴板。如果你使用Clipboard.SetData，将只复制被载入这个对象的位图。通过使用API方法，你可以超越这个限制，保证全部内容都被复制，包括你刚刚画上的任何图形。
　　开始一个新项目，在窗体上放置一个Command和一个PictureBox。将PictureBox的Autoredraw属性设为1。然后添加一个标准模块，把以下代码复制进去。
　　Private Type RECT
　　Left As Long
　　Top As Long
　　Right As Long
　　Bottom As Long
　　End Type
　　’GDI函数：
　　Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
　　Private Const SRCCOPY =