’我們在這里不用刪除建立的位圖——

　　’它現(xiàn)在屬于剪貼板，當剪貼板變化時，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基礎教程匯總