VB中播放声音文件

在 某 些 情 况 下， 例 如 程 序 员 正 在 编 写 一 个 游 戏， 或 是 将
要 进 行 一 项 非 常 冗 长 无 聊 的 过 程， 可 以 通 过 播 放 音 乐 来
增 加 游 戏 的 声 光 效 果 或 是 减 少 漫 长 的 等 待 所 带 来 的 困 倦。
本 文 介 绍 如 何 在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， 顾 名 思 义，
它 是 一 个 命 令 字 符 串， 用 于 表 明 对 声 音 文 件 播 放 的 命 令，
例 如， 希 望 完 整 播 放 声 音 文 件， 则 该 字 符 串 就 是 字 符 串損
lay" 加 上 声 音 文 件 的 路 径 以 及 文 件 名 称， 如 下 所 示**

---- dim returnvalue as long
---- returnsoundvalue = mciexecute("play c:/win95/media/canyon.mid")

---- 如 果 希 望 对 声 音 文 件 的 部 分 进 行 播 放， 可 以 使 用from...
to... 语 句 格 式， 例 如 若 要 播 放canyon.mid 文 件 的10 毫 秒 到100
毫 秒 的 部 分， 可 以 使 用 如 下 的 语 句：

---- dim returnvalue as long
---- returnsoundvalue = mciexecute("play c:/win95/media/canyon.mid from
10 to 100")
---- mciexecute 函 数 也 可 以 用 来 对wav 文 件 进 行 播 放， 方 法 同
播 放midi 一 样。

样 例 程 序

---- 1. 在visual basic 中 开 始 一 个 新 的 项 目， 采 用 缺 省 的 方 法
建 立form1。
---- 2. 将 如 下 的 声 明 语 句 添 加 到form1 的 通 常 声 明 部 分 中（
注 意 每 个 声 明 语 句 需 要 被 书 写 在 一 行 内）：

---- private declare function sndplaysound lib "winmm.dll" alias "sndPlaySoundA" (byval lpszsoundname as string, byval uflags as long) as
long

---- const snd_sync = &h0
---- const snd_async = &h1
---- const snd_nodefault = &h2
---- const snd_memory = &h4
---- const snd_alias = &h10000
---- const snd_filename = &h20000
---- const snd_resource = &h40004
---- const snd_alias_id = &h110000
---- const snd_alias_start = 0
---- const snd_loop = &h8
---- const snd_nostop = &h10
---- const snd_valid = &h1f
---- const snd_nowait = &h2000
---- const snd_validflags = &h17201f
---- const snd_reserved = &hff000000
---- const snd_type_mask = &h170007

---- private declare function mciexecute lib "winmm.dll" alias "
mciexecute" (byval lpstrcommand as string) as long

---- 3. 在form1 上 添 加 一 个 文 本 框 控 件， 采 用 缺 省 的 方 法 建
立text1。 将 它 的caption 属 性 设 置 为null。

---- 4. 在form1 上 添 加 一 个 命 令 按 钮 控 件， 采 用 缺 省 的 方 法
建 立command1。 将 它 的caption 属 性 设 置 为" 使 用sndplaysound 函 数
敗*

---- 5. 在form1 上 添 加 一 个 命 令 按 钮 控 件， 采 用 缺 省 的 方 法
建 立command2。 将 它 的caption 属 性 设 置 为" 使 用mciexecute 函 数敗*

---- 6. 将 如 下 的 代 码 添 加 到command1 的 单 击 事 件 中：


private sub command1_click()
dim returnvalue as long
text1.text = " 使 用sndplaysound 函 数 播 放tada.wav 文 件。"
returnvalue = sndplaysound("c:/win95/media/tada.wav", snd_sync)
end sub


---- 7. 将 如 下 的 代 码 添 加 到command2 的 单 击 事 件 中：


private sub command2_click()
dim returnvalue as long
text1.text = " 使 用mciexecute 函 数 播 放canyon.mid 文 件。"
returnsoundvalue = mciexecute
("play c:/win95/media/canyon.mid from 10 to 100")
end sub


---- 通 过 按 下f5 键 来 执 行 样 例 程 序。 单 击" 使 用sndplaysound 函
数" 命 令 按 钮 则 使 用sndplaysound 函 数 来 播 放c:/win95/media 目 录
下 面 的tada.wav 声 音 文 件。 单 击" 使 用mciexecute 函 数" 则 使 用
mciexecute 函 数 来 播 放c:/win95/media 目 录 下 面 的canyon.mid 文 件
的10 毫 秒 到100 毫 秒 的 部 分。