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

　　’我们在这里不用删除建立的位图——

　　’它现在属于剪贴板，当剪贴板变化时，Windows将为我们删除它。

　　End If

　　’清除刚才建立的DC：

　　DeleteObject lhDC

　　End If

　　End Function

　　为了试验这个方法，把这些代码加入窗体：

　　Private Sub Command1_Click()

　　CopyEntirePicture Picture1

　　End Sub

　　Private Sub Form_Load()

　　Dim i As Long

　　’在PictureBox中画些东西：

　　With Picture1.Font

　　.Name = "Arial"

　　.Bold = True

　　.Size = 12

　　End With

　　For i = 1 To 20

　　Picture1.ForeColor = QBColor(i Mod 15)

　　Picture1.Print "http://www.archtide.com"

　　Next i

　　End Sub

　　窗体加载后，PictureBox中将会有一些文本。当你点击Command后，PictureBox中的全部内容都将会被复制到剪贴板里，你可以把它粘贴到别的程序里，比如画笔、Word等等。

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

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

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