播放聲音文件 
　 
-在 某 些 情 況 下， 例 如 程 序 員 正 在 編 寫 一 個 游 戲， 或 是 將 
要 進 行 一 項 非 常 冗 長 無 聊 的 過 程， 可 以 通 過 播 放 音 樂 來 
增 加 游 戲 的 聲 光 效 果 或 是 減 少 漫 長 的 等 待 所 帶 來 的 困 倦。
本 文 介 紹 如 何 在Microsoft Visual Basic 中 對 聲 音 文 件 進 行 播 
放。 

播 放 聲 音 文 件 

---- 在Microsoft Visual Basic 中 進 行 多 媒 體 音 樂 的 播 放 是 一 件 
非 常 輕 松 的 事 情。 在Microsoft Windows 系 統(tǒng) 中 支 持 的 聲 音 文 件 
有WAV 文 件 和MIDI 文 件， 通 常 使 用Windows 應(yīng) 用 程 序 編 程 接 口（
API） 函 數(shù)mciExecute 函 數(shù) 可 以 對MIDI 文 件 進 行 播 放。 而 使 用API 
函 數(shù)sndPlaySound 則 可 以 對WAV 播 放 文 件 進 行 播 放， 當(dāng) 然， 你 也 
可 以 使 用mciExecute 函 數(shù) 來 播 放WAV 文 件。 

---- 為 了 播 放WAV 文 件， 你 需 要 在 你 的 程 序 窗 體 的 通 用 聲 明 
部 分 中， 或 是 標(biāo) 準(zhǔn) 模 塊 中 添 加 如 下 的 聲 明 語 句： 

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

---- 以 及 如 下 的 標(biāo) 識 常 量： 

---- 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 函 數(shù) 需 要 兩 個 參 數(shù)， 第 一 個 參 數(shù)soundfilename 
是 要 播 放 的WAV 文 件 的 名 稱。 第 二 個 參 數(shù) 是 一 個 表 明 播 放 
方 式 的 標(biāo) 識 常 量， 其 定 義 的 值 如 上 所 示， 通 常 所 使 用 的 標(biāo) 
識 意 義 如 下： 

---- SND_SYNC 播 放WAV 文 件， 播 放 完 畢 后 將 控 制 轉(zhuǎn) 移 回 你 的 應(yīng) 
用 程 序 中。 
---- SND_ASYNC 播 放WAV 文 件， 然 后 將 控 制 立 即 轉(zhuǎn) 移 回 你 的 應(yīng) 
用 程 序 中， 而 不 管 對WAV 文 件 的 播 放 是 否 結(jié) 束。 
---- SND_NODEFAULT 不 要 播 放 缺 省 的WAV 文 件， 以 免 發(fā) 生 某 些 意 
外 的 錯 誤。 
---- SND_MEMORY 播 放 以 前 已 經(jīng) 加 載 到 內(nèi) 存 中 的WAV 文 件。 
---- SND_LOOP 循 環(huán) 播 放WAV 文 件。 
---- SND_NOSTOP 在 開 始 播 放 其 它 的WAV 文 件 之 前， 需 要 完 成 對 
本W(wǎng)AV 文 件 的 播 放。 

---- 注 意：SND_LOOP 標(biāo) 識 通 常 需 要 同SND_ASYNC 共 同 使 用， 也 即 
在 兩 個 標(biāo) 識 之 間 添 加 與 播 放 符， 以 免 在 對WAV 文 件 進 行 播 
放 的 時 候 將 系 統(tǒng) 掛 起。 

---- 為 了 播 放MIDI 文 件， 你 需 要 在 你 的 程 序 窗 體 的 通 用 聲 
明 部 分 中， 或 是 標(biāo) 準(zhǔn) 模 塊 中 添 加 如 下 的 聲 明 語 句： 

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

---- mciExecute 函 數(shù) 只 需 要 一 個 參 數(shù)，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 函 數(shù) 也 可 以 用 來 對WAV 文 件 進 行 播 放， 方 法 同 
播 放MIDI 一 樣。 

樣 例 程 序 

---- 1. 在Visual Basic 中 開 始 一 個 新 的 項 目， 采 用 缺 省 的 方 法 
建 立Form1。 
---- 2. 將 如 下 的 聲 明 語 句 添 加 到Form1 的 通 常 聲 明 部 分 中（ 
注 意 每 個 聲 明 語 句 需 要 被 書 寫 在 一 行 內(nèi)）： 

---- 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 屬 性 設(shè) 置 為NULL。 

---- 4. 在Form1 上 添 加 一 個 命 令 按 鈕 控 件， 采 用 缺 省 的 方 法 
建 立Command1。 將 它 的Caption 屬 性 設(shè) 置 為" 使 用sndPlaySound 函 數(shù)
敗* 

---- 5. 在Form1 上 添 加 一 個 命 令 按 鈕 控 件， 采 用 缺 省 的 方 法 
建 立Command2。 將 它 的Caption 屬 性 設(shè) 置 為" 使 用mciExecute 函 數(shù)敗* 

---- 6. 將 如 下 的 代 碼 添 加 到Command1 的 單 擊 事 件 中： 


Private Sub Command1_Click()
Dim ReturnValue As Long
Text1.Text = " 使 用sndPlaySound 函 數(shù) 播 放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 函 數(shù) 播 放Canyon.mid 文 件。"
ReturnSoundValue = mciExecute
("play C:\WIN95\MEDIA\CANYON.MID from 10 to 100")
End Sub


---- 通 過 按 下F5 鍵 來 執(zhí) 行 樣 例 程 序。 單 擊" 使 用sndPlaySound 函 
數(shù)" 命 令 按 鈕 則 使 用sndPlaySound 函 數(shù) 來 播 放C:\WIN95\MEDIA 目 錄 
下 面 的TADA.WAV 聲 音 文 件。 單 擊" 使 用mciExecute 函 數(shù)" 則 使 用
mciExecute 函 數(shù) 來 播 放C:\WIN95\MEDIA 目 錄 下 面 的CANYON.MID 文 件 
的10 毫 秒 到100 毫 秒 的 部 分。