I tried to load mp3 from Resource and it success. But I want loop playback I search around and found nothing... Here's the code:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim mp3 As MemoryStream = New MemoryStream(My.Resources.RequiemAtDusk)
        Dim read As Mp3FileReader = New Mp3FileReader(mp3)
        Dim waveOut As WaveOut = New WaveOut
        waveOut.Init(read)
        waveOut.Play()
    End Sub

CodePudding user response：

So I did it:

Public Class LoopStream
        Inherits WaveStream

        Private sourceStream As WaveStream

        Public Sub New(ByVal sourceStream As WaveStream)
            Me.sourceStream = sourceStream
            Me.EnableLooping = True
        End Sub

        Public Property EnableLooping As Boolean

        Public Overrides ReadOnly Property WaveFormat As WaveFormat
            Get
                Return sourceStream.WaveFormat
            End Get
        End Property

        Public Overrides ReadOnly Property Length As Long
            Get
                Return sourceStream.Length
            End Get
        End Property

        Public Overrides Property Position As Long
            Get
                Return sourceStream.Position
            End Get
            Set(ByVal value As Long)
                sourceStream.Position = value
            End Set
        End Property

        Public Overrides Function Read(ByVal buffer As Byte(), ByVal offset As Integer, ByVal count As Integer) As Integer
            Dim totalBytesRead As Integer = 0

            While totalBytesRead < count
                Dim bytesRead As Integer = sourceStream.Read(buffer, offset   totalBytesRead, count - totalBytesRead)

                If bytesRead = 0 Then

                    If sourceStream.Position = 0 OrElse Not EnableLooping Then
                        Exit While
                    End If

                    sourceStream.Position = 0
                End If

                totalBytesRead  = bytesRead
            End While

            Return totalBytesRead
        End Function
    End Class

Loopin MP3 from resources time!

Private waveOut As WaveOut

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If waveOut Is Nothing Then
            Dim mp3file As MemoryStream = New MemoryStream(My.Resources.RequiemAtDusk) '' You can use your MP3 file here
            Dim reader As Mp3FileReader = New Mp3FileReader(mp3file)
            Dim [loop] As LoopStream = New LoopStream(reader)
            waveOut = New WaveOut()
            waveOut.Init([loop])
            waveOut.Play()
        Else
            waveOut.[Stop]()
            waveOut.Dispose()
            waveOut = Nothing
        End If
    End Sub