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

[dill99]

如何解决移动图片闪烁的问题？
我用下面代码让一个 image控件在窗体上滑动，但 image 闪的厉害
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To Me.ScaleWidth
Image1.Move i
Next
End Sub

该如何解决？？

[zyl910]

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

[uguess]

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

[wiw]

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

[haisland]

用PictureBox不就可以了吗？

[wxjh]

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

[京霾]

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

[dill99]

谢谢！用 picture是可以解决的

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