如何用VB把图像处理成这种过渡效果？

Question

处理前：处理后：

Answer 1

有一个老外写的pichandler程序中有这个功能，当然他那个的速度太慢，因为用的是setpixel.

Answer 2

有一个本 游戏编程的书里写过,但用VC代码,你  短信我  我回家帮你找找,有这个API

Answer 3

其实有比较快速的方法可以做到。
使用ALPHABLEND这个API就可以了。
将原始图片按照一个象素的高度横向分割。
然后将该长条图片和一个相同大小的黑色图片做ALPHABLEND。
只要一个循环（循环次数就是远图片的高度）
期间只要改变每次循环中的ALPHA通道参数就可以了。
如果楼主不明白这个API使用方法可以在VB版查找一下历史问题，以前有很多人问过。
MSDN也有例程。