’我們?cè)谶@里不用刪除建立的位圖——
’它現(xiàn)在屬于剪貼板，當(dāng)剪貼板變化時(shí)，Windows將為我們刪除它。
End If
’清除剛才建立的DC：
DeleteObject lhDC
End If
End Function
為了試驗(yàn)這個(gè)方法，把這些代碼加入窗體：
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中將會(huì)有一些文本。當(dāng)你點(diǎn)擊Command后，PictureBox中的全部?jī)?nèi)容都將會(huì)被復(fù)制到剪貼板里，你可以把它粘貼到別的程序里，比如畫筆、Word等等。
相關(guān)推薦：2010年9月計(jì)算機(jī)等級(jí)考試成績(jī)查詢時(shí)間匯總
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |
