Автор:
Интернет | добавлено: 25.04.2011, 11:48 | просмотров: 5669 (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
25 мая 2011, 23:06