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

Imports System.ComponentModel
Imports System.IO
Imports WMPLib

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


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

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

        End If


        For Each fichier As String In IO.Directory.GetDirectories(dossérie)
            Dim info As New IO.DirectoryInfo(fichier)
            ComboBox1.Items.Add(info.Name)
        Next

        ComboBox1.Items.Remove("temp")
        ComboBox2.Hide()
        Button1.Hide()
        If ComboBox1.Items.Count = 0 Then
            MsgBox("Aucune série trouvez", MsgBoxStyle.Critical)
            Close()
        Else

        End If
    End Sub
    Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
        For Each fichier As String In IO.Directory.GetDirectories(dossérie & "\" & ComboBox1.SelectedItem & "\")
            Dim info As New IO.DirectoryInfo(fichier)
            ComboBox2.Items.Add(info.Name)
        Next

        If ComboBox2.Items.Count = 0 Then
            MsgBox("Vous avez téléchargé aucune Saison", MsgBoxStyle.Critical)
            Close()
        Else
            ComboBox2.Show()
        End If
    End Sub

    Private Sub ComboBox2_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedValueChanged
        Button1.Show()
        Button1.Text = "Lire: " & ComboBox1.SelectedItem & " " & ComboBox2.SelectedItem
    End Sub

    Private Sub Form181_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        ComboBox1.Items.Clear()
        ComboBox2.Items.Clear()
    End Sub
    Dim ad As IWMPMedia

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Form1.Timer25.Stop()
        For Each fichier As String In IO.Directory.GetFiles(dossérie & "/" & ComboBox1.SelectedItem & "/" & ComboBox2.SelectedItem & "/")
            Dim info As New IO.FileInfo(fichier)
            ListBox1.Items.Add(info.Name)
        Next

        Dim ep = ListBox1.Items.Count
        Dim episode789456 As Integer = 1

        ListBox1.Items.Clear()

        For x = 1 To ep
            ListBox1.Items.Add(ComboBox1.SelectedItem & " " & "" & ComboBox2.SelectedItem & " Épisode " & episode789456 & ".m4v")
            episode789456 = episode789456 + 1
        Next

        Dim lines2() As String = File.ReadAllLines(notification)
        Form1.AxWindowsMediaPlayer1.currentPlaylist.clear()
        Form1.GunaAdvenceButton1.Show()
        Form1.GunaAdvenceButton2.Show()
        Form1.PictureBox1.Hide()
        If lines2(0) = 1 Then
            Form1.NotifyIcon1.BalloonTipTitle = "lecteur média"
            Form1.NotifyIcon1.BalloonTipText = "vous regarder: " & ComboBox1.SelectedItem & " " & ComboBox2.SelectedItem
            Form1.NotifyIcon1.ShowBalloonTip(1)
        End If
        Form1.TextBox1.Text = ComboBox1.SelectedItem & " série"
        Form1.PictureBox2.Hide()
        Form1.PictureBox7.Hide()
        Form1.PictureBox1.Hide()
        Form1.PictureBox4.Show()
        Form1.VitesseToolStripMenuItem.Enabled = True
        Form1.AllaiAToolStripMenuItem.Enabled = True
        Form1.PictureBox5.Enabled = True
        Form1.PictureBox6.Enabled = True
        Form1.PictureBox7.Enabled = True
        Form1.PauseToolStripMenuItem.Enabled = True
        Form1.StopToolStripMenuItem.Enabled = True
        Form1.PleinToolStripMenuItem.Enabled = True
        Button1.Enabled = True

        Form1.AxWindowsMediaPlayer1.currentPlaylist.clear()
        Form1.PictureBox1.Hide()

        ListBox1.SelectedIndex = 0

        Form1.AxWindowsMediaPlayer1.URL = dossérie & "/" & ComboBox1.SelectedItem & "/" & ComboBox2.SelectedItem & "/" & ListBox1.SelectedItem

        For x = 1 To ListBox1.Items.Count - 1
            ListBox1.SelectedIndex = x
            ad = Form1.AxWindowsMediaPlayer1.newMedia(dossérie & "/" & ComboBox1.SelectedItem & "/" & ComboBox2.SelectedItem & "/" & ListBox1.SelectedItem)
            Form1.AxWindowsMediaPlayer1.currentPlaylist.appendItem(ad)
        Next
        Close()
        séries.Close()
    End Sub
End Class