急！！如何利用一个image控件循环显示9张图片？

我写了个例子,通过点击按钮使3张图片循环在Image控件上显示,运行没有问题,你拿去看看.

窗体控件:1个image控件(image1),一个按钮(Command1)

Dim num As Integer '计数器

Private Sub Form_Load()
num = 0
End Sub

Private Sub Command1_Click()
If num >= 3 Then num = 0
num = num + 1
Image1.Picture = Nothing
Image1.Picture = LoadPicture(App.Path & "\" & num & ".jpg")
End Sub

程序执行速度太快,看不出变化
你需要做的是在循环过程中插入一个延时,以下过程是一个延时过程
Sub Delay(T As Long)
'T的单位为秒
Dim Temp As Long
Temp = Timer
Do
DoEvents
Loop Until Timer - Temp > T
End Sub

请在你的循环体内添加延时,如:
for i=......
delay(1)
......
......
next

或:
do
delay(1)
......
......
loop while .....

图片是不是被覆盖掉了呀

小问题材