Lecteur-media/lecteur/lecteur média/Form183.vb

Imports System.IO
Public Class Form183
    Private Sub Form183_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ComboBox1.Location = New Point(12, 8)


        Dim lines1a() As String = File.ReadAllLines(théme)

        If lines1a(0) = 2 Then
            Me.BackColor = Color.FromArgb(64, 64, 64)
            ListBox1.BackColor = Color.FromArgb(64, 64, 64)
            ComboBox1.BackColor = Color.FromArgb(64, 64, 64)
            Button1.BackColor = Color.FromArgb(64, 64, 64)
            Button2.BackColor = Color.FromArgb(64, 64, 64)
            Button3.BackColor = Color.FromArgb(64, 64, 64)
            Button4.BackColor = Color.FromArgb(64, 64, 64)
            Button4.ForeColor = Color.White
            Button1.ForeColor = Color.White
            Button2.ForeColor = Color.White
            Button3.ForeColor = Color.White
            ListBox1.ForeColor = Color.White
            ComboBox1.ForeColor = Color.White
        ElseIf lines1a(0) = 3 Then
            Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ListBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ComboBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ListBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ComboBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)

        Else

        End If

        ListBox1.Items.Clear()
        Me.Text = "Sélectionnez une playlist:"
        ComboBox1.Items.Clear()
        ComboBox1.Show()
        Button1.Hide()
        Button2.Hide()
        Button3.Hide()

        Me.Size = New Size(296, 78)
        Me.MaximumSize = New Size(296, 78)
        Me.MaximizeBox = Me.MaximizeBox
        Me.MinimumSize = New Size(296, 78)
        Me.MinimizeBox = Me.MinimizeBox

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

    Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
        Me.Text = "Modifier: " & ComboBox1.SelectedItem
        Me.Size = New Size(744, 386)
        Me.MaximumSize = New Size(744, 386)
        Me.MaximizeBox = Me.MaximizeBox
        Me.MinimumSize = New Size(744, 386)
        Me.MinimizeBox = Me.MinimizeBox
        ComboBox1.Hide()
        Button4.Show()
        Button1.Show()
        Button2.Show()
        Button3.Show()
        ListBox1.Show()

        Button4.Text = "Renommez: " & ComboBox1.SelectedItem

        ListBox1.Items.Clear()

        For Each fichier As String In IO.Directory.GetFiles(dosplaylist & ComboBox1.SelectedItem)
            Dim info As New IO.FileInfo(fichier)
            ListBox1.Items.Add(info.Name)
        Next
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If ListBox1.Items.Count = 0 Then
            MsgBox("Aucune musique trouvez", MsgBoxStyle.Critical)
        Else
            Dim msg = MsgBox("Voulez-vous vraiment supprimer toutes les musiques de: " & ComboBox1.SelectedItem, MsgBoxStyle.YesNo)
            If msg = MsgBoxResult.Yes Then
                For Each fichier As String In IO.Directory.GetFiles(dosplaylist & ComboBox1.SelectedItem)
                    Dim info As New IO.FileInfo(fichier)
                    File.Delete(info.FullName)
                Next
                MsgBox("Toutes les musiques de: " & ComboBox1.SelectedItem & " ont bien été supprimer", MsgBoxStyle.Information)
                ListBox1.Items.Clear()
            Else

            End If
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If ListBox1.Items.Count = 0 Then
            MsgBox("Aucune musique trouvez", MsgBoxStyle.Critical)
        Else
            If ListBox1.SelectedItem = "" Then
                MsgBox("Merci de sélectionner une musique à supprimer", MsgBoxStyle.Critical)
            Else
                Dim msg = MsgBox("Voulez-vous vraiment supprimer le fichier: " & ListBox1.SelectedItem, MsgBoxStyle.YesNo)
                If msg = MsgBoxResult.Yes Then
                    File.Delete(dosplaylist & ComboBox1.SelectedItem & "\" & ListBox1.SelectedItem)
                    MsgBox("Le fichier: " & ListBox1.SelectedItem & " a bien été supprimer", MsgBoxStyle.Information)
                    ListBox1.Items.Remove(ListBox1.SelectedItem)
                Else

                End If
            End If
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog = 1 Then
            musiquexist()
        Else

        End If
    End Sub
    Sub musiquexist()
        Dim index As Integer = 0
        Dim fichier2 As String = "" & vbNewLine

        For Each fileselected1 As String In OpenFileDialog1.FileNames
            FileCopy(fileselected1, dosplaylist & ComboBox1.SelectedItem & "\" & OpenFileDialog1.SafeFileNames(index))
            fichier2 = fichier2 & " " & OpenFileDialog1.SafeFileNames(index) & vbNewLine
            index = index + 1
        Next

        If index > 1 Then
            index = 0
            MsgBox("Les fichiers: " & fichier2 & "on bien été importer", MsgBoxStyle.Information)
            ListBox1.Items.Clear()
            For Each fichier As String In IO.Directory.GetFiles(dosplaylist & ComboBox1.SelectedItem)
                Dim info As New IO.FileInfo(fichier)
                ListBox1.Items.Add(info.Name)
            Next
        Else
            index = 0
            MsgBox("Le fichier: " & OpenFileDialog1.SafeFileName & " a bien été importer", MsgBoxStyle.Information)
            ListBox1.Items.Clear()
            For Each fichier As String In IO.Directory.GetFiles(dosplaylist & ComboBox1.SelectedItem)
                Dim info As New IO.FileInfo(fichier)
                ListBox1.Items.Add(info.Name)
            Next
        End If
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        addplaylist.renomezplaylist = 1
        addplaylist.ShowDialog()
    End Sub
End Class