Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Интернет -

Visual Basic .NET - Звук

Все примеры / Мультимедиа / Звук

Воспроизведение mp3 с использованием DirectX

Автор: Интернет | добавлено: 25.04.2011, 11:48 | просмотров: 5312 (1+) | комментариев: 3 | рейтинг: *x6
Пример проигрывания mp3-файлов на Visual Basic .NET с использованием Microsoft.DirectX.AudioVideoPl ayback.Audio.

Инструкции

Для работы примера необходимо добвать в проект ссылку на сборку Microsoft.DirectX.AudioVideoPl ayback

Код

Dim WithEvents PLR As Microsoft.DirectX.AudioVideoPlayback.Audio
 
'Кнопка для выбора mp3-файла
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using FBD As New OpenFileDialog
            With FBD
                .Filter = "Аудио|*.mp3"
                .Multiselect = True
                .InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
            End With
            If FBD.ShowDialog = Windows.Forms.DialogResult.OK Then
                If MsgBox("Очистить список предварительно?", MsgBoxStyle.OkCancel Or MsgBoxStyle.Question) = MsgBoxResult.Ok Then
                    Me.ListBox1.ClearSelected()
                    Me.ListBox1.Items.AddRange(FBD.FileNames)
                Else
                    Me.ListBox1.Items.AddRange(FBD.FileNames)
                End If
            End If
        End Using
End Sub
 
'кнопка воспроизведения mp3-файла
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If PLR Is Nothing = False Then PLR.Stop()
        PLR = New Microsoft.DirectX.AudioVideoPlayback.Audio(Me.ListBox1.SelectedItem)
        PLR.Play()
        Me.HScrollBar1.Maximum = PLR.Duration
End Sub

'пауза 
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        PLR.Pause()
End Sub
 
'остановка
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        PLR.Stop()
End Sub
Об авторе

Интернет

Анонимный пользователь сети Интернет. Автор великого множества кодов и программных решений. Никого никогда не видел в лицо этого пользователя, ходят слухи, что он многоликий, и может одновременно находиться в разных частях света.
Интернет
Последние комментарии (всего: 3)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.

PLR = New Microsoft.DirectX.AudioVideoPl ayback.Audio(Me.ListBox1.Selec tedItem) VS2008 ссылается на эту строку и говорит ошибка,это приведет к зависанию приложения! Как быть?
> Как быть?

Это зависит от текста ошибки :-)

Для работы примера необходимо добвать в проект ссылку на сборку Microsoft.DirectX.AudioVideoPl ayback (меню Проект -> Добавить ссылку).

Возможно Me.ListBox1.SelectedItem содержит данные отличные от текста, там должен быть путь к mp3-файлу.
Вот ёлпер по теме, «Как добавить сборку в проект?» http://yolper.ru/49
Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики