WD2000: 如何播放.wav 音效檔,使用巨集

重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。

按一下這裡查看此文章的英文版本:211842
本文已封存。本文係以「現狀」提供且不會再更新。
結論
在下列的 Microsoft Word 巨集範例中,示範了如何使用 Visual Basic 應用程式來播放.wav 音效檔。
其他相關資訊
Microsoft 僅,為了說明提供程式設計範例,不提供任何明示或默示的保證。這包括,但不限於適售性或適合某特定用途之默示擔保責任。本文假設您已熟悉使用我們所示範的程式設計語言以及建立和偵錯程序所使用的工具。Microsoft 技術支援工程師可以協助解釋特定程序的功能,但它們不會修改這些範例以提供附加功能或建構程序,以符合您特定需求。
如需有關如何使用本文中的範例程式碼的詳細資訊,按一下 [下面的文件編號,檢視 「 Microsoft 知識庫 」 中的發行項]:
212536OFF2000: 如何執行範例程式碼從眭舑恅梒

下列巨集會使用 Windows API GetWindowDirectory 擷取 Windows 目錄。然後會使用 Windows API sndPlaySound 播放 himes.wav 檔案位於該目錄中。
Private Declare Function sndPlaySound Lib "winmm.dll" Alias _"sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) _As LongPrivate Declare Function GetWindowsDirectoryA Lib "Kernel32" _(ByVal lpBuffer As String, ByVal nSize As Long) As Long				
注意: 將 私人宣告 陳述式中的 Visual Basic 應用程式編輯器] 視窗的一般宣告區段。
Sub PlayWav()   Dim sBuf As String   Dim cSize As Long   Dim retval As Long   Dim Windir As String   'Create a variable large enough to store the Windows path.   sBuf = String(255, 0)   cSize = 255   'Get Windows Directory   retval = GetWindowsDirectoryA(sBuf, cSize)   'Strip buffer from Windows directory   Windir = Left(sBuf, retval)   'Load and Play the sound.   N = sndPlaySound(Windir + "\Media\Chimes.wav", 0)End Sub				
9.0 vb vba vbe offcon wordcon

警告:本文為自動翻譯

內容

文章識別碼:211842 - 最後檢閱時間:02/23/2014 11:06:21 - 修訂: 3.2

Microsoft Word 2000 Standard Edition

  • kbnosurvey kbarchive kbmt kbdtacode kbhowto kbmacro kbprogramming kbsound KB211842 KbMtzh
意見反應