16、Visual Basic 6.0 多媒体与窗体操作全解析

Visual Basic 6.0 多媒体与窗体操作全解析

1. 多媒体文件播放

在开发应用程序时，添加多媒体元素能极大提升用户体验。下面将介绍如何在应用中播放声音文件、视频文件以及音频 CD。

1.1 播放声音（WAV）文件

有两种简单的方法可以播放声音文件，分别是使用 Windows 提供的 mciExecute API 函数和 Visual Basic 自带的多媒体控件。

• mciExecute 函数

Option Explicit
Private Declare Function mciExecute _
Lib "winmm.dll" ( _
    ByVal lpstrCommand As String _
) As Long
Private Sub Form_Click()
    Dim intX
    intX = mciExecute("Play C:\Windows\Media\Office97\whoosh.wav")
    'Change filename to name of your sample WAV file
End Sub

操作步骤：
1. 创建一个新的项目，添加以上代码到空白窗体。
2. 运行应用程序，点击窗体任意位置即可播放声音。
3. 注意要将 mciExecute 命令中的路径和文件名改为系统中实际存在的 WAV 文件。

• 多媒体控件