PlaySound位於"winmm.dll"中,可以根據輸入參數的不同,播放WAV類型的音樂。在VB.NET中調用跟VB6中差不多:
先聲明:
Private Declare Auto Function PlaySound Lib "winmm.dll" (ByVal lpszSoundName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer
Const SND_FILENAME As Integer = &H20000
Const SND_ALIAS As Integer = &H10000
Const SND_SYNC As Integer = &H0
具體還有很多常量,不壹壹列舉,下面是播放壹個wav文件的例子
Dim mstrfileName As String = "c:\eagle2.wav"
PlaySound(mstrfileName, 0, SND_FILENAME)
註意上面的播放是非同步的,就是說它並不會播放完畢才結束。如果把上面的代碼寫在壹個Button.Click的事件處理程序中,第二次點擊的時候它會打斷第壹次的播放,重新開始。
當然我們也可以調用系統的聲音:
PlaySound("SystemStart", 0, SND_ALIAS Or SND_SYNC)
' 以同步的方式調用系統啟動時候的聲音。
2. 調用媒體播放器控件
VB.NET中並沒有提供媒體播放器的.NET組件,沒辦法我們還是調用以前Com組件Windows Media Player。當然除了聲音外,還可以播放視頻文件。
首先把媒體播放器控件加到工具欄中,調用還是簡單的寫壹下吧:)
Private Sub playMediaFile(ByVal mediaFileName As String)
With MediaPlayer1
.Stop()
.FileName = "c:\mp3\愛不愛我.mp3"
.Play()
End With
End Sub