|
Option Explicit
Private Declare Function TransparentBlt Lib "msimg32.dll" ( _
ByVal hdcDest As Long, _
ByVal nXOriginDest As Long, _
ByVal nYOriginDest As Long, _
ByVal nWidthDest As Long, _
ByVal hHeightDest As Long, _
ByVal hdcSrc As Long, _
ByVal nXOriginSrc As Long, _
ByVal nYOriginSrc As Long, _
ByVal nWidthSrc As Long, _
ByVal nHeightSrc As Long, _
ByVal crTransparent As Long ) As Long
Private Sub Form_Load()
Dim X As Long
Dim Y As Long
X = 90
Y = 50
TransparentBlt Me.hDC, X, Y, picSrc.ScaleWidth, _
picSrc.ScaleHeight, picSrc.hDC, 0, 0, _
picSrc.ScaleWidth, picSrc.ScaleHeight, vbWhite
End Sub
|
|