- 1、本文档共4页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
目的是可以播放VCD、WAV、MP3等媒体文件,而且全部
小叮当:我们这个媒体播放器的目的是可以播放VCD、WAV、MP3等媒体文件,而且全部的功能基本上和Windows附带的媒体播放器差不多。其实要制作这样一个播放器并不困难,因为在VB中提供了一个MediaPlayer控件,它帮我们解决了很多实际问题,只要按照下面的步骤就可以了。
1、因为我们需要使用到MediaPlayer控件,所以刚开始就要右击工具面板并在部件添加窗口里选择“Windows MediaPlayer”来添加这个控件,同时还要添加“CommonDialog”控件。
2、在窗口设计器中创建一个MediaPlayer控件、五个Command Button控件和一个CommonDialog控件。
3、将Form1的Caption属性更改为“小叮当的媒体播放器”。
4、分别将五个Command Button控件的Caption属性分别命名为“暂停”、“播放”、“停止”、“选择”和“退出”,然后把它们按照一定的位置放好。
5、选中CommonDialog控件之后,在右边属性的“Filter”对话框中输入“WAV(*.wav)|*.wav|MIDI(*.mid)|*.mid|MPEG(*.mpeg)|*.mpeg|DAT(*.dat)|*.dat|AVI(*.avi)|*.avi|MP3(*.mp3)|*.mp3”的文件过滤选项,这样就可以支持各种常见的媒体影像文件了。
小蘑菇:看起来和真正的MediaPlayer差不多呀,还蛮有专业水准的呢。
小叮当:是呀,这全要归功于MediaPlayer控件,下面就是代码编写部分内容了:
1、首先要双击Form1窗口,并选择“通用”对象,输入下面的通用代码:
Option Explicit Dim playfilename As String /定义播放文件的名称 Dim playposition As Double /定义当前播放的位置
2、双击“暂停”按键并输入下列代码:
Private Sub Command1_Click() Command1.Enabled = False /暂停按键失效 MediaPlayer1.Pause /暂停播放 playposition = MediaPlayer1.CurrentPosition /当前的播放位置 End Sub
3、双击“播放”按键并输入下列代码:
Private Sub Command2_Click() Command1.Enabled = True /暂停按键有效 Command3.Enabled = True /停止按键有效 MediaPlayer1.filename = playfilename /播放媒体文件名称 MediaPlayer1.SelectionStart = playposition /当前播放的位置 MediaPlayer1.Play /播放媒体文件 End Sub
4、双击“停止”按键并输入下列代码:
Private Sub Command3_Click() playposition = 0 /停止播放 Command3.Enabled = False /停止按键无效 Command1.Enabled = False /暂停按键无效 Command2.Enabled = True /播放按键有效 MediaPlayer1.Stop /停止播放 End Sub
5、双击“选择”按键并输入下列代码:
Private Sub Command4_Click() CommonDialog1.showopen /打开文件对话框 playfilename = CommonDialog1.filename /记录播放文件名 playposition = 0 /第一次打开文件时候,播放位置为0 End Sub
6、双击“退出”按键并输入下列代码:
Private Sub Command5_Click() Unload Me /卸载窗口 End /结束程序 End Sub
代码全部输入完毕之后,运行程序后按下“选择”按键,此时会弹出打开文件对话框供你选择需要播放的文件。
选中相应的文件之后,就可以进行欣赏了。如果需要在别的计算机上使用这个程序的话,还可以选择“工具”菜单下的“生成.exe文件”选项来制作一个可以直接运行的exe格式文件,这样将程序复制到其他机器上就可以使用了。”
您可能关注的文档
- 甘肃白银案明日开审法院高承勇没提捐器官.PDF
- 甘肃省人民医院医疗美容多功能相控射频工作站、温控治疗仪等.PDF
- 甘肃省第二类疫苗供应资格采购项目公开招标更正公告.PDF
- 生态农业模式研究及模式建设建议.PDF
- 生命历程与日常生活 :.PDF
- 生望煎焦鲎垂垫!!芏!!基整盟鲞墨!!塑!墅!』卫亟,.PDF
- 生鲜争霸 7-eleven悄然卖净菜.PDF
- 用心谱写草原和谐乐章.PDF
- 用仿声赶 用网罩防 用彩条布吓.PDF
- 由于之前买卖小产.PDF
- 2024年外研版三年级上册英语Unit 5课时5 Wrap up.pptx
- 研学旅行活动安全管理制度范文(2篇).pdf
- 2024年外研版三年级上册英语Unit 4课时2 Speed up.pptx
- 2024年苏教版三年级上册数学第三单元1. 认识长方形和正方形.pptx
- 研发部发展与提升方案.pdf
- 2024年外研版三年级上册英语Unit 6课时1 Get ready—Start up.pptx
- 社区工作者演讲稿6篇.pdf
- 2024年部编版六年级上册语文第二单元作文指导课件《多彩的活动》.pptx
- 社会心理学心得体会感想5篇.pdf
- 2024-2025学年九年级上学期化学教学计划(人教版).docx
文档评论(0)