[VB.NET] Playing Music Mp3



Hôm nay mình xin giới thiệu cho các bạn một ứng dụng mới của mình :). Nói là mới chứ mã nguồn của ứng dụng này được share rất nhiều trên mạng :) và chủ yếu là mình edit lại như thế nào cho tiên với mục đích cá nhân thôi :P.
Hướng dẫn sơ bộ cho những bạn mới vào nghề.

Để thêm được "WINDOWN MEDIA PLAYER" thì các bạn click chuột phải vào bảng công cụ "TOOLBOX" và chọn "CHOOSE ITEMS"


Khi các bạn làm xong các bước trên thì việc còn lại các bạn chỉ còn tìm "WINDOW MEDIA PLAYER" nữa thôi :P


Bên dưới là đoạn code mình phát triển thêm :D

Public Class Form1
    Private Sub OpenFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenFileToolStripMenuItem.Click



        Const DATA_FILE_EXTENSION As String = ".mp3"
        Dim dlgFileDialog As New OpenFileDialog
        With dlgFileDialog
            .Filter = DATA_FILE_EXTENSION & _
            " files (*" & DATA_FILE_EXTENSION & "|*" & DATA_FILE_EXTENSION
            .FilterIndex = 1
            .RestoreDirectory = True
            If .ShowDialog() = DialogResult.OK Then
                'Play the sound file
                Me.AxWindowsMediaPlayer1.URL = dlgFileDialog.FileName
            End If

        End With
    End Sub

    Private Sub TestToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TestToolStripMenuItem.Click
        ' OpenFileDialog1.FileName = ""
        'OpenFileDialog1.Multiselect = True
        'OpenFileDialog1.ShowDialog()

        '        ListBox1.Items.AddRange(OpenFileDialog1.FileNames)

    End Sub
    'Đoạn code bên dưới là mình phát triển thêm để add music hàng loạt nhé :D
    Private Sub PlayToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayToolStripMenuItem.Click
        ''play selected item inside the listbox
        '    AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem
        '   AxWindowsMediaPlayer1.Ctlcontrols.play()
    End Sub
    Private Sub AxWindowsMediaPlayer1_PlayStateChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
        'when music stopped move to next item from the listbox and autoplay
        '   If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
        'If ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
        'ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1

        '        End If

        'End If
    End Sub
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
    End Sub
End Class

Sơ lượt nó là như thế :D

VIDEO DEMO:




Bạn nào chưa hiển lắm thì có thể Download Source bên dưới để tìm hiểu rỏ nhé :)


Related Posts