1 / 86
文档名称:

利用VB实现多媒体播放器.doc

格式:doc   大小:188KB   页数:86页
下载后只包含 1 个 DOC 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

分享

预览

利用VB实现多媒体播放器.doc

上传人:雨林书屋 2022/7/30 文件大小:188 KB

下载得到文件列表

利用VB实现多媒体播放器.doc

相关文档

文档介绍

文档介绍:利用VB实现多媒体播放器
利用VB实现多媒体播放器
利用VB实现多媒体播放器
利用VB实现多媒体播放器
利用VB实现多媒体播放器
实验计划学时:6学时
实验性质:考证性
一、实验目的
利用VB实现多媒体播放器
利用VBsInteger)AsInteger
DimstrSoundAsString
利用VB实现多媒体播放器
利用VB实现多媒体播放器
利用VB实现多媒体播放器
7
利用VB实现多媒体播放器
利用VB实现多媒体播放器
利用VB实现多媒体播放器
函数声明
在“PrivateSub
DriveListBox1_SelectedIndexChanged(
,ByVal
)Handles

”与“EndSub”之间增添代码:
驱动器改变
=

双击DirListBox1控件,增添代码:
目录改变
=
双击FileListBox1控件,增添代码:
文件改变
利用VB实现多媒体播放器
利用VB实现多媒体播放器
利用VB实现多媒体播放器
8
利用VB实现多媒体播放器
利用VB实现多媒体播放器
利用VB实现多媒体播放器
strSound=&"\"&
双击Label5控件,增添代码:
strSound=+"\"+
=strSound
双击Button1控件,增添代码:
播放音频文件
DimlngRetAsInteger
IfstrSound=""Then'不选择声音
文件直接播放
lngRet=
PlaySound("c:\Windows\Media\The
MicrosoftSound",0,&H20000)
Else'选择声音文件后播放
利用VB实现多媒体播放器
利用VB实现多媒体播放器
利用VB实现多媒体播放器
9
利用VB实现多媒体播放器
利用VB实现多媒体播放器
利用VB实现多媒体播放器
lngRet=PlaySound(strSound,0,&H20000)
EndIf
在“PrivateSubForm1_Load(,)Handles
”与“EndSub”之间增添代码:
为文件名赋初值
strSound=""
运行
达成所有的代码书写后,保留文件并运行程序。运行后的程序大概如图2所示,
利用VB实现多媒体播放器
利用VB实现多媒体播放器
利用VB实现多媒体播放器
10
利用VB实现多媒体播放器
利用VB实现多媒体播放器
利用VB实现多媒体播放器
图2
各个框框里的内容或许因人而异,但构造差不多相同,如果不选择文件,直接单击“播放”,则播放的我们所熟悉的Windows98启动的声音。自然你也能够选择自己喜欢的音乐文件进行播放,可是文件名必须是*.WAV。
利用VB实现多媒体播放器
利用VB实现多媒体播放器
利用VB实现多媒体播放器
11
利用VB实现多媒体播放器
利用VB实现多媒体播放器
利用VB实现多媒体播放器
实验2MP3播放器
增添控件
新建一个Windows应用程序,把Form1的“Text”属性改为“MP3Player”。
增添一个MainMenu控件,选中控件MainMenu1,点击鼠标右键,在弹出的菜
单里选择“编写菜单”进入菜单编写窗口,如图:
选中MenuItem1,点击鼠标右键,选择“新插入”,共插入4个MenuItem,它的属性如下表:
利用VB实现多媒体播放器
利用VB实现多媒体播放器
利用VB实现多媒体播放器
12
利用VB实现多媒体播放器
利用VB实现多媒体播放器
利用VB实现多媒体播放器
控件类型控件名称属性设置结果
MenuItemText文件
1
MenuItemText翻开文件
2
MainMenu
MenuItemText消除列表
3
MenuItemText退出
4
增添一个ListBox控件,把Name属性改为“List”,用于显示曲目列表。
增添3个Button控件,它们的属性如下表:
控件

最近更新

财务监管方案 7页

设计方案讲解技巧 6页

“科幻”动画短片创作的辅导研究的中期报告 1页

“90后”大学生道德状况及其教育研究的中期报.. 1页

客户经理办公基础知识 51页

2024年第三方医学实验室项目资金筹措计划书代.. 68页

VT公司全球ERP系统的规划和实施研究的中期报告.. 2页

UWB信号室内信道及波形非线性失真研究的中期报.. 2页

TDSCDMA基站增强型联合检测算法研究的任务书 2页

SiC薄膜的制备以及光电发射性质的中期报告 2页

2024年生物组期末工作总结6篇 18页

2024年理想与奋斗的作文8篇 11页

2024年猫的优秀教案通用5篇 22页

2024年物流助理日工作总结5篇 51页

2024年爱在我心中作文推荐6篇 10页

2024年灯的发明读后感8篇 9页

2024年溺爱的故事读后感8篇 8页

LTE系统中半静态软频率复用技术研究的中期报告.. 1页

LOBS边缘节点突发包组装和光板FPGA实现的任务.. 2页

LGR8在雌二醇致小鼠隐睾症的表达的中期报告 1页

LDPC码简化译码算法研究及性能分析的任务书 2页

2024年湖南常德安乡县事业单位招聘公告(314人.. 3页

2023年高职单独对口升学考试招生学前教育专业.. 22页

小学安全教育周活动总结 18页

幼儿园水宝宝用处多 27页

油烟管道清洗方案 5页

手术记录单包皮环切 2页

小学英语教学育人案例 3页

用Abaqus进行压电(Piezoelectric)悬臂梁模拟入.. 10页

奇门遁甲测彩法 27页