《图片浏览器 个性化音乐播放器》由会员分享，可在线阅读，更多相关《图片浏览器 个性化音乐播放器（14页珍藏版）》请在金锄头文库上搜索。
1、实验报告课程：可视化程序设计班级：姓名： 学号:成绩：指引教师:实验日期:实验密级：预习限度:实验时间：仪器组次：必修/选修:选修实验序号：4实验名称:实验四 多媒体程序设计实验目的与规定:1、掌握VB.NET多媒体编程,会多媒体典型控件的编程应用;2、培养运用VB.NET编程解决司题的能力，提高计算机编程能力3、引导和培养具有认真严谨的实验态度和敢于实践的学习精神。实验仪器：名称型号数量微机1一、实验内容（一) 图片浏览器、实验题目根据顾客选择的文献夹,程序自动搜索该文献夹下的图片文献，并在窗口中显示图片及其文献名,顾客可以用鼠标或键盘进行循环翻图。规定：n 单击【浏览】按钮可由顾客指定某个
2、文献夹为浏览目录。n 在本程序窗口中显示图片。运营开始时应显示出使用阐明。n 顾客可通过鼠标、键盘操作对图片翻页浏览。窗体可最大、最小化。n 为便于理解题意，程序执行成果请参照下图2、编程设计思想具体的编程思想如下：设立一种stbx，用于判断所选文献与否为图片类型，是则显示图片,否则不显示。使用PictureBx控件显示图片;可以设立支持的扩展名。增长鼠标控制和键盘控制，实现翻页的操作当图片显示时，隐藏原本的界面操作提示,改用toltp提示3、事件机制应用本实验采用如下的事件机制，如表所示事件名称事件描述uto_Cli进行文献夹浏览界面，选择图片播放列表unction eachoder对顾客所
3、选的文献夹进行图片穷举筛选,找出格式符合的图片放入图片列表pcurbox,等待顾客浏览Frm1_yDown有核心盘按钮的操作,实现程序的键盘控制Form1_o初始化窗口，涉及实现对tooli的初始化控制ictureox_MousClick对图片浏览窗口的鼠标控制,单击时翻阅下一张4、程序源代码设计Impot stmIPubl Clas Form1 Puicfie(） strng ublicflder As String Dicu Asntee Pivate ntion SacFode(ByV flders trin) Atin() 遍历所选文献夹内的所有文献,找出所有格式符合的图片 im ti
4、st（） Srng Dim s() AStrng Dim le A Intger= 0 Dim ctA teger For Intege = 0o Litox1.ItemsCount - 1 I (ListBx1.Getelecte(i) The list = Drcor.etFies(lr, * & isx1.Selectetm(i).Totrng() nIf emrsere (len lst.Length -1) 0 For s Integer = len T en +tst.Lengh-1 r(j)=tlst(ct） c = ct + 1 et n = len+ tit.Lgth Net
5、 Return r EndFuncio Priat SubButon1lick(yVal senerAystemect， BVl e A Sytm.EventArs) andlsuton.Ci im bd A Nw FolderBrowsrDilo f （fbd.ShowDalg() =Winos.Form.Daogesult.) Th flder =fbd.electedPth fie = Scholder（flder） 穷举文献夹,找出所有格式符合的图片 icrex.oad(file(0) Label1.isbl = Fal End I En Sub Priva Sub Fom_eon(B
6、yVal nder As bc, ByVal eAs SystmWindows.Forms.KeyEenAr) andes M.KeyDo 实现键盘对程序的操作 f (.KeCd = Ky.pe O e.KeyCode = Kes.agU) Then cur (cu + file.Legth 1） Mod file.Lengt PtueBx1.Lad（file(r) se r （cur + ) Mod ie.Leng Pireox1.oa(file（cr) End If nd ub rivae Sub For1_Loa(ByVa sender s SystemObjt, ByVal A Syt
7、ementArgs)Hnds MBs.ad D oc As New ListBelctedObjectCollection（stBox1） Fr i As Integr 0 TostBox1.Items.Count - 1 istBox1.Seelctd(i, Tu) xt TolTip.SeoolTip（M.icteBx1，浏览图片时,可用鼠标点击图片翻页,或按键盘翻页 & vCrLf& 鼠标:右键= 前一页 & brLf& 左键 = 下一页&CrLf 键盘：Backsace(PgUp = 前一图)&vbrf& 其她键 下一图) End b Private S PictureBox1_MeC
8、ck(ByVal sender A SyseOect,yVal e Sytm.Windw.Foms.ouseventAgs) Handles treBoouseCic 实现键盘对浏览界面的操作，单击时翻页 f (e.Buton = WndowsForms.Mouseutons.Lt） Th cur = (cur + 1) Mod file.Lngh Piturx1.d(fle(ur)） EeIf (e.Bton = Windows.orms.MousButtos.iht) The cur= (cur file.Length 1） Mod fie.Length Pitureox1Loa(le（c
9、ur）) En If End SubEd Clss6、软件成果测试截图(一）初始界面（二）浏览文献夹（三）图片浏览（四）toltip操作提示、程序设计亮点1 设立一种litbox,用于判断所选文献与否为图片类型,是则显示图片，否则不显示。2 使用ootip控件对软件的操作予以提示。3 可以设立支持的扩展名。4 增长鼠标控制和键盘控制，实现翻页的操作5 当图片显示时,隐藏原本的界面操作提示,改用tltip提示(二)个性化M3播放器1、实验题目 编程实现M音乐播放器。规定：n 不容许窗口最大化、不容许调节窗口大小。n 由顾客选择要播放的P文献。n 顾客能拖动播放进度条。n 有打开、播放、暂停、停止
10、的功能按钮。n 打开音乐文献后显示文献名及其途径。 为便于理解题意，程序执行成果请参照下图2、编程设计思想n 具体的编程思想如下1 使用Window edia aye控件播放并控制音乐。2 增长多种lbel控件,实现对播放器的“添加播放列表”、“删除歌曲”、“播放”、“暂停”、“停止”操作3 用istbo控件来实现对播放列表的呈现4 采用检测播放停止的措施，如果播放停止就进入下一曲的播放。3、事件机制应用l 本实验采用如下的事件机制，如表所示事件名称事件描述imer1_ick检测播放列表，避免播放错误,目前歌曲无法播放时自动播放下一首Lael1_Clic_“播放”按钮，实现对目前音乐的播放La
11、bel5_Clck“添加”按钮，将顾客所选歌曲添加至播放列表ae_lk“删除”按钮，将顾客所选歌曲进行从播放列表中删除的操作abe3_Clck“暂停”按钮，对目前播放的歌曲采用暂停控制Label2lick“停止”按钮,停止播放列表,将目前歌曲的播放进度条移回原点、程序源代码设计Pulic Class Fom1 Privte Sb AxWinwMediaPlaye_nter(Bal sdr As System.bject, ByVl e As ysemEvtrgs)Hndles AxWindsMedialae1.nter nSu Prit Sb Timer1_Tick（ByVlsder As Syt.Object, Byal e As Syte.EventArgs)HandesTimer.Tik If (xWindowsMedialyer1.payStae WMPLibWMPlayState.mpp
