程式師世界 >> 編程語言 >> Visual Basic語言 >> VB綜合教程 >> VB中播放WAV文件

VB中播放WAV文件

編輯：VB綜合教程

在多媒體軟件的開發設計中，聲音是一個相當重要的多媒體元素，優秀的聲音設計會為多媒體軟件增色不少。而WAV格式的聲音文件是一種最常用的聲音文件格式，也最容易得到，比如通過Win95中的“錄音機”程序，利用麥克風就可以非常簡單地錄制WAV文件。VB是一個相當經典的多媒體開發的工具，在VB中播放WAV文件的方法主要有這樣幾種。
　　
　　一、利用OLE控件
　　建一窗體，用鼠標選擇OLE控件，在窗體上拖出OLE區域，在圖一的窗口中選擇新建和聲音然後按確定鍵就完成了在窗口中添加OLE控件，如圖二。
　　這樣就可以在OLE控件的ResourceDoc屬性中選擇所要播放的文件，程序運行時雙擊OLE控件即可。
　　在實際的程序設計當中，往往需要單擊某個圖標或按鈕來控制聲音的播放，其實現方法是這樣的：首先將OLE控件的VISIBLE屬性設置為FALSE,然後在圖標或按鈕的單擊事件中編寫如下的程序：
　　PrivateSubContol_Click()
　　OLE1.Action=7
　　EndSub
　　二、利用MMControl控件
　　VB5.0提供了許多設計多媒體的控件，在PROJECT/COMPENENTS/CONTROLS中選擇MMControls控件，窗體上就出現了多媒體控件對象，在這個對象上有不同的圖形功能標識，其名稱從左到右分別是Pre、Next、Play、Pause、Back、Step、Stop、Record、Eject如圖三。
　　這個多媒體控件可以播放多種格式的聲音，播放WAV格式聲音文件的程序代碼
　　PrivateSubform_load()
　　MMControl1.DeviceType="waveaudio"
　　MMControl1.filename="c:win95mediading.wav"
　　MMControl1.Command="open"
　　EndSub
　　'以下是為圖形標識Play事件編寫的代碼
　　PrivateSubMMControl_playclick(cancelAsInteger)
　　MMControl1.Command="play"
　　EndSub
　　當運行這個程序時，MMControl控件中的Play鍵被激活，點取此按鈕即可播放ding.wav文件。
　　在實際的軟件設計當中，更多的情況是鼠標點擊按鈕或圖標來控制聲音的播放,其實現方法是這樣的：首先將MMControl控件的VISIBLE屬性設置為FALSE,然後在圖標或按鈕的單擊事件中編寫如下的程序：
　　PrivateSubControl1_Click()
　　MMControl1.Command="play"
　　EndSub
　　運行程序時單擊相用的按鈕或圖標，WAV文件照樣可以播放。用自行設計的按鈕或圖標取代多媒體控件中的固定按鈕，可設計出更加靈活方便的用戶界面。
　　三、利用VB的API函數
　　在窗體的DECLARATIONS(聲明)中輸入如下代碼：
　　PrivateDeclareFunctionsndPlaySoundLib"winmm.dll"Alias"sndPlaySoundA"(ByVal_lpszSoundNameAsString,ByValuFlagsAsLong)AsLong
　　'lpszSoundName是一個字符串變量，表示一個WAV格式的文件名。
　　'uFlags用於設定播放狀態的各種選項。參數值為0X00時，實現同步播放，參數值為0X01時實現非同步播放。
　　在命令按鈕的單擊事件中輸入如下代碼：
　　PrivateSubCommand1_Click()
　　DimplaysAsLong
　　plays=sndPlaySound(“E:WINDOWSMEDIADING.WAV",＆H0)
　　EndSub
　　運行時單擊命令按鈕即可播放WAV文件。