利用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控件，它们的属性如下表：
控件