Imports System.Net
Imports System.ComponentModel
Imports System.IO

Public Class Form26
    Private Sub Form26_Load(sender As Object, e As EventArgs) Handles MyBase.Load



        Dim lines1() As String = File.ReadAllLines(théme)
        If lines1(0) = 2 Then
            Me.BackColor = Color.FromArgb(64, 64, 64)
            ComboBox1.BackColor = Color.FromArgb(64, 64, 64)
            ComboBox1.ForeColor = Color.White
        ElseIf lines1(0) = 3 Then
            Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ComboBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ComboBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
        End If


        For Each fichier As String In IO.Directory.GetDirectories(dosplaylist)
            Dim info As New IO.FileInfo(fichier)
            ComboBox1.Items.Add(info.Name)
        Next

        If ComboBox1.Items.Count = 0 Then
            MsgBox("Aucune playlist trouvez", MsgBoxStyle.Critical)
            Close()
        End If
    End Sub

    Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
        If Form25.AxWindowsMediaPlayer1.URL.Contains("Autre") Then
            Try
                téléchargerfr = New WebClient
                téléchargerfr.DownloadFileTaskAsync(New Uri(Form25.AxWindowsMediaPlayer1.URL), (dosplaylist & "/" & ComboBox1.SelectedItem & "/" & Form25.ListBox1.SelectedItem & ".mp3"))
            Catch ex As Exception

            End Try
        ElseIf Form25.AxWindowsMediaPlayer1.URL.Contains("Rap") Then
            Try
                téléchargerfr = New WebClient
                téléchargerfr.DownloadFileTaskAsync(New Uri(Form25.AxWindowsMediaPlayer1.URL), (dosplaylist & "/" & ComboBox1.SelectedItem & "/" & Form25.ListBox2.SelectedItem & ".mp3"))
            Catch ex As Exception

            End Try
        ElseIf Form25.AxWindowsMediaPlayer1.URL.Contains("Classique") Then
            Try
                téléchargerfr = New WebClient
                téléchargerfr.DownloadFileTaskAsync(New Uri(Form25.AxWindowsMediaPlayer1.URL), (dosplaylist & "/" & ComboBox1.SelectedItem & "/" & Form25.ListBox3.SelectedItem & ".mp3"))
            Catch ex As Exception

            End Try
        ElseIf Form25.AxWindowsMediaPlayer1.URL.Contains("Pop") Then
            Try
                téléchargerfr = New WebClient
                téléchargerfr.DownloadFileTaskAsync(New Uri(Form25.AxWindowsMediaPlayer1.URL), (dosplaylist & "/" & ComboBox1.SelectedItem & "/" & Form25.ListBox4.SelectedItem & ".mp3"))
            Catch ex As Exception

            End Try
        ElseIf Form25.AxWindowsMediaPlayer1.URL.Contains("Youtube") Then
            Try
                téléchargerfr = New WebClient
                téléchargerfr.DownloadFileTaskAsync(New Uri(Form25.AxWindowsMediaPlayer1.URL), (dosplaylist & "/" & ComboBox1.SelectedItem & "/" & Form25.ListBox5.SelectedItem & ".mp3"))
            Catch ex As Exception

            End Try
        ElseIf Form25.AxWindowsMediaPlayer1.URL.Contains("Jazz") Then
            Try
                téléchargerfr = New WebClient
                téléchargerfr.DownloadFileTaskAsync(New Uri(Form25.AxWindowsMediaPlayer1.URL), (dosplaylist & "/" & ComboBox1.SelectedItem & "/" & Form25.ListBox6.SelectedItem & ".mp3"))
            Catch ex As Exception

            End Try
        ElseIf Form25.AxWindowsMediaPlayer1.URL.Contains("Libre de droit") Then
            Try
                téléchargerfr = New WebClient
                téléchargerfr.DownloadFileTaskAsync(New Uri(Form25.AxWindowsMediaPlayer1.URL), (dosplaylist & "/" & ComboBox1.SelectedItem & "/" & Form25.ListBox7.SelectedItem & ".mp3"))
            Catch ex As Exception

            End Try
        End If
    End Sub

    Private Sub téléchargerfr_DownloadProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs) Handles téléchargerfr.DownloadProgressChanged
        ComboBox1.Hide()
        ProgressBar1.Show()
        ProgressBar1.Value = e.ProgressPercentage
    End Sub

    Private Sub téléchargerfr_DownloadFileCompleted(sender As Object, e As AsyncCompletedEventArgs) Handles téléchargerfr.DownloadFileCompleted
        ProgressBar1.Value = 0
        ProgressBar1.Hide()
        ComboBox1.Show()
        MsgBox("La musique a bien été ajouter a la playlist: " & ComboBox1.SelectedItem, MsgBoxStyle.Information)
        ComboBox1.Items.Clear()
        Close()
    End Sub

    Dim WithEvents téléchargerfr As WebClient
End Class