我想做一个VB程序 一点开就可以自动播放选定的图片一张一张放 最好是全屏的要放几百张图片

我想做一个VB程序 一点开就可以自动播放选定的图片一张一张放 最好是全屏的 要放520张图片 我是用来表白的 能给我代码么？

答案：把照片从1-520 编号号码.
Option Explicit
Private Sub Form_Load()
Me.Width = Screen.Width
Me.Height = Screen.Height
Me.Top = 0
Me.Left = 0
Image1.Top = 0
Image1.Left = 0
Image1.Width = Me.Width
Image1.Height = Me.Height
End Sub
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Shift = 2 Then
Unload Me
End If
End Sub
Private Sub Timer1_Timer()
Static i As Integer
Dim f As String
i = i + 1
If i = 521 Then i = 1
f = App.Path & "\" & i & ".jpg"
Image1.Picture = LoadPicture(f)
End Sub

其他：用dreamweaver中的JS吧。而且切换方式多样，或者使用视频处理软件做一段视频。不过520张确实不小，使用JS吧 可以，新建一个单独的窗体，窗体不要放置任何控件，然后用一个计时器控件，设定好时间间隔，然后定时更换窗体背景即可【也可以将图片放在picture控件里面】，也可以加一个按钮，控制计时器的开始、暂停与结束；至于全屏的问题，没做过，上网找找吧，如果没有，可以讲窗体宽高度设置为接近于屏幕的宽高度。 把照片从1-520 编号号码，之后用循环 递增改变照片路径

上一个：有了开罐之王开罐子有什么好处吗？
下一个：VB做播放器没声音