[共享]容易Bitblt函数实现简单的透明贴图代码

[共享]简单Bitblt函数实现简单的透明贴图代码。
晚上随便翻翻一个收藏的一个代码，发现有这个，给大家共享出来，PSC的。



下载地址：http://files.cnblogs.com/laviewpbt/SpriteDemoPSC.rar 

[解决办法]
楼主是图片处理牛人,我是进来膜拜的.
[解决办法]
谢谢楼主!~ 收藏了 中有用得到的一天
[解决办法]
还要注册啊，能发布到可以直接下载的地方吗
[解决办法]
该回复于2010-11-23 10:11:45被版主删除
[解决办法]
支持一下楼主,凑凑热闹

GdiTransparentBlt与BitBlt 是兄弟

'添加 Picture1

Option Explicit '强制宣告定义变量
Private Declare Function GdiTransparentBlt Lib "gdi32" (ByVal hdc1 As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal W1 As Long, ByVal H1 As Long, ByVal Hdc2 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal W2 As Long, ByVal H2 As Long, ByVal Color As Long) As Long
Dim W&, H&, TransColor& '定义变量
Private Sub Form_Load()
   Me.BorderStyle = 0: Me.Caption = ""
   Me.AutoRedraw = True: Me.KeyPreview = True
   '将窗体居中显示 (屏幕宽度减去窗体的宽度)除以2 , (屏幕高度减去窗体的高度)除以2
   Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
   TransColor = RGB(0, 0, 255)
   W = Picture1.Width \ 15: H = Picture1.Height \ 15
   Picture1.AutoRedraw = True
   Picture1.Move Screen.Width
End Sub

Private Sub Form_Unload(Cancel As Integer)
   Set Form1 = Nothing
   End
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = 27 Then Unload Me
End Sub

Private Sub Form_Click()
   GdiTransparentBlt Me.hDC, (Me.Width - W * 15) \ 2 \ 15, (Me.Height - H * 15) \ 2 \ 15, W, H, Picture1.hDC, 0, 0, W, H, TransColor
   Me.Refresh
End Sub


[解决办法]
该回复于2010-11-23 14:31:34被版主删除
[解决办法]


做个标记
[解决办法]
该回复于2010-11-23 14:31:36被版主删除
[解决办法]
好贴！
[解决办法]
好臭啊，这个代码到处贴，天底下没听说哪个函数跟哪个函数是兄弟的