VB.NET图片浏览器，MP3播放器源代码及实验报告

一． 实验内容

1. 图片浏览器

根据用户选择的文件夹，程序自动搜索该文件夹下的图片文件，并在窗口中显

示图片及其文件名，用户可以用鼠标或键盘进行循环翻图。

要求：

单击【浏览】按钮可由用户指定某个文件夹为浏览目录。

在本程序窗口显示图片。运行开始时显示使用说明。

用户可以用鼠标、键盘对图片进行翻页浏览。窗体可最大化、最小化。

有打开、播放、暂停、停止等按钮。

打开音乐文件后显示文件名及路径。

二． 实验步骤

（3）界面设计：

Dim Files() As String

Dim FileIndex As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

Button1.Click

If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

Files = System.IO.Directory.GetFiles(FolderBrowserDialog1.SelectedPath)

Label1.Text = "图片路径:" & Files(0)

PictureBox1.Image = Image.FromFile(Files(0))

Label2.Visible = False

End If

Private Sub ShowImage()

Try

FileIndex = IIf(FileIndex < 0, UBound(Files), FileIndex)

FileIndex = IIf(FileIndex > UBound(Files), 0, FileIndex)

Label1.Text = "图片路径" & Files(FileIndex)

PictureBox1.Image = Image.FromFile(Files(FileIndex))

Catch ex As Exception

End Try

End Sub

Private Sub Form1_KeyPress(ByVal sender As System.Object, ByVal e As

End Sub

End Class