bitblt 怎样用BITBLT实现背景色透明的复制? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 如果用 Bitblt 的话则需要制作掩码图,如果你安装了 msdn 的话可以到C:\Program Files\Microsoft Visual Studio\MSDN98\98VS\2052\SAMPLES\VB98\Calldlls这个目录下面看看这个例子。 示例中的关键代码见:'现在执行 "透明" BitBlts:'1 复制原来的背景到精灵原来所处的位置'2 复制精灵将要到达处的背景'3 绘制掩饰'4 绘制精灵temp = BitBlt(hDC, X, Y, PicWidth, PicHeight, picCopy.hDC, 0, 0, SRCCOPY)temp = BitBlt(picCopy.hDC, 0, 0, PicWidth, PicHeight, hDC, NewX, NewY, SRCCOPY)temp = BitBlt(hDC, NewX, NewY, PicWidth, PicHeight, picMask.hDC, 0, 0, SRCAND)temp = BitBlt(hDC, NewX, NewY, PicWidth, PicHeight, picSprite.hDC, 0, 0, SRCINVERT) 大家来玩接故事游戏 VBA可以访问Web 页面吗 如何判定对象是否存在 怎么判定打印机已经把打印任务完成 怎样使text 里的文字不能通过右键和ctrl+c进行复制?立即给分 关于filter属性一个很棘手的问题,调用时程序自动退出 请教:怎么把对象转存到byte()数组? 请教各位一个特菜的问题,但是有高分相赠啊。 vb6从数据库输出TXT文本的问题. 如何批量去掉文件夹中带数字的TXT文件名中的数字 水晶报表的时间字段显示问题50分(在线急等????) TDBGRID如何根据某一列的值不同而设置行的颜色?急急急~~~~
C:\Program Files\Microsoft Visual Studio\MSDN98\98VS\2052\SAMPLES\VB98\Calldlls
这个目录下面看看这个例子。
'1 复制原来的背景到精灵原来所处的位置
'2 复制精灵将要到达处的背景
'3 绘制掩饰
'4 绘制精灵
temp = BitBlt(hDC, X, Y, PicWidth, PicHeight, picCopy.hDC, 0, 0, SRCCOPY)
temp = BitBlt(picCopy.hDC, 0, 0, PicWidth, PicHeight, hDC, NewX, NewY, SRCCOPY)
temp = BitBlt(hDC, NewX, NewY, PicWidth, PicHeight, picMask.hDC, 0, 0, SRCAND)
temp = BitBlt(hDC, NewX, NewY, PicWidth, PicHeight, picSprite.hDC, 0, 0, SRCINVERT)