最近要用.Net 做的簡單的小AP，發現元件很多但不知如何播放MP3，原本預設提供的元件只能播放WAV檔，去找了一下資料，顯示於下面，方便自己學習及提供給大家
目前都是要透過winmm.dll 的library來達到，使用方式還算容易啦，就照copy & paste 就可以執行啦!!
Public Class Form1
' 宣告 API
Private Declare Function mciSendStringA Lib “winmm.dll” _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
Private Sub Button1_Click(ByVal s As Object, ByVal e As EventArgs) Handles Button1.Click
PlayMidiFile(“C:\死了都要愛.mp3”) ' 播放 MP3 音樂
'或
'PlayMidiFile(“C:\頑皮豹.mid”) ' 播放 MIDI 音樂
End Sub
Private Sub Button2_Click(ByVal s As Object, ByVal e As EventArgs) Handles Button2.Click
StopMidi() ' 停止播放
End Sub
Private Sub Button3_Click(ByVal s As Object, ByVal e As EventArgs) Handles Button3.Click
PauseMidi() ' 暫停播放
End Sub
Private Sub Button4_Click(ByVal s As Object, ByVal e As EventArgs) Handles Button4.Click
ContinueMidi() ' 繼續播放
End Sub
Private Function PlayMidiFile(ByVal MusicFile As String) As Boolean
If System.IO.File.Exists(MusicFile) Then
mciSendStringA(“stop music”, “”, 0, 0)
mciSendStringA(“close music”, “”, 0, 0)
mciSendStringA(“open ” & MusicFile & ” alias music”, “”, 0, 0)
PlayMidiFile = mciSendStringA(“play music”, “”, 0, 0) = 0
End If
End Function
Private Function StopMidi() As Boolean
StopMidi = mciSendStringA(“stop music”, “”, 0, 0) = 0
mciSendStringA(“close music”, “”, 0, 0)
End Function
Private Function PauseMidi() As Boolean
Return mciSendStringA(“pause music”, “”, 0, 0) = 0
End Function
Private Function ContinueMidi() As Boolean
Return mciSendStringA(“play music”, “”, 0, 0) = 0
End Function
End Class
資料來源:http://blog.blueshop.com.tw/hammerchou/archive/2008/10/24/57452.aspx
原本以為上面的範例不能背景重複播放音樂，但是小弟的程式有誤，一切正常
Imports System
Imports System.Runtime.InteropServices
Imports System.Resources
Imports System.IO
Public Class Sound
Private Shared SND_ASYNC As Integer = 1
Private Shared SND_MEMORY As Integer = 4
Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As Byte(), ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer
Public Shared Sub PlayWavResource(ByVal wav As String)
' get the namespace
Dim strNameSpace As String = System.Reflection.Assembly.GetExecutingAssembly().GetName().Name.ToString()
' get the resource into a stream
Dim resourceStream As Stream = System.Reflection.Assembly.GetExecutingAssembly().GetManifestResourceStream(strNameSpace + "." + wav)
If resourceStream Is Nothing Then Exit Sub
' bring stream into a byte array
Dim wavData As Byte()
ReDim wavData(CInt(resourceStream.Length))
resourceStream.Read(wavData, 0, CInt(resourceStream.Length))
' play the resource
PlaySound(wavData, 0, SND_ASYNC Or SND_MEMORY)
End Sub
End Class
http://www.gringod.com/2005/01/21/playing-a-wav-from-a-resource-in-vbnet/
使用MP3的音樂是比播WAV麻煩，包含這些資源檔封裝後是不可以播放的~真是太可惜了(有可能是小弟才疏學淺，如其它大大知道，再和小弟說一下)
仔細想想，十幾年沒碰VB啦~~(幾年前還有用C寫一個小程式呢)
近期留言