播放声音文件
　
-在 某 些 情 况 下， 例 如 程 序 员 正 在 编 写 一 个 游 戏， 或 是 将
要 进 行 一 项 非 常 冗 长 无 聊 的 过 程， 可 以 通 过 播 放 音 乐 来
增 加 游 戏 的 声 光 效 果 或 是 减 少 漫 长 的 等 待 所 带 来 的 困 倦。
本 文 介 绍 如 何 在Microsoft Visual Basic 中 对 声 音 文 件 进 行 播
放。

播 放 声 音 文 件

---- 在Microsoft Visual Basic 中 进 行 多 媒 体 音 乐 的 播 放 是 一 件
非 常 轻 松 的 事 情。 在Microsoft Windows 系 统 中 支 持 的 声 音 文 件
有WAV 文 件 和MIDI 文 件， 通 常 使 用Windows 应 用 程 序 编 程 接 口（
API） 函 数mciExecute 函 数 可 以 对MIDI 文 件 进 行 播 放。 而 使 用API
函 数sndPlaySound 则 可 以 对WAV 播 放 文 件 进 行 播 放， 当 然， 你 也
可 以 使 用mciExecute 函 数 来 播 放WAV 文 件。

---- 为 了 播 放WAV 文 件， 你 需 要 在 你 的 程 序 窗 体 的 通 用 声 明
部 分 中， 或 是 标 准 模 块 中 添 加 如 下 的 声 明 语 句：

---- Private Declare Function sndPlaySound Lib "winmm.dll" Alias "
sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As
Long

---- 以 及 如 下 的 标 识 常 量：

---- Public Const SND_SYNC = &H0
---- Public Const SND_ASYNC = &H1
---- Public Const SND_NODEFAULT = &H2
---- Public Const SND_MEMORY = &H4
---- Public Const SND_ALIAS = &H10000
---- Public Const SND_FILENAME = &H20000
---- Public Const SND_RESOURCE = &H40004
---- Public Const SND_ALIAS_ID = &H110000
---- Public Const SND_ALIAS_START = 0
---- Public Const SND_LOOP = &H8
---- Public Const SND_NOSTOP = &H10
---- Public Const SND_VALID = &H1F
---- Public Const SND_NOWAIT = &H2000
---- Public Const SND_VALIDFLAGS = &H17201F
---- Public Const SND_RESERVED = &HFF000000
---- Public Const SND_TYPE_MASK = &H170007

---- sndPlaySound 函 数 需 要 两 个 参 数， 第 一 个 参 数soundfilename
是 要 播 放 的WAV 文 件 的 名 称。 第 二 个 参 数 是 一 个 表 明 播 放
方 式 的 标 识 常 量， 其 定 义 的 值 如 上 所 示， 通 常 所 使 用 的 标
识 意 义 如 下：

---- SND_SYNC 播 放WAV 文 件， 播 放 完 毕 后 将 控 制 转 移 回 你 的 应
用 程 序 中。
---- SND_ASYNC 播 放WAV 文 件， 然 后 将 控 制 立 即 转 移 回 你 的 应
用 程 序 中， 而 不 管 对WAV 文 件 的 播 放 是 否 结 束。
---- SND_NODEFAULT 不 要 播 放 缺 省 的WAV 文 件， 以 免 发 生 某 些 意
外 的 错 误。
---- SND_MEMORY 播 放 以 前 已 经 加 载 到 内 存 中 的WAV 文 件。
---- SND_LOOP 循 环 播 放WAV 文 件。
---- SND_NOSTOP 在 开 始 播 放 其 它 的WAV 文 件 之 前， 需 要 完 成 对
本WAV 文 件 的 播 放。

---- 注 意：SND_LOOP 标 识 通 常 需 要 同SND_ASYNC 共 同 使 用， 也 即
在 两 个 标 识 之 间 添 加 与 播 放 符， 以 免 在 对WAV 文 件 进 行 播
放 的 时 候 将 系 统 挂 起。

---- 为 了 播 放MIDI 文 件， 你 需 要 在 你 的 程 序 窗 体 的 通 用 声
明 部 分 中， 或 是 标 准 模 块 中 添 加 如 下 的 声 明 语 句：

---- Private Declare Function mciExecute Lib "winmm.dll" Alias "
mciExecute" (ByVal lpstrCommand As String) As Long

---- mciExecute 函 数 只 需 要 一 个 参 数，CommandString， 顾 名 思 义，
它 是 一 个 命 令 字 符 串， 用 于 表 明 对 声 音 文 件 播 放 的 命 令，
例 如， 希 望 完 整 播 放 声 音 文 件， 则 该 字 符 串 就 是 字 符 串