2020年8月6日 星期四

vb.net 將程式路徑的所有MP3加入 Media Player 的播放清單裡 [Add all MP3 to PlayList] 

1
2
3
Imports System
Imports System.IO
Imports WMPLib




 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim DirInfo As New IO.DirectoryInfo(Application.StartupPath)
        Dim FileInfo As IO.FileInfo() = DirInfo.GetFiles("*.mp3", SearchOption.AllDirectories)
        Dim FileName As IO.FileInfo

        Dim Playlist As IWMPPlaylist = AxWindowsMediaPlayer1.playlistCollection.newPlaylist("thePlaylist")
        For Each FileName In FileInfo
            Dim strName As String = Application.StartupPath & "\" & FileName.ToString
            Dim VideoFile As WMPLib.IWMPMedia3 = AxWindowsMediaPlayer1.newMedia(strName)
            Playlist.appendItem(VideoFile)
            ListBox1.Items.Add(FileName.ToString)
        Next
        AxWindowsMediaPlayer1.settings.setMode("shuffle", True) '隨機播放
        AxWindowsMediaPlayer1.currentPlaylist = Playlist
        AxWindowsMediaPlayer1.settings.volume = 100
    End Sub

於
標籤： , , , ,

沒有留言:

張貼留言

訂閱： 張貼留言 (Atom)