[VB.NET] Chapitre 7 - classe Main

Imports Transitions
Imports Launcher.LauncherMethods

Public Class Main

#Region " Méthodes "


    ' -------------------------------------------------------------------------------------
    ' ----- [ FORMULAIRE ] ----------------------------------------------------------------
    ' -------------------------------------------------------------------------------------

    Private Sub Initialize()
        Try
            ' Prévention des scintillements
            Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or ControlStyles.DoubleBuffer, True)

            ' Affichage en fondu
            LauncherMethods.FadeWindow(Me, FadeAction.Show, FadeTime.Fast)

            ' Modification de la control box
            Me.PNL_TOP.Font = FontManager.GetFont(My.Resources.MaterialIcons_Regular, 15)
            Me.LBL_CLOSE.Font = PNL_TOP.Font
            Me.LBL_CLOSE.Text = ChrW(&HE5CD)
            Me.LBL_REDUCE.Font = PNL_TOP.Font
            Me.LBL_REDUCE.Text = ChrW(&HE5CF)

        Catch ex As Exception
            Logger.Exception(ex)
        End Try
    End Sub


#End Region

#Region " Évenements "


    ' -------------------------------------------------------------------------------------
    ' ----- [ FORMULAIRE ] ----------------------------------------------------------------
    ' -------------------------------------------------------------------------------------


    ''' <summary>
    ''' Se déclenche lorsque la fenêtre s'ouvre.
    ''' </summary>
    Private Sub Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Initialize()
    End Sub

    ''' <summary>
    ''' Se déclenche lorsque la fenêtre se ferme.
    ''' </summary>
    Private Sub Main_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        LauncherMethods.FadeWindow(Me, FadeAction.Hide, FadeTime.Fast)
        Environment.Exit(0)
    End Sub




    ' -------------------------------------------------------------------------------------
    ' ----- [ CONTROL BOX ] ---------------------------------------------------------------
    ' -------------------------------------------------------------------------------------


    ''' <summary>
    ''' Se déclenche lorsque la souris entre sur le bouton de fermeture.
    ''' </summary>
    Private Sub LBL_CLOSE_MouseEnter(sender As Object, e As EventArgs) Handles LBL_CLOSE.MouseEnter
        Transition.run(LBL_CLOSE, "ForeColor", ColorTranslator.FromHtml("#e57373"), New TransitionType_Linear(250))
        Transition.run(LBL_CLOSE, "BackColor", Color.FromArgb(100, 0, 0, 0), New TransitionType_Linear(250))
    End Sub
    Private Sub LBL_CLOSE_MouseLeave(sender As Object, e As EventArgs) Handles LBL_CLOSE.MouseLeave
        Transition.run(LBL_CLOSE, "ForeColor", ColorTranslator.FromHtml("#ecf0f1"), New TransitionType_Linear(250))
        Transition.run(LBL_CLOSE, "BackColor", Color.FromArgb(0, 0, 0, 0), New TransitionType_Linear(250))
    End Sub


    ''' <summary>
    ''' Se déclenche lorsque l'utilisateur clique sur le bouton de fermeture.
    ''' </summary>
    Private Sub LBL_CLOSE_Click(sender As Object, e As EventArgs) Handles LBL_CLOSE.Click
        Me.Close()
    End Sub

    ''' <summary>
    ''' Se déclenche lorsque la souris entre sur le bouton de réduction.
    ''' </summary>
    Private Sub LBL_REDUCE_MouseEnter(sender As Object, e As EventArgs) Handles LBL_REDUCE.MouseEnter
        Transition.run(LBL_REDUCE, "ForeColor", ColorTranslator.FromHtml("#4fc3f7"), New TransitionType_Linear(250))
        Transition.run(LBL_REDUCE, "BackColor", Color.FromArgb(100, 0, 0, 0), New TransitionType_Linear(250))
    End Sub
    Private Sub LBL_REDUCE_MouseLeave(sender As Object, e As EventArgs) Handles LBL_REDUCE.MouseLeave
        Transition.run(LBL_REDUCE, "ForeColor", ColorTranslator.FromHtml("#ecf0f1"), New TransitionType_Linear(250))
        Transition.run(LBL_REDUCE, "BackColor", Color.FromArgb(0, 0, 0, 0), New TransitionType_Linear(250))
    End Sub


    ''' <summary>
    ''' Se déclenche lorsque l'utilisateur clique sur le bouton de réduction.
    ''' </summary>
    Private Sub LBL_REDUCE_Click(sender As Object, e As EventArgs) Handles LBL_REDUCE.Click
        Me.WindowState = FormWindowState.Minimized
    End Sub

#End Region



End Class