谁会做图像蒙板处理的控件阿？

[nunu]

谁会做图像蒙板处理的控件阿？

[熊孩子开学喽]

做图像镂空么？
一个API搞定阿：TransparentBlt
定义：
Private Declare Function TransparentBlt Lib "msimg32.dll" (ByVal hdcDest As Long, ByVal nXOriginDest As Long, ByVal nYOriginDest As Long, ByVal nWidthDest As Long, ByVal nHeightDest 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
又可以支持透明色镂空贴图，又可以缩放贴图，何乐不为呢。

[IamDeane]

看雪原在线上原来有个蒙板处理的代码，你去看看吧

[nunu]

有没有具体的代码阿，从没做过图像处理方面的开发:(

[YaDa]

TransparentBlt 在Win98中有内存泄漏的 bug，我吃过苦头。

[熊孩子开学喽]

TransparentBlt 适用于WINDOWS2000及之后的系统,98和ME不适合

[nunu]

有没有TransparentBlt的实例代阿

[IamDeane]

'Example Name:TransparentBlt
'This project needs 2 pictureboxes
'Picturebox1 must contain a picture with a lot of white pixels (we're going to use white as transparent color)
Private Declare Function TransparentBlt Lib "msimg32.dll" (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 crTransparent As Long) As Boolean
Private Sub Form_Load()
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: [e-mail]
Picture1.AutoSize = True
'API uses pixels
Picture1.ScaleMode = vbPixels
Picture2.ScaleMode = vbPixels
End Sub
Private Sub Picture2_Paint()
'If we don't call DoEvents first, our transparent image will be completely wrong
DoEvents
TransparentBlt Picture2.hdc, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, Picture1.hdc, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, vbWhite
End Sub