高校问答微星主板返修要多久:VB中file控件怎样达到类似幻灯片式自动播放
来源：百度文库 编辑：高校问答 时间：2024/05/06 12:02:47
类似幻灯片的效果，可能用到time控件，应该怎么写？
楼上不合题意。没有用到File控件，应该这么做：
Dim i As Integer
Private Sub Form_Load()
File1.Path = "（这里是图片文件夹路径）"
File1.Pattern = "*.gif;*.jpg;*.bmp;*.png;*.ico"
i=0
End Sub
Private Sub Timer1_Timer()
Image1.Picture = LoadPicture(File1.Path & "\" & File1.List(i))
i = i + 1
If i = File1.ListCount Then i=0:Timer1.Enabled = False
End Sub
private sub timer1_timer()
dim i as integer
i=1
select i
case 1
image.loadpictrue("路径")
i=i+1
case 2
image.loadpictrue("路径")
i=i+1
case 3
...
i=1
end select
sub
你设置timer的interval的属性值为1000吧（单位：ms）