VB.NET聲音播放三點要素概述
自從VB.NET推出后，其功能特點極大的吸引了廣發開發人員的眼球。我們可以在實際應用中去發現其的好處。下面就先來從VB.NET聲音播放來體驗期功能的強大。由VB6升級為.NET后，有些人不清楚聲音的處理，比如程序出錯的時候，自定義一個聲音播放，或者程序的背景音樂、包括游戲音樂等等。下面介紹幾種在VB.NET中計較簡單可以實現的方案：#t#
VB.NET聲音播放1． Beep
最簡單的一種方法，通過計算機的揚聲器發出聲響， 聲響的音高與持續時間取決于硬件和系統軟件，從而隨計算機不同而不同。
Beepg跟Msgbox等方法位于Microsoft.VisualBasic.Interaction 中，一般默認系統會自動加載。調用很簡單，看下面的例子。
- Dim I As IntegerFor I = 1 To 100
- ' Loop 100 times. Beep()
- ' Sound a tone.Next I
VB.NET聲音播放2． 用Win32 API PlaySound
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 =
&H20000Const- 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)- ' 以同步的方式調用系統
啟動時候的聲音
VB.NET聲音播放3． 調用媒體播放器控件
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
總結：雖然VB.NET比VB6改變了很多，包括真正的OOP，多線程等等，但是總歸還是跟VB有很多聯系，建議大家碰到難于解決的問題的時候，試一下以前的處理方式，一般都能奏效
