2011年計(jì)算機(jī)等級(jí)考試二級(jí)VB輔導(dǎo)實(shí)例編程(3)

　　把圖片框的完整內(nèi)容復(fù)制到剪貼板

　　VB本身不允許你將一個(gè)Form、UserControl或PictureBox上的完整圖片復(fù)制到剪貼板。如果你使用Clipboard.SetData，將只復(fù)制被載入這個(gè)對(duì)象的位圖。通過使用API方法，你可以超越這個(gè)限制，保證全部?jī)?nèi)容都被復(fù)制，包括你剛剛畫上的任何圖形。

　　開始一個(gè)新項(xiàng)目，在窗體上放置一個(gè)Command和一個(gè)PictureBox。將PictureBox的Autoredraw屬性設(shè)為1。然后添加一個(gè)標(biāo)準(zhǔn)模塊，把以下代碼復(fù)制進(jìn)去。

　　Private Type RECT

　　Left As Long

　　Top As Long

　　Right As Long

　　Bottom As Long

　　End Type

　　’GDI函數(shù)：

　　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

　　’創(chuàng)建一個(gè)memory DC：

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

　　’在memory中建立一個(gè)位圖：

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

　　2010年9月計(jì)算機(jī)等級(jí)考試成績(jī)查詢時(shí)間匯總

　　2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總

　　2011年計(jì)算機(jī)等級(jí)考試二級(jí)VB基礎(chǔ)教程匯總