Question

VB制作一个图片浏览器！100分！

具体要求很简单就是每10秒换一张图片 我一共有 20张图片
需要一张一张的自动播放一遍就可以
代码简单易懂 追加100！

Answer 1

简单点的啊。窗体上放一孙伏个timer1、一个picture1和一个file1控件，然后复制下列代码即可。

Const DR As String = "G:\下载" '图片所在文件夹

Dim NI As Integer

Private Sub Form_Load()

File1.Visible = False
File1.Path = DR

Timer1.Interval = 1000
Timer1.Enabled = True

NI = 0
Picture1.Picture = LoadPicture(File1.Path & "\" & File1.List(NI))
End Sub

Private Sub Timer1_Timer()
NI = NI + 1
If NI > File1.ListCount - 1 Then NI = 0
Picture1.Picture = LoadPicture(File1.Path & "\" & File1.List(NI))
End Sub

注意颂皮如野凯差果图片太大的话可能显示不全，需要再添加一下代码。

Answer 2

窗体上放一个timer1,Interval属仿庆性设为5000、备渣握一个picture1、20张图片改名为1-20.JPG
Private Sub Form_Load()
dim a as string
a=1
End Sub

Private Sub Timer1_Timer()
Picture1.Picture = LoadPicture("图片梁薯路径\" & a & ".jpg")
a=val(a)+1
End Sub
大概是这样子了~够简单了吧

Answer 3

这个你可以用picture控件，然后用list控件把两个相关，然后定义时间就行了。扰孙纤很简单。可是我的电脑没有装凯纯VB6.0 以前有，缓仿后来卸载了，你可以参考《基于VB和SQL的数据库编程技术》清华大学出版社。具体到169页。

Answer 4

100分能买个馒头不？

Answer 5

楼上的 应该买不了馒头