用VB.NET做电子相册

来源:百度知道 编辑:UC知道 时间:2024/07/01 05:03:13
做电子相册的代码如下:Public Class Form1
Inherits System.Windows.Forms.Form

Dim i As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = False
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
i = i + 1
PictureBox1.Image = System.Drawing.Bitmap.FromFile("H:\photos\花景图片\" & i Mod 5 & ".jpg")
End Sub
End Class
这个电子相册主要采用了picturebox和timer控件。当单击程序中的“播放”按钮时会每隔1秒自动播放一张图片。但是不知道代码的哪个地方出了点小问题,当运行第5张图片的时候总会弹出对话框: 应用程序中了发生了未处理的异常。如果单击“继续”应用程序将此错误并尝试继续。如果单击“退出”应用程序将关闭。H:\photos\花景图片\0.jpg. 哪位高手肯指点一下,就是当运行程序的时候不要弹出上面的对话框。谢谢!
在我的电脑上存放图片的位置

你确定你有H:\photos\花景图片\0.jpg这张图片吗?
-----------------------------------------------
i = i + 1
if i mod 5 =0 then i=i+1
PictureBox1.Image = System.Drawing.Bitmap.FromFile("H:\photos\花景图片\" & i Mod 5 & ".jpg")
--------------------------------------------------
try
PictureBox1.Image = System.Drawing.Bitmap.FromFile("H:\photos\花景图片\" & i Mod 5 & ".jpg")
catch
PictureBox1.Image = System.Drawing.Bitmap.FromFile("H:\photos\花景图片\1.jpg")
end try