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

1. 掌握 VB 中需要经常接触的基本概念。

2. 练习使用 VB，尝试它的各项功能。要求掌握基本处理功能，学会使用控

1. 带有声卡、麦克风、音箱或耳机的多媒体计算机。

2. Windows XP 以上操作系统。

3. 工具软件 VB。

实验报告应包括实验名称、实验目的、实验内容、实验环境、操作方法和实验

步骤、实验数据记录和处理、实验结果分析、体会质疑建议。

本节主要介绍了利用 API 函数制作 WAV 音频播放器，首先来介绍一下

PlaySound() 函数。它的声明形式如下所示：

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA"(

ByVal lpszName As String , ByVal hModule As Integer , ByVal dwFlags As

Integer ) As Integer

字符串 lpszName 为声音文件的全名。

长整型 hModule 为程序模块的句柄，通常设置为 0 。

长整型 dwFlags 标志设置，在使用文件名时设置为 &20000 。

把 Label1 的 Text 属性改成“驱动器”来标识 DriveListBox 控件，把 Label2

的 Text 属性改成“目录”来标识 DirListBox 控件，把 Label3 的 Text 属性改

成“文件”来标识 FileListBox 控件，再把 FileListBox 控件的 Pattern 属

性设置为 *.WAV ，这样就能过滤掉其他类型的文件， Label4 的 Text 属性改

成“所选的声音文件全名”， Label5 的 Text 属性显示声音文件的完全路径。把

Button 的 Text 属性改成“播放”。

参见图 1

• 添加代码

双击 DriveListBox1 控件后进入代码编辑窗口，首先添加如下所示的程序声明

Friend Class Form1

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA"

( ByVal lpszName As String , ByVal hModule As Integer , ByVal dwFlags

As Integer ) As Integer

Dim strSound As String

函数声明

在“ Private Sub DriveListBox1_SelectedIndexChanged( ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles

DriveListBox1.SelectedIndexChanged ”与“ End Sub ”之间添加代码：

' 驱动器改变

DirListBox1.Path = DriveListBox1.Drive

双击 Label5 控件，添加代码：

strSound = DirListBox1.Path + "\" + FileListBox1.FileName

Label5.Text = strSound

Dim lngRet As Integer

If strSound = " " Then ' 不选择声音文件直接播放

lngRet = PlaySound("c:\Windows\Media\The Microsoft Sound", 0, &H20000)

Else ' 选择声音文件后播放

lngRet = PlaySound(strSound, 0, &H20000)

End If

在“ Private Sub Form1_Load( ByVal sender As System.Object, ByVal e

As System.EventArgs) Handles MyBase .Load ” 与 “ End Sub ” 之间添加代

码 ：