图片浏览器个性化音乐播放器.docx
- 文档编号:319095
- 上传时间:2022-10-08
- 格式:DOCX
- 页数:13
- 大小:1.35MB
图片浏览器个性化音乐播放器.docx
《图片浏览器个性化音乐播放器.docx》由会员分享,可在线阅读,更多相关《图片浏览器个性化音乐播放器.docx(13页珍藏版)》请在冰豆网上搜索。
图片浏览器个性化音乐播放器
图片浏览器个性化音乐播放器
————————————————————————————————作者:
————————————————————————————————日期:
实验报告
课程:
可视化程序设计
班级:
姓名:
学号:
成绩:
指导教师:
实验日期:
实验密级:
预习程度:
实验时间:
仪器组次:
必修/选修:
选修
实验序号:
4
实验名称:
实验四多媒体程序设计
实验目的与要求:
1、掌握VB.NET多媒体编程,会多媒体典型控件的编程应用;
2、培养运用VB.NET编程解决司题的能力,提高计算机编程能力
3、引导和培养具有认真严谨的实验态度和勇于实践的学习精神。
实验仪器:
名称
型号
数量
微机
1
一、实验内容
(一)图片浏览器
1、实验题目
根据用户选择的文件夹,程序自动搜索该文件夹下的图片文件,并在窗口中
显示图片及其文件名,用户可以用鼠标或键盘进行循环翻图。
要求:
⏹单击【浏览】按钮可由用户指定某个文件夹为浏览目录。
⏹在本程序窗口中显示图片。
运行开始时应显示出使用说明。
⏹用户可通过鼠标、键盘操作对图片翻页浏览。
窗体可最大、最小化。
⏹为便于理解题意,程序执行结果请参考下图
2、编程设计思想
具体的编程思想如下:
设置一个listbox,用于判断所选文件是否为图片类型,是则显示图片,否则不显示。
使用PictureBox控件显示图片;
能够设置支持的扩展名。
增加鼠标控制和键盘控制,实现翻页的操作
当图片显示时,隐藏原本的界面操作提示,改用tooltip提示
3、事件机制应用
本实验采用如下的事件机制,如表所示
事件名称
事件描述
Button1_Click
进行文件夹浏览界面,选择图片播放列表
FunctionSearchFolder
对用户所选的文件夹进行图片穷举筛选,找出格式符合的图片放入图片列表picturebox,等待用户浏览
Form1_KeyDown
关于键盘按钮的操作,实现程序的键盘控制
Form1_Load
初始化窗口,包括实现对tooltip的初始化控制
PictureBox1_MouseClick
对图片浏览窗口的鼠标控制,单击时翻阅下一张
4、程序源代码设计
ImportsSystem.IO
PublicClassForm1
Publicfile()AsString
PublicfolderAsString
DimcurAsInteger
PrivateFunctionSearchFolder(ByValfolderAsString)AsString()
'遍历所选文件夹内的所有文件,找出所有格式符合的图片
Dimtlist()AsString
Dimrs()AsString
DimlenAsInteger=0
DimctAsInteger
ForiAsInteger=0ToListBox1.Items.Count-1
If(ListBox1.GetSelected(i))Then
tlist=Directory.GetFiles(folder,"*"&ListBox1.SelectedItems(i).ToString())
EndIf
ReDimPreservers(len+tlist.Length-1)
ct=0
ForjAsInteger=lenTolen+tlist.Length-1
rs(j)=tlist(ct)
ct=ct+1
Next
len=len+tlist.Length
Next
Returnrs
EndFunction
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimfbdAsNewFolderBrowserDialog
If(fbd.ShowDialog()=Windows.Forms.DialogResult.OK)Then
folder=fbd.SelectedPath
file=SearchFolder(folder)'穷举文件夹,找出所有格式符合的图片
PictureBox1.Load(file(0))
Label1.Visible=False
EndIf
EndSub
PrivateSubForm1_KeyDown(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.KeyEventArgs)HandlesMe.KeyDown
实现键盘对程序的操作
If(e.KeyCode=Keys.SpaceOre.KeyCode=Keys.PageUp)Then
cur=(cur+file.Length-1)Modfile.Length
PictureBox1.Load(file(cur))
Else
cur=(cur+1)Modfile.Length
PictureBox1.Load(file(cur))
EndIf
EndSub
PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
DimsocAsNewListBox.SelectedObjectCollection(ListBox1)
ForiAsInteger=0ToListBox1.Items.Count-1
ListBox1.SetSelected(i,True)
Next
ToolTip1.SetToolTip(Me.PictureBox1,"浏览图片时,可用鼠标点击图片翻页,或按键盘翻页"&vbCrLf&"鼠标:
右键=前一页"&vbCrLf&" 左键=下一页"&vbCrLf&"键盘:
Backspace(PgUp=前一图)"&vbCrLf&" 其他键=下一图")
EndSub
PrivateSubPictureBox1_MouseClick(ByValsenderAsSystem.Object,ByValeAsSystem.Windows.Forms.MouseEventArgs)HandlesPictureBox1.MouseClick
‘实现键盘对浏览界面的操作,单击时翻页
If(e.Button=Windows.Forms.MouseButtons.Left)Then
cur=(cur+1)Modfile.Length
PictureBox1.Load(file(cur))
ElseIf(e.Button=Windows.Forms.MouseButtons.Right)Then
cur=(cur+file.Length-1)Modfile.Length
PictureBox1.Load(file(cur))
EndIf
EndSub
EndClass
6、软件结果测试截图
(一)初始界面
(二)浏览文件夹
(三)图片浏览
(四)tooltip操作提示
7、程序设计亮点
[1]设置一个listbox,用于判断所选文件是否为图片类型,是则显示图片,否则不显示。
[2]使用tooltip控件对软件的操作予以提示。
[3]能够设置支持的扩展名。
[4]增加鼠标控制和键盘控制,实现翻页的操作
[5]当图片显示时,隐藏原本的界面操作提示,改用tooltip提示
(二)个性化MP3播放器
1、实验题目
编程实现MP3音乐播放器。
要求:
⏹不允许窗口最大化、不允许调整窗口大小。
⏹由用户选择要播放的MP3文件。
⏹用户能拖动播放进度条。
⏹有打开、播放、暂停、停止的功能按钮。
⏹打开音乐文件后显示文件名及其路径。
为便于理解题意,程序执行结果请参考下图
2、编程设计思想
⏹具体的编程思想如下
[1]使用WindowsMediaPlayer控件播放并控制音乐。
[2]增加多个label控件,实现对播放器的“添加播放列表”、“删除歌曲”、“播放”、“暂停”、“停止”操作
[3]用listbox控件来实现对播放列表的呈现
[4]采用检测播放停止的方法,如果播放停止就进入下一曲的播放。
3、事件机制应用
●本实验采用如下的事件机制,如表所示
事件名称
事件描述
Timer1_Tick
检测播放列表,防止播放错误,当前歌曲无法播放时自动播放下一首
Label1_Click_1
“播放”按钮,实现对当前音乐的播放
Label5_Click
“添加”按钮,将用户所选歌曲添加至播放列表
Label4_Click
“删除”按钮,将用户所选歌曲进行从播放列表中删除的操作
Label3_Click
“暂停”按钮,对当前播放的歌曲采取暂停控制
Label2_Click
“停止”按钮,停止播放列表,将当前歌曲的播放进度条移回原点
4、程序源代码设计
PublicClassForm1
PrivateSubAxWindowsMediaPlayer1_Enter(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesAxWindowsMediaPlayer1.Enter
EndSub
PrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.Tick
If(AxWindowsMediaPlayer1.playState=WMPLib.WMPPlayState.wmppsStopped)Then
Try
Dimn=ListBox1.SelectedIndex
ListBox1.SelectedIndex=n+1
CatchexAsException
Return
EndTry
Label1_Click_1(sender,e)
EndIf
EndSub
PrivateSubLabel1_Click_1(senderAsObject,eAsEventArgs)HandlesLabel1.Click
AxWindowsMediaPlayer1.URL=ListBox1.SelectedItem
AxWindowsMediaPlayer1.Ctlcontrols.play()
Timer1.Enabled=True
EndSub
Priv
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 图片 浏览器 个性化 音乐 播放