如何解决移动图片闪烁的问题？

Question

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To Me.ScaleWidth Step 15
    Image1.Move i
    DoEvents
Next
End Sub

Answer 1

1、使用BitBlt函数来“画”；
2、见过一个VB内置汇编来消除Image移动时闪烁的代码，但是好像不能在NT上用。

Answer 2

bitblt 或 paintpicture,如果进行图片切换可以设置一个备用屏.

Answer 3

使用bitblt api函数
可以解决问题，也是最好的

Answer 4

使用bitblt函数，加一个缓冲控件picturebox 即可。

Answer 5

谢谢！用 picture是可以解决的另外，我发现只要加入一个透明的 flash控件同样能不闪烁，可问题是用 flash5 的flash 控件，到装了 flash6的机器上运行，flash控件就不透明了，结果又闪烁了，请问如何解决这 flash透明的问题？