2011年计算机等级考试二级VB辅导实例编程(3)

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

　　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 = &HCC0020 ’ (DWORD) dest = source

　　’创建一个memory DC：

　　Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hDC As Long) As Long

　　’在memory中建立一个位图：

　　Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hDC As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long

　　2010年9月计算机等级考试成绩查询时间汇总

　　2011计算机等级考试二级VB考点及习题汇总

　　2011年计算机等级考试二级VB基础教程汇总