VB中windows API StretchBlt，BitBlt的应用

VB中windows API StretchBlt，BitBlt的应用

1.BitBlt函数

函数原型：

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

示例：将picture1的图片复制到picture2

Picture1.ScaleMode = vbPixels
w = Picture1.ScaleWidth
h = Picture1.ScaleHeight
BitBlt Picture2.hdc, 0, 0, w, h, Picture1.hdc, 0, 0, vbSrcCopy

2.StretchBlt函数

StretchBlt函数比BitBlt函数多了2个参数

Declare Function StretchBlt Lib "gdi32" _
( _
ByVal hdc As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal nWidth As Long, _
ByVal nHeigh