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