Как отобразить список воспроизведения в windows media

Как создать плейлист в Windows Media Player

В «штатном» проигрывателе Windows формирование плейлиста проходит в несколько шагов:

1. Входим во вкладку «Библиотека мультимедиа», выбираем опцию «Создать список воспроизведения» и открываем диалоговое окно.

2. Не закрывая проигрыватель, входим в проводник через меню «Пуск».

3. Выбираем нужные файлы в тех или иных папках, перетаскиваем их мышкой в создаваемый список воспроизведения Windows Media Player.

4. При помощи диалогового окна, находящего справа, выполняем нужные операции – сохраняем плейлист в конкретной папке, переименовываем или редактируем список файлов, задаем параметры воспроизведения, удаляем плейлист.

Как создать плейлист в Winamp

В популярном проигрывателе Winamp создать плейлист можно используя строку меню либо значки программы:

1. Заходим во вкладку «Вид» и отмечаем мышкой опцию «Редактор списка воспроизведения», после чего перед нами появляется окно будущего плейлиста.

2. Входим во вкладку «Файл» и загружаем в список воспроизведения интересующие нас медиафайлы из конкретных папок.

3. При помощи строки меню делаем нужные настройки – определяем начало списка, устанавливаем параметры воспроизведения, отлаживаем зрительные образы и многое другое.

4. Сохраняем плейлист при помощи соответствующей опции во вкладке «Файл».

5. Аналогичные действия легко выполнить при помощи значков в окне списка воспроизведения.

Как создать плейлист в AIMP Classic

В AIMP Classic сделать плейлист еще проще. Для этого используем кнопки, размещенные на панели программы:

1. Большая круглая кнопка с тремя черными черточками открывает окно плейлиста.

2. Кнопка «+» помогает загрузить файлы из папок, списки воспроизведения, ссылки радиостанций и прочее.

3. Кнопка в правом нижнем углу окна плейлиста с дискеткой позволяет сохранить список воспроизведения в конкретном месте.

Преимущество AIMP Classic, что можно работать сразу с несколькими плейлистами.

Списки воспроизведения – это удобное средство группировки файлов, которые часто воспроизводятся. Списки воспроизведения можно использовать для группировки файлов с целью записи на компакт-диск или передачи на портативное устройство. Существуют два типа списков воспроизведения в проигрывателе Windows: автоматические и обычные.

Автоматический список воспроизведения – это список, который постоянно обновляется автоматически на основе музыки, имеющейся в библиотеке проигрывателя, и включает любые изменения в мультимедиа.

Обычный список воспроизведения – это сохраненный список, содержащий один или более мультимедиа, в частности, любую комбинацию песен, видео или изображений в библиотеке проигрывателя.

Создание обычного списка воспроизведения

1. Откройте проигрыватель Windows.
2. Если проигрыватель уже открыт и находится в режиме воспроизведения, нажмите кнопку Переключиться на библиотеку в верхнем правом углу проигрывателя.
3. В библиотеке проигрывателя щелкните вкладку Воспроизведение, чтобы открыть область списка, если ее пока не открыто.
4. Если нужно очистить область списка перед созданием списка воспроизведения, нажмите кнопку Очистить список .
5. Перетащите элементы из области сведений в область списка, чтобы добавить их в новый список воспроизведения.
6. Для изменения элементов, перетащите их вверх или вниз в области списка.
7. Чтобы сохранить список, нажмите кнопку Сохранить список в верхней части области списка, введите имя списка воспроизведения и нажмите клавишу Enter .

По умолчанию списки воспроизведения сохраняются с расширением .wpl в папке «Списки воспроизведения», которая расположена в папке сохранения по умолчанию музыкальной библиотеки. Списки воспроизведения можно сохранять с расширениями. m3u или .asx.

Для этого в верхней части области списка нажмите кнопку Параметры списка выберите Сохранить список как измените расширение в диалоговом окне Сохранить как. После сохранения списка воспроизведения он добавляется в категории «Списки воспроизведения» в области переходов.

Для воспроизведения списка воспроизведения в области списка, нажмите кнопку Воспроизвести .

Чтобы получить доступ к спискам воспроизведения в будущем, дважды щелкните представление Списки воспроизведения в области переходов или щелкните стрелку рядом с Списки воспроизведения, чтобы расширить представления.

Изменение обычного списка воспроизведения

1. Откройте проигрыватель Windows.
2. Если проигрыватель уже открыт и находится в режиме воспроизведения, нажмите кнопку Переключиться на библиотеку в верхнем правом углу проигрывателя.
3. В библиотеке проигрывателя щелкните вкладку Воспроизведение, чтобы открыть область списка, если она пока не открыта.
4. В области переходов щелкните стрелку рядом с пунктом Списки воспроизведения, чтобы расширить представления.
5. Дважды щелкните список воспроизведения, который нужно изменить, чтобы они появлялись в области списка.
6. Выполните одно из следующих действий:
7. Чтобы удалить элемент, щелкните правой кнопкой мыши в области списка и выберите Удалить из списка.
8. Чтобы тасовать весь список, нажмите кнопку Параметры списка в верхней части области списка и выберите Воспроизвести список в случайном порядке.
9. Чтобы добавить элементы, выделите них с помощью области переходов и области сведений и перетащите элементы в область списка.
10. После завершения изменения списка воспроизведения команду Сохранить список в верхней части области списка и введите имя списка воспроизведения.

Настройка пропуска элементов в списке воспроизведения

Проигрыватель отслеживает, какие песни пропускаются при воспроизведении списка. Это позволяет быстро изменить список воспроизведения, который, например, был создан службой подписки музыки или другим пользователем, чтобы он содержал только понравившиеся элементы.

При сохранении списка воспроизведения, который содержит пропущенные элементы, будет предложено удалить или сохранить пропущенные элементы в списке воспроизведения. При необходимости этот запрос можно отключить.

Проигрыватель также можно настроить так, чтобы он не воспроизводил пропущенные элементы при повторного воспроизведения. Если сделать это, пропущенные элементы отображаются в области списка серым цветом.

1. Откройте проигрыватель Windows.
2. Если проигрыватель уже открыт и находится в режиме воспроизведения, нажмите кнопку Переключиться на библиотеку в верхнем правом углу проигрывателя.
3. В библиотеке проигрывателя щелкните вкладку Воспроизведение, чтобы открыть область списка, если ее пока не открыто.
4. Начните воспроизведение списка песен.
5. Чтобы пропустить элемент, нажмите кнопку Следующий во время воспроизведения.
6. Чтобы удалить пропущенные элементы из списка воспроизведения, выполните следующие действия.
7. В верхней части области списка нажмите кнопку Параметры списка и нажмите Сохранить список как.
8. Введите имя списка воспроизведения и выберите Сохранить.
9. По запросу выберите Удалить из списка.

(Необязательно) Для изменения параметров пропускания, нажмите кнопку Параметры списка в верхней части области списка, выберите Пропущенные элементы и выполните одно или оба следующих действий:

• чтобы отключить запрос на удаление пропущенных элементов при сохранении списка воспроизведения, снимите флажок Запрос на удаление при сохранении ;
• чтобы предотвратить повторное воспроизведение пропущенных элементов, выберите Пропустить во время воспроизведения .

Примечание: Флажок указывает, что соответствующее функция включена, и пропущенные элементы будут обозначены в области списка серым цветом. Элемент можно вернуть к нормальному воспроизведению, дважды щелкнув его в области списка.

Вы можете использовать проигрыватель Windows Media для создания списка воспроизведения в Windows Vista. Плейлист — это просто инструмент, который сообщает Windows Media Player, которые являются вашими любимыми песнями. Вам может понадобиться список воспроизведения для каждого человека в семье или, возможно, плейлист, содержащий музыку, которую вы любите слушать, когда работаете, и другую для музыки, которую вы любите слушать, когда у вас есть вечеринка. Плейлисты позволяют слушать музыку по-своему.

Выберите «Пуск» → «Все программы» → «Проигрыватель Windows Media».

Перейдите на вкладку «Библиотека» и нажмите «Создать список воспроизведения» в левой части элемента «Списки воспроизведения».

Надпись «Создать плейлист» исчезает, и вместо нее открывается текстовое поле.

Введите название списка воспроизведения, а затем нажмите на него.

В панели «Список» справа отображается пустой список воспроизведения.

Щелкните библиотеку в левой панели медиабиблиотеки, и появится содержимое библиотеки.

Щелкните элемент, а затем перетащите его в новый список воспроизведения.

Повторите этот шаг, чтобы найти дополнительные заголовки для добавления в список воспроизведения.

Создание списка воспроизведения на панели «Список».

Когда вы закончите добавлять заголовки, нажмите «Сохранить список воспроизведения».

Чтобы воспроизвести список воспроизведения, щелкните его на панели «Библиотека» или в области «Навигация», а затем нажмите кнопку «Воспроизвести».

Вы можете управлять списком, щелкнув его правой кнопкой мыши и выбрав «Редактировать» в панели «Список». Нажмите стрелку рядом с заголовком списка воспроизведения и используйте команды выпадающего меню для выполнения задач, например:

Выберите «Сортировка», чтобы отсортировать список воспроизведения по названию, исполнителям, дату выпуска и т. Д.

Выберите «Случайный список». Теперь произвольно реорганизуйте заголовки для воспроизведения в другом порядке.

Выберите «Переименовать список воспроизведения», чтобы присвоить ему другое имя.

Выберите пропущенные позиции, чтобы указать, как обращаться с пропущенными вами дорожками.

Вы также можете щелкнуть правой кнопкой мыши список воспроизведения в панели «Библиотека» и выбрать «Воспроизвести», чтобы воспроизвести его, или «Удалить», чтобы удалить список. Не волнуйтесь, вы не удаляете песни из библиотеки, просто инструкции о том, как вы любите их играть в этом конкретном плейлисте.

Code Snippet

Imports System.IO

Public Class Form1

    ‘   NOTES:

    ‘   Form1 contains a WindowsMediaPlayer (named AxWMP1)

    ‘   Form1 contains a Listbox (named LB1)

    ‘   Form1 contains a ContextMenuStrip (named CMS1)

    ‘   LB1’s .ContextMenuStrip is pointing to CMS1

    ‘   WMP’s .currentMedia => setting this creates a new playlist with a single item

    ‘   WMP’s .Ctlcontrols.currentItem => sets the currentItem to a track from the currentPlaylist

    Private WithEvents zTimer As New Windows.Forms.Timer

    Private zUpdatedSelectedIndex As Integer = -1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        With zTimer

            .Interval = 100

            .Enabled = True

            .Start()

        End With

        Me.Init_CMS1()

    End Sub

    Private Sub Init_CMS1()

        CMS1.Items.Clear()

        CMS1.Items.Add(New ToolStripMenuItem(«Select New Folder», Nothing, AddressOf SelectFolderToolStripMenuItem_Click))

        CMS1.Items.Add(New ToolStripSeparator)

    End Sub

    Private Sub SelectFolderToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)

        Static zSelectedFolder As String = «c:»

        Dim zRightClickLocation As Point = System.Windows.Forms.Cursor.Position

        Dim zFBD As New FolderBrowserDialog

        With zFBD

            .Description = «Select new folder to load playlists from»

            .SelectedPath = zSelectedFolder

            .ShowNewFolderButton = False

            .ShowDialog(Me)

        End With

        zSelectedFolder = zFBD.SelectedPath

        Me.CreatePlayListItems(zSelectedFolder)

        CMS1.Show(zRightClickLocation)

    End Sub

    Private Sub CreatePlayListItems(ByVal zGivenFolder As String)

        ‘   Get all the playlists from the given folder

        Dim zPlayListFiles As New List(Of String)(My.Computer.FileSystem.GetFiles(zGivenFolder, FileIO.SearchOption.SearchTopLevelOnly, New String() {«*.wpl», «*.pl», «*.m3u», «*.asx»}))

        ‘   Clear the contextmenustrip

        Me.Init_CMS1()

        Dim zPlayList As WMPLib.IWMPPlaylist

        Dim zPlayListMenuItem As ToolStripMenuItem = Nothing

        Dim zTrack As WMPLib.IWMPMedia3

        Dim zTrackMenuItem As ToolStripMenuItem = Nothing

        For Each zFilePath As String In zPlayListFiles

            zPlayList = AxWMP1.newPlaylist(Path.GetFileName(zFilePath), zFilePath)

            zPlayListMenuItem = New ToolStripMenuItem(zPlayList.name, Nothing, AddressOf PlayListToolStripMenuItem_Click)

            zPlayListMenuItem.Tag = zPlayList

            zPlayListMenuItem.Owner = CMS1

            If zPlayList.count > 0 Then

                Dim zListOfTracks As New List(Of ToolStripMenuItem)

                For zIndex As Integer = 0 To zPlayList.count — 1

                    zTrack = zPlayList.Item(zIndex)

                    zTrackMenuItem = New ToolStripMenuItem(zTrack.name, Nothing, AddressOf TrackToolStripMenuItem_Click)

                    zTrackMenuItem.Tag = zIndex

                    zListOfTracks.Add(zTrackMenuItem)

                Next

                zPlayListMenuItem.DropDownItems.AddRange(zListOfTracks.ToArray)

            End If

        Next

    End Sub

    Private Sub PlayListToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)

        ‘   When a playlist is clicked, set the parent playlist as the current playlist and start the first track

        Dim zPlayListMenuItem As ToolStripMenuItem = sender

        Dim zPlayList As WMPLib.IWMPPlaylist = zPlayListMenuItem.Tag

        If zPlayList.isIdentical(AxWMP1.currentPlaylist) Then

            ‘   don’t do anything

        Else

            ‘   load the new playlist

            AxWMP1.currentPlaylist = zPlayList

            If zPlayList.count > 0 Then

                ‘   Load playlist into LB1 (=ListBox) by putting them all in a list first and then adding to the listbox (->faster)

                LB1.Items.Clear()

                Dim zListOfTracks As New List(Of String)

                Dim zSelectedTrackIndex As Integer = 0

                For zIndex As Integer = 0 To zPlayList.count — 1

                    ‘   Note: after pulling out the hair on my head (and chest), I’m now assuming that the WMP doesn’t

                    ‘   provide its own PlaylistIndex to keep track of the current item, so I’m adding one myself.

                    zPlayList.Item(zIndex).setItemInfo(«PlaylistIndex», zIndex.ToString)

                    zListOfTracks.Add((zIndex + 1).ToString(«00») & «) « & zPlayList.Item(zIndex).name & » (« & zPlayList.Item(zIndex).durationString & «)»)

                Next

                LB1.Items.AddRange(zListOfTracks.ToArray)

                LB1.SelectedIndex = 0

            End If

            ‘   close the contextmenustrip

            CMS1.Close(ToolStripDropDownCloseReason.ItemClicked)

        End If

    End Sub

    Private Sub TrackToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)

        ‘   When a track is clicked, set the parent playlist as the current playlist and select the track to play

        Dim zTrackMenuItem As ToolStripMenuItem = sender

        Dim zPlayListMenuItem As ToolStripMenuItem = zTrackMenuItem.OwnerItem

        Dim zPlayList As WMPLib.IWMPPlaylist = zPlayListMenuItem.Tag

        Dim zTrack As WMPLib.IWMPMedia3 = zPlayList.Item(zTrackMenuItem.Tag)

        Dim zSelectedTrackIndex As Integer = -1

        If zPlayList.isIdentical(AxWMP1.currentPlaylist) Then

            ‘   just set ListBox’s SelectedIndex to the selected track

            [Integer].TryParse(zTrack.getItemInfo(«PlaylistIndex»), zSelectedTrackIndex)

            LB1.SelectedIndex = zSelectedTrackIndex

        Else

            ‘   load the new playlist and set the selected track

            AxWMP1.currentPlaylist = zPlayList

            ‘   Load playlist into LB1 (=ListBox) by putting them all in a list first and then adding to the listbox (->faster)

            LB1.Items.Clear()

            Dim zListOfTracks As New List(Of String)

            For zIndex As Integer = 0 To zPlayList.count — 1

                ‘   Note: after pulling out the hair on my head (and chest), I’m now assuming that the WMP doesn’t

                ‘   provide its own PlaylistIndex to keep track of the current item, so I’m adding one myself.

                zPlayList.Item(zIndex).setItemInfo(«PlaylistIndex», zIndex.ToString)

                zListOfTracks.Add((zIndex + 1).ToString(«00») & «) « & zPlayList.Item(zIndex).name & » (« & zPlayList.Item(zIndex).durationString & «)»)

                If zPlayList.Item(zIndex).sourceURL = zTrack.sourceURL Then

                    zSelectedTrackIndex = zIndex

                End If

            Next

            LB1.Items.AddRange(zListOfTracks.ToArray)

            ‘   Setting the Listbox’s SelectedIndex will also set the WMP’s Ctlcontrols.currentItem

            LB1.SelectedIndex = zSelectedTrackIndex

        End If

    End Sub

    Private Sub LB1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles LB1.SelectedIndexChanged

        ‘   when an item in the listbox is clicked, set that track as the currentitem

        If LB1.SelectedIndex > -1 Then

            AxWMP1.Ctlcontrols.currentItem = AxWMP1.currentPlaylist.Item(LB1.SelectedIndex)

            AxWMP1.Ctlcontrols.playItem(AxWMP1.Ctlcontrols.currentItem)

        End If

    End Sub

    Private Sub AxWMP1_CurrentItemChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_CurrentItemChangeEvent) Handles AxWMP1.CurrentItemChange

        Dim zNewTrack As WMPLib.IWMPMedia3 = e.pdispMedia

        If zNewTrack IsNot Nothing Then

            ‘   Note: I’m using zTimer and the zUpdatedSelectedIndex variable to set the new listbox.selectedindex because

            ‘   there are LoaderLock errors if you try to update the managed Listbox directly within this eventsub

            Dim zSelectedIndex As Integer = -1

            [Integer].TryParse(zNewTrack.getItemInfo(«PlaylistIndex»), zSelectedIndex)

            zUpdatedSelectedIndex = zSelectedIndex

        End If

    End Sub

    Private Sub zTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles zTimer.Tick

        If zUpdatedSelectedIndex > -1 Then

            LB1.SelectedIndex = zUpdatedSelectedIndex

            zUpdatedSelectedIndex = -1

        End If

    End Sub

End Class

Code Snippet

Imports System.IO

Public Class Form1

    ‘   NOTES:

    ‘   Form1 contains a WindowsMediaPlayer (named AxWMP1)

    ‘   Form1 contains a Listbox (named LB1)

    ‘   Form1 contains a ContextMenuStrip (named CMS1)

    ‘   LB1’s .ContextMenuStrip is pointing to CMS1

    ‘   WMP’s .currentMedia => setting this creates a new playlist with a single item

    ‘   WMP’s .Ctlcontrols.currentItem => sets the currentItem to a track from the currentPlaylist

    Private WithEvents zTimer As New Windows.Forms.Timer

    Private zUpdatedSelectedIndex As Integer = -1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        With zTimer

            .Interval = 100

            .Enabled = True

            .Start()

        End With

        Me.Init_CMS1()

    End Sub

    Private Sub Init_CMS1()

        CMS1.Items.Clear()

        CMS1.Items.Add(New ToolStripMenuItem(«Select New Folder», Nothing, AddressOf SelectFolderToolStripMenuItem_Click))

        CMS1.Items.Add(New ToolStripSeparator)

    End Sub

    Private Sub SelectFolderToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)

        Static zSelectedFolder As String = «c:»

        Dim zRightClickLocation As Point = System.Windows.Forms.Cursor.Position

        Dim zFBD As New FolderBrowserDialog

        With zFBD

            .Description = «Select new folder to load playlists from»

            .SelectedPath = zSelectedFolder

            .ShowNewFolderButton = False

            .ShowDialog(Me)

        End With

        zSelectedFolder = zFBD.SelectedPath

        Me.CreatePlayListItems(zSelectedFolder)

        CMS1.Show(zRightClickLocation)

    End Sub

    Private Sub CreatePlayListItems(ByVal zGivenFolder As String)

        ‘   Get all the playlists from the given folder

        Dim zPlayListFiles As New List(Of String)(My.Computer.FileSystem.GetFiles(zGivenFolder, FileIO.SearchOption.SearchTopLevelOnly, New String() {«*.wpl», «*.pl», «*.m3u», «*.asx»}))

        ‘   Clear the contextmenustrip

        Me.Init_CMS1()

        Dim zPlayList As WMPLib.IWMPPlaylist

        Dim zPlayListMenuItem As ToolStripMenuItem = Nothing

        Dim zTrack As WMPLib.IWMPMedia3

        Dim zTrackMenuItem As ToolStripMenuItem = Nothing

        For Each zFilePath As String In zPlayListFiles

            zPlayList = AxWMP1.newPlaylist(Path.GetFileName(zFilePath), zFilePath)

            zPlayListMenuItem = New ToolStripMenuItem(zPlayList.name, Nothing, AddressOf PlayListToolStripMenuItem_Click)

            zPlayListMenuItem.Tag = zPlayList

            zPlayListMenuItem.Owner = CMS1

            If zPlayList.count > 0 Then

                Dim zListOfTracks As New List(Of ToolStripMenuItem)

                For zIndex As Integer = 0 To zPlayList.count — 1

                    zTrack = zPlayList.Item(zIndex)

                    zTrackMenuItem = New ToolStripMenuItem(zTrack.name, Nothing, AddressOf TrackToolStripMenuItem_Click)

                    zTrackMenuItem.Tag = zIndex

                    zListOfTracks.Add(zTrackMenuItem)

                Next

                zPlayListMenuItem.DropDownItems.AddRange(zListOfTracks.ToArray)

            End If

        Next

    End Sub

    Private Sub PlayListToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)

        ‘   When a playlist is clicked, set the parent playlist as the current playlist and start the first track

        Dim zPlayListMenuItem As ToolStripMenuItem = sender

        Dim zPlayList As WMPLib.IWMPPlaylist = zPlayListMenuItem.Tag

        If zPlayList.isIdentical(AxWMP1.currentPlaylist) Then

            ‘   don’t do anything

        Else

            ‘   load the new playlist

            AxWMP1.currentPlaylist = zPlayList

            If zPlayList.count > 0 Then

                ‘   Load playlist into LB1 (=ListBox) by putting them all in a list first and then adding to the listbox (->faster)

                LB1.Items.Clear()

                Dim zListOfTracks As New List(Of String)

                Dim zSelectedTrackIndex As Integer = 0

                For zIndex As Integer = 0 To zPlayList.count — 1

                    ‘   Note: after pulling out the hair on my head (and chest), I’m now assuming that the WMP doesn’t

                    ‘   provide its own PlaylistIndex to keep track of the current item, so I’m adding one myself.

                    zPlayList.Item(zIndex).setItemInfo(«PlaylistIndex», zIndex.ToString)

                    zListOfTracks.Add((zIndex + 1).ToString(«00») & «) « & zPlayList.Item(zIndex).name & » (« & zPlayList.Item(zIndex).durationString & «)»)

                Next

                LB1.Items.AddRange(zListOfTracks.ToArray)

                LB1.SelectedIndex = 0

            End If

            ‘   close the contextmenustrip

            CMS1.Close(ToolStripDropDownCloseReason.ItemClicked)

        End If

    End Sub

    Private Sub TrackToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)

        ‘   When a track is clicked, set the parent playlist as the current playlist and select the track to play

        Dim zTrackMenuItem As ToolStripMenuItem = sender

        Dim zPlayListMenuItem As ToolStripMenuItem = zTrackMenuItem.OwnerItem

        Dim zPlayList As WMPLib.IWMPPlaylist = zPlayListMenuItem.Tag

        Dim zTrack As WMPLib.IWMPMedia3 = zPlayList.Item(zTrackMenuItem.Tag)

        Dim zSelectedTrackIndex As Integer = -1

        If zPlayList.isIdentical(AxWMP1.currentPlaylist) Then

            ‘   just set ListBox’s SelectedIndex to the selected track

            [Integer].TryParse(zTrack.getItemInfo(«PlaylistIndex»), zSelectedTrackIndex)

            LB1.SelectedIndex = zSelectedTrackIndex

        Else

            ‘   load the new playlist and set the selected track

            AxWMP1.currentPlaylist = zPlayList

            ‘   Load playlist into LB1 (=ListBox) by putting them all in a list first and then adding to the listbox (->faster)

            LB1.Items.Clear()

            Dim zListOfTracks As New List(Of String)

            For zIndex As Integer = 0 To zPlayList.count — 1

                ‘   Note: after pulling out the hair on my head (and chest), I’m now assuming that the WMP doesn’t

                ‘   provide its own PlaylistIndex to keep track of the current item, so I’m adding one myself.

                zPlayList.Item(zIndex).setItemInfo(«PlaylistIndex», zIndex.ToString)

                zListOfTracks.Add((zIndex + 1).ToString(«00») & «) « & zPlayList.Item(zIndex).name & » (« & zPlayList.Item(zIndex).durationString & «)»)

                If zPlayList.Item(zIndex).sourceURL = zTrack.sourceURL Then

                    zSelectedTrackIndex = zIndex

                End If

            Next

            LB1.Items.AddRange(zListOfTracks.ToArray)

            ‘   Setting the Listbox’s SelectedIndex will also set the WMP’s Ctlcontrols.currentItem

            LB1.SelectedIndex = zSelectedTrackIndex

        End If

    End Sub

    Private Sub LB1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles LB1.SelectedIndexChanged

        ‘   when an item in the listbox is clicked, set that track as the currentitem

        If LB1.SelectedIndex > -1 Then

            AxWMP1.Ctlcontrols.currentItem = AxWMP1.currentPlaylist.Item(LB1.SelectedIndex)

            AxWMP1.Ctlcontrols.playItem(AxWMP1.Ctlcontrols.currentItem)

        End If

    End Sub

    Private Sub AxWMP1_CurrentItemChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_CurrentItemChangeEvent) Handles AxWMP1.CurrentItemChange

        Dim zNewTrack As WMPLib.IWMPMedia3 = e.pdispMedia

        If zNewTrack IsNot Nothing Then

            ‘   Note: I’m using zTimer and the zUpdatedSelectedIndex variable to set the new listbox.selectedindex because

            ‘   there are LoaderLock errors if you try to update the managed Listbox directly within this eventsub

            Dim zSelectedIndex As Integer = -1

            [Integer].TryParse(zNewTrack.getItemInfo(«PlaylistIndex»), zSelectedIndex)

            zUpdatedSelectedIndex = zSelectedIndex

        End If

    End Sub

    Private Sub zTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles zTimer.Tick

        If zUpdatedSelectedIndex > -1 Then

            LB1.SelectedIndex = zUpdatedSelectedIndex

            zUpdatedSelectedIndex = -1

        End If

    End Sub

End Class

Прежде чем вы сможете записать музыкальный компакт-диск, в программе Проигрыватель Windows Media нужно создать список файлов для воспроизведения. Такой список представляет собой сборник музыкальных дорожек, который потом необязательно копировать на компакт-диск. Например, можете собрать коллекцию своих любимых послеобеденных мелодий или композиций, подходящих для уборки в квартире. Список воспроизведения — это набор мелодий, которые может воспроизвести проигрыватель Windows Media.

Для создания собственного компакт-диска, вы, вероятно, захотите подобрать несколько десятков мелодий или видео, соответствующих его тематике. Я, например, могу записать диск с песнями, которые люблю петь во время долгого путешествия на автомобиле.
Чтобы создать список воспроизведения в проигрывателе Windows Media, выполните следующие несложные действия.

1. Щелкните на кнопке Библиотека мультимедиа в левой части окна программы Проигрыватель Windows Media.
2. Из меню Списки воспроизведения выберите пункт Создать список воспроизведения.
3. Введите описательное название списка воспроизведения.
4. Щелкните на ОК. Новый список воспроизведения появится в левой части окна проигрывателя в дереве Библиотека мультимедиа в разделе Мои списки воспроизведения. Теперь необходимо добавить в список воспроизведения аудиодорожки. Их можно найти на ветви Аудио дерева Библиотека мультимедиа. Все композиции там классифицированы по категориям: Вся музыка, Альбом, Исполнитель и Жанр.
5. В библиотеке мультимедиа выберите нужный источник. Я, например, щелкнул на одном из своих музыкальных альбомов. Список воспроизведения файлов, скопированных с этого компакт-диска, появился в правой части окна Проигрыватель Windows Media.
6. Для выделения композиции нужно на ней щелкнуть. Чтобы выделить несколько дорожек одновременно, щелкните на них, удерживая клавишу Ctrl.
7. Щелкните на кнопке Добавить в список.
8. Выберите в раскрывающемся меню только что созданный список. Если в меню его нет, выберите пункт Дополнительные списки воспроизведения, выделите в диалоговом окне свой список и щелкните на ОК.
9. Повторяйте пп. с 6 по 8, чтобы внести в список все нужные мелодии.
10. Щелчком выделите в дереве библиотеки нужный список воспроизведения. В правой части окна Проигрыватель Windows Media вы увидите все композиции, внесенные в список.

Закончив работу со списком, прослушайте мелодии. Проверьте, все ли вас устраивает.