Imports System.IO
Public Class Form5
    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
        MsgBox(Label2.Text, MsgBoxStyle.Information)
    End Sub
    Sub langfr()
        If Form1.TextBox1.Text.EndsWith(".mp4") Then
            Label2.Text = Form1.AxWindowsMediaPlayer1.currentMedia.name
            Label4.Text = Form1.AxWindowsMediaPlayer1.currentMedia.durationString
            Label6.Text = "MP4"
            PictureBox1.Show()
            PictureBox2.Hide()
        ElseIf Form1.TextBox1.Text.EndsWith(".mkv") Then
            Label2.Text = Form1.AxWindowsMediaPlayer1.currentMedia.name
            Label4.Text = Form1.AxWindowsMediaPlayer1.currentMedia.durationString
            Label6.Text = "MKV"
            PictureBox1.Show()
            PictureBox2.Hide()
        ElseIf Form1.TextBox1.Text.EndsWith(".avi") Then
            Label2.Text = Form1.AxWindowsMediaPlayer1.currentMedia.name
            Label4.Text = Form1.AxWindowsMediaPlayer1.currentMedia.durationString
            Label6.Text = "AVI"
            PictureBox1.Show()
            PictureBox2.Hide()
        ElseIf Form1.TextBox1.Text.EndsWith(".mov") Then
            Label2.Text = Form1.AxWindowsMediaPlayer1.currentMedia.name
            Label4.Text = Form1.AxWindowsMediaPlayer1.currentMedia.durationString
            Label6.Text = "MOV"
            PictureBox1.Show()
            PictureBox2.Hide()
        ElseIf Form1.TextBox1.Text.EndsWith(".wmv") Then
            Label2.Text = Form1.AxWindowsMediaPlayer1.currentMedia.name
            Label4.Text = Form1.AxWindowsMediaPlayer1.currentMedia.durationString
            Label6.Text = "WMV"
            PictureBox1.Show()
            PictureBox2.Hide()
        ElseIf Form1.TextBox1.Text.EndsWith(".mp3") Then
            Label2.Text = Form1.AxWindowsMediaPlayer1.currentMedia.name
            Label4.Text = Form1.AxWindowsMediaPlayer1.currentMedia.durationString
            Label6.Text = "mp3"
            PictureBox1.Hide()
            PictureBox2.Show()
        ElseIf Form1.TextBox1.Text.EndsWith("RFM") Then
            Form54.ShowDialog()
            Close()
        ElseIf Form1.TextBox1.Text.EndsWith("RMC") Then
            Form55.ShowDialog()
            Close()
        ElseIf Form1.TextBox1.Text.EndsWith("Chérie") Then
            Form56.ShowDialog()
            Close()
        ElseIf Form1.TextBox1.Text.EndsWith("Nostalgie France") Then
            Form57.ShowDialog()
            Close()
        ElseIf Form1.TextBox1.Text.EndsWith("NRJ France") Then
            Form58.ShowDialog()
            Close()
        ElseIf Form1.TextBox1.Text.EndsWith("Rire & Chansons") Then
            Form59.ShowDialog()
            Close()
        ElseIf Form1.TextBox1.Text.EndsWith("France Info") Then
            Form60.ShowDialog()
            Close()
        ElseIf Form1.TextBox1.Text.EndsWith("Fun Radio France") Then
            Form61.ShowDialog()
            Close()
        ElseIf Form1.TextBox1.Text.EndsWith("RTL") Then
            Form62.ShowDialog()
            Close()
        ElseIf Form1.TextBox1.Text.EndsWith("Ouï FM") Then
            Form63.ShowDialog()
            Close()
        ElseIf Form1.TextBox1.Text.EndsWith(".ts") Then
            Label2.Text = Form1.AxWindowsMediaPlayer1.currentMedia.name
            Label4.Text = Form1.AxWindowsMediaPlayer1.currentMedia.durationString
            Label6.Text = "ts"
            PictureBox1.Show()
            PictureBox2.Hide()
        ElseIf Form1.TextBox1.Text.EndsWith("radio") Then
            Form86.ShowDialog()
            Close()
        ElseIf Form1.TextBox1.Text.Contains("film") Then
            Dim read = Form1.TextBox1.Text.Replace("film", "")
            Label2.Text = read
            Label4.Text = Form1.AxWindowsMediaPlayer1.currentMedia.durationString
            Label6.Text = "Film streaming"
            PictureBox1.Show()
            PictureBox2.Hide()
        ElseIf Form1.TextBox1.Text.Contains("série") Then
            Dim read = Form1.TextBox1.Text.Replace("série", "")
            Label2.Text = read
            Label4.Text = Form1.AxWindowsMediaPlayer1.currentMedia.durationString
            Label6.Text = "Séries streaming"
            PictureBox1.Show()
            PictureBox2.Hide()
        Else
            MsgBox("Aucun média a été lancé", MsgBoxStyle.Information)
            Close()
        End If
    End Sub
    Private Sub Form5_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.ForeColor = Color.White
            Label2.ForeColor = Color.White
            Label3.ForeColor = Color.White
            Label4.ForeColor = Color.White
            Label5.ForeColor = Color.White
            Label6.ForeColor = Color.White
            PictureBox1.BackColor = Color.FromArgb(64, 64, 64)
            PictureBox2.BackColor = Color.FromArgb(64, 64, 64)
        ElseIf lines1a(0) = 3 Then
            Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            PictureBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            PictureBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
        Else

        End If

        langfr()
    End Sub
End Class