VB中使用API BitBlt()如何能够使得图象逐步显示?
刚刚接触VB,在我编写屏保的时候遇到这样一个问题:
想用API BitBlt()实现图象显示的特技效果,例如以下代码:
For i% = 0 To Picture1.Height
BitBlt PictureBox2.hDC,0,i%,PictureBox1.Width, 1, PictureBox1.hDC, 0, i%, SRCCOPY
Sleep 20
DoEvents
PictureBox2.Visible = True
Next i%
但图象并不能逐行显示,而是整个图象全部扫描之后,整个显示出来,达不到特技显示的效果。
如何能够让BitBlt扫描一行就显示一行,请大虾们帮菜鸟一把!
Thanks a lot