图片浏览 个性化音乐播放器.docVIP

实验报告 课程： 可视化程序设计 班级： 姓名： 学号： 成绩： 指导教师： 实验日期： 实验密级： 预习程度： 实验时间： 仪器组次： 必修/选修： 选修 实验序号： 4 实验名称： 实验四 多媒体程序设计 实验目的与要求： 1、掌握VB.NET多媒体编程，会多媒体典型控件的编程应用； 2、培养运用VB.NET编程解决司题的能力，提高计算机编程能力 3、引导和培养具有认真严谨的实验态度和勇于实践的学习精神。 实验仪器： 名称 型号 数量 微机 1 一、实验内容 (一) 图片浏览器 1、实验题目 根据用户选择的文件夹，程序自动搜索该文件夹下的图片文件，并在窗口中 显示图片及其文件名，用户可以用鼠标或键盘进行循环翻图。 要求： 单击【浏览】按钮可由用户指定某个文件夹为浏览目录。 在本程序窗口中显示图片。运行开始时应显示出使用说明。 用户可通过鼠标、键盘操作对图片翻页浏览。窗体可最大、最小化。 为便于理解题意，程序执行结果请参考下图 2、编程设计思想 具体的编程思想如下： 设置一个listbox，用于判断所选文件是否为图片类型，是则显示图片，否则不显示。 使用PictureBox控件显示图片； 能够设置支持的扩展名。 增加鼠标控制和键盘控制，实现翻页的操作 当图片显示时，隐藏原本的界面操作提示，改用tooltip提示 3、事件机制应用 本实验采用如下的事件机制，如表所示 事件名称 事件描述 Button1_Click 进行文件夹浏览界面，选择图片播放列表 Function SearchFolder 对用户所选的文件夹进行图片穷举筛选，找出格式符合的图片放入图片列表picturebox，等待用户浏览 Form1_KeyDown 关于键盘按钮的操作，实现程序的键盘控制 Form1_Load 初始化窗口，包括实现对tooltip的初始化控制 PictureBox1_MouseClick 对图片浏览窗口的鼠标控制，单击时翻阅下一张 4、程序源代码设计 Imports System.IO Public Class Form1 Public file() As String Public folder As String Dim cur As Integer Private Function SearchFolder(ByVal folder As String) As String() 遍历所选文件夹内的所有文件，找出所有格式符合的图片 Dim tlist() As String Dim rs() As String Dim len As Integer = 0 Dim ct As Integer For i As Integer = 0 To ListBox1.Items.Count - 1 If (ListBox1.GetSelected(i)) Then tlist = Directory.GetFiles(folder, * ListBox1.SelectedItems(i).ToString()) End If ReDim Preserve rs(len + tlist.Length - 1) ct = 0 For j As Integer = len To len + tlist.Length - 1 rs(j) = tlist(ct) ct = ct + 1 Next len = len + tlist.Length Next Return rs End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim fbd As New FolderBrowserDialog If (fbd.ShowDialog() = Windows.Forms.DialogResult.OK) Then folder = fbd.SelectedPath file = SearchFolde