Visual Basic Code |
'API声明 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 Sub Command1_Click ( ) BitBlt 目标图.hDC, ( 目标图.Width / 2 - 掩码图.Width / 2 ) / 15, 0, 掩码图.Width / 15, 掩码图.Height / 15, 掩码图.hDC, 0, 0, vbSrcAnd BitBlt 目标图.hDC, ( 目标图.Width / 2 - 掩码图.Width / 2 ) / 15, 0, 掩码图.Width / 15, 掩码图.Height / 15, 源图.hDC, 0, 0, vbSrcInvert End Sub |
VB用Bitblt实现透明位图显示
最新推荐文章于 2014-11-26 18:44:25 发布