'▼APIの宣言
Declare Function StretchBlt Lib "gdi32" ( _
ByVal hdc 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 nSrcWidth As Long, _
ByVal nSrcHeight As Long, _
ByVal dwRop As Long _
) As Long
'▼定数の宣言
Global Const SRCCOPY = &HCC0020 'そのまま転送
Global Const SRCAND = &H8800C6 '転送先の画像とAND演算して転送
Global Const SRCPAINT = &HEE0086 '転送先の画像とOR演算して転送
Global Const SRCINVERT = &H660046 '背景を反映して色を反転して転送
Global Const NOTSRCCOPY = &H330008 '色を反転して転送
|
Ret = StretchBlt(Picture2.hDC, 0, 0, 200, 200, _
Picture1.hDC, 0, 0, pw, ph, SRCCOPY)
|