AudioPlayer Class

Public Class AudioPlayer
	Inherits NativeWindow
	Implements IDisposable

Dim instance As AudioPlayer

public ref class AudioPlayer : public NativeWindow, 
	IDisposable

type AudioPlayer = 
    class
        inherit NativeWindow
        interface IDisposable
    end

No code example is currently available or this language may not be supported.

Dim player As New AudioPlayer

Sub Button_LoadFile_Click() Handles Button_LoadFile.Click

    If Not player.IsFileLoaded Then
        player.LoadFile("C:\File.wav")
    End If

End Sub

Sub Button_Play_Click() Handles Button_Play.Click

    If Not (player.Status = PlayerStatus.Playing) Then
        player.Play(AudioPlayMode.Background)
    End If

End Sub

Sub Button_Stop_Click() Handles Button_Stop.Click

    If Not (player.Status = PlayerStatus.Stopped) Then
        player.Stop()
    End If

End Sub

Sub Button_PauseResume_Click() Handles Button_PauseResume.Click

    If (player.Status = PlayerStatus.Playing) Then
        player.Pause()

    ElseIf (player.Status = PlayerStatus.Paused) Then
        player.Resume()

    End If

End Sub

Private Sub Button_SeekBackward_Click(sender As Object, e As EventArgs) Handles Button_SeekBackward.Click

    Dim currentPosition As Long = CLng(player.Position.TotalMilliseconds)

    If ((currentPosition - 5000) <= 0) Then
        player.Seek(0)

    Else
        player.Seek(currentPosition - 5000)

    End If

End Sub

Private Sub Button_SeekForward_Click(sender As Object, e As EventArgs) Handles Button_SeekForward.Click

    Dim currentPosition As Long = CLng(player.Position.TotalMilliseconds)

    If Not ((currentPosition + 5000) >= player.Length) Then
        player.Seek(currentPosition + 5000)
    End If

End Sub

Sub Button_UnloadFile_Click() Handles Button_UnloadFile.Click

    If player.IsFileLoaded Then
        player.UnLoadFile()
    End If

End Sub

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.