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

Imports System.ComponentModel
Imports AxWMPLib
Imports System.IO

Public Class Form27
    Dim volumep As Integer = 0
    Private Sub Form27_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        AxWindowsMediaPlayer1.enableContextMenu = False
        volumep = Form25.AxWindowsMediaPlayer1.settings.volume
        Dim lines1() As String = File.ReadAllLines(théme)
        If lines1(0) = 2 Then
            Me.BackColor = Color.FromArgb(64, 64, 64)
            PictureBox1.BackColor = Color.FromArgb(64, 64, 64)
            PictureBox2.BackColor = Color.FromArgb(64, 64, 64)
            PictureBox3.BackColor = Color.FromArgb(64, 64, 64)
            PictureBox4.BackColor = Color.FromArgb(64, 64, 64)
            PictureBox7.BackColor = Color.FromArgb(64, 64, 64)
            Label1.BackColor = Color.FromArgb(64, 64, 64)
            Button1.BackColor = Color.FromArgb(64, 64, 64)
            Button2.BackColor = Color.FromArgb(64, 64, 64)
            GunaMetroTrackBar1.BackColor = Color.FromArgb(64, 64, 64)
            Label1.ForeColor = Color.White
            Button1.ForeColor = Color.White
            Button2.ForeColor = Color.White
        ElseIf lines1(0) = 3 Then
            PictureBox7.Image = Form1.PictureBox7.Image
            PictureBox2.Image = Form1.PictureBox4.Image
            PictureBox3.Image = Form1.PictureBox5.Image
            PictureBox4.Image = Form1.PictureBox6.Image
            GunaMetroTrackBar1.TrackColor = Color.FromArgb(Form1.trackparproA, Form1.trackparproR, Form1.trackparproG, Form1.trackparproB)
            GunaMetroTrackBar1.TrackHoverColor = Color.FromArgb(Form1.trackparproA, Form1.trackparproR, Form1.trackparproG, Form1.trackparproB)
            GunaMetroTrackBar1.TrackPressedColor = Color.FromArgb(Form1.trackparproA, Form1.trackparproR, Form1.trackparproG, Form1.trackparproB)
            GunaMetroTrackBar1.TrackIdleColor = Color.FromArgb(Form1.trackparcolorA, Form1.trackparcolorR, Form1.trackparcolorG, Form1.trackparcolorB)
            Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            PictureBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            PictureBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            PictureBox3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            PictureBox4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            PictureBox7.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label1.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)
            GunaMetroTrackBar1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label1.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)
        End If
    End Sub

    Private Sub Form27_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        If AxWindowsMediaPlayer1.fullScreen = True Then
            AxWindowsMediaPlayer1.fullScreen = False
        End If
        AxWindowsMediaPlayer1.Ctlcontrols.stop()
        AxWindowsMediaPlayer1.currentPlaylist.clear()
        Form25.AxWindowsMediaPlayer1.Ctlcontrols.play()
        Form25.PictureBox1.Hide()
        Form25.PictureBox2.Show()
        AxWindowsMediaPlayer1.URL = ""
        Form25.Enabled = True
    End Sub
    Private Sub AxWindowsMediaPlayer1_PlayStateChange(sender As Object, e As _WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
        If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsMediaEnded Then
            Close()
        End If
    End Sub

    Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
        AxWindowsMediaPlayer1.Ctlcontrols.pause()
        PictureBox7.Show()
        PictureBox2.Hide()
    End Sub

    Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click
        AxWindowsMediaPlayer1.Ctlcontrols.play()
        PictureBox2.Show()
        PictureBox7.Hide()
    End Sub

    Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
        AxWindowsMediaPlayer1.Ctlcontrols.stop()
        Close()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Or AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then
            GunaMetroTrackBar1.Maximum = AxWindowsMediaPlayer1.currentMedia.duration + 1
            GunaMetroTrackBar1.Value = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition
            Label1.Text = "volume: " & Form25.AxWindowsMediaPlayer1.settings.volume & " %"
        Else
            GunaMetroTrackBar1.Value = 0
        End If
    End Sub

    Private Sub GunaMetroTrackBar1_Scroll(sender As Object, e As ScrollEventArgs) Handles GunaMetroTrackBar1.Scroll
        If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Or AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then
            AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = GunaMetroTrackBar1.Value
            GunaMetroTrackBar1.Maximum = AxWindowsMediaPlayer1.currentMedia.duration + 1
        Else
            GunaMetroTrackBar1.Value = 0
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        volumep += 1
        Form25.AxWindowsMediaPlayer1.settings.volume = volumep
        Form25.GunaMetroTrackBar1.Value = Form25.AxWindowsMediaPlayer1.settings.volume
        AxWindowsMediaPlayer1.settings.volume = volumep
        Label1.Text = "volume: " & Form25.AxWindowsMediaPlayer1.settings.volume & " %"
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If AxWindowsMediaPlayer1.settings.volume = 0 Then

        Else
            volumep -= 1
            Form25.AxWindowsMediaPlayer1.settings.volume = volumep
            Form25.GunaMetroTrackBar1.Value = Form25.AxWindowsMediaPlayer1.settings.volume
            AxWindowsMediaPlayer1.settings.volume = volumep
            Label1.Text = "volume: " & Form25.AxWindowsMediaPlayer1.settings.volume & " %"
        End If
    End Sub

    Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
        If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then
            AxWindowsMediaPlayer1.fullScreen = True
        End If
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        If AxWindowsMediaPlayer1.fullScreen = True Then
            volumep = AxWindowsMediaPlayer1.settings.volume
            Form25.AxWindowsMediaPlayer1.settings.volume = volumep
            Form25.GunaMetroTrackBar1.Value = Form25.AxWindowsMediaPlayer1.settings.volume
            Label1.Text = "volume: " & Form25.AxWindowsMediaPlayer1.settings.volume & " %"
        End If
    End Sub
End Class