文档介绍:利用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控件,它们的属性如下表:
控件