Это компонент используется для воспроизведения WAV файлы и системных звуков.

Звук воспроизводится асинхронном методом в фоне потока, и они могут быть воспроизведены в цикле. В этом примере есть два раздела.

Первый раздел предназначен для воспроизведения. WAV файлов.

Интерфейс представлен для выбора файла и воспроизведения, файл может быть воспроизведён синхронно, блокирует действия до окончания проигрывания файла, или асинхронно, для воспроизведения длинных звуков.

Повтор разрешается только с асинхронными воспроизведением.

Второй раздел используется для воспроизведения системных звуков. Выберите звук из ComboBox, и нажмите кнопку проиграть.

Поддерживаются не все форматы звуков. NET Framework 2.0.

Требования:

 Microsoft Visual Studio 2005

'############################################################
'#      Примеры, уроки и статьи для VB                      #
'#      http://XOD.IN.UA
'#                                                          #
'############################################################
 
Imports System.Media
Imports System.ComponentModel
Public Class Form1
    Private fileName As String
    ' Контрол SoundPlayer используется для проигрывания системных звуков и
    ' файлов формата wav.
    Private Sub browseButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles openfile.Click
        ' Вызываем диалог выбора файла
        Dim openFileDialog1 As New OpenFileDialog()
        openFileDialog1.InitialDirectory = fileName
        'Устанавливаем фильтр для выбора файла
        openFileDialog1.Filter = "WAV файлы (*.wav)|*.wav|Все файлы (*.*)|*.*"
        openFileDialog1.FilterIndex = 1
        openFileDialog1.RestoreDirectory = True
        If (openFileDialog1.ShowDialog() = DialogResult.OK) Then
            fileName = openFileDialog1.FileName
            filepath.Text = fileName.ToString
        End If
    End Sub
    Private Sub playSyncButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles playbtn.Click
        If fileName IsNot Nothing Then
            My.Computer.Audio.Play(fileName)
        End If
    End Sub
    Private Sub playAsyncButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles asynplaybtn.Click
        If loopCheckBox.Checked Then
            'повторить проигрывание только в асинхронном режиме.
            My.Computer.Audio.Play(fileName, AudioPlayMode.BackgroundLoop)
        Else
            'Проиграть файл в синхронном режиме
            If fileName <> "" Then
                My.Computer.Audio.Play(fileName, AudioPlayMode.Background)
            Else
                MsgBox("Укажите файл!", MsgBoxStyle.Exclamation)
            End If
        End If
    End Sub
    Private Sub stopAsyncPlayButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stopbtn.Click
        'Остановить проигрывание аудио.
        My.Computer.Audio.Stop()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        fileName = Environment.GetEnvironmentVariable("windir") + "media"
        sys_sound.Items.AddRange( _
            New String() {"Asterisk", "Beep", "Восклицание", "Ошибка"})

    End Sub

    Private Sub playbutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles playsys.Click
        Select Case sys_sound.Text
            Case "Asterisk"
                My.Computer.Audio.PlaySystemSound(System.Media.SystemSounds.Asterisk)
                Exit Select
            Case "Beep"
                My.Computer.Audio.PlaySystemSound(System.Media.SystemSounds.Beep)
                Exit Select
            Case "Восклицание"
                My.Computer.Audio.PlaySystemSound(System.Media.SystemSounds.Exclamation)
                Exit Select
            Case "Ошибка"
                My.Computer.Audio.PlaySystemSound(System.Media.SystemSounds.Hand)
                Exit Select
            Case Else
                Throw New ApplicationException("Неверный тип файла")
        End Select

    End Sub
End Class

    

Скачать исходный код примера