1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| Public Class Demarrage
Public Paramètres As Propriétés 'Créé une classe "Paramètres" Propriétés qui contient les données du fichier "Propriétées.xml"'
Dim fin As Boolean = False 'Créé un booléen "fin"'
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Tempo.Tick
If fin = True Then 'Regarde si la condition fin est vraie si c'est le cas alors'
Tempo.Interval = 25 'Marque une pause toutes les 25 ms'
If Me.Opacity = 0 Then 'Si l'opacité est égale à 0 alors la page d'accueil s'affiche'
Pagedaccueil.Show()
Pagedaccueil.BackColor = Color.FromArgb(Paramètres.Valeurs_RVB.Rouge, Paramètres.Valeurs_RVB.Vert, Paramètres.Valeurs_RVB.Bleu)
Pagegestiondescomptes.BackColor = Color.FromArgb(Paramètres.Valeurs_RVB.Rouge, Paramètres.Valeurs_RVB.Vert, Paramètres.Valeurs_RVB.Bleu)
pageadmin.BackColor = Color.FromArgb(Paramètres.Valeurs_RVB.Rouge, Paramètres.Valeurs_RVB.Vert, Paramètres.Valeurs_RVB.Bleu)
Nouvel_élève.BackColor = Color.FromArgb(Paramètres.Valeurs_RVB.Rouge, Paramètres.Valeurs_RVB.Vert, Paramètres.Valeurs_RVB.Bleu)
Param.BackColor = Color.FromArgb(Paramètres.Valeurs_RVB.Rouge, Paramètres.Valeurs_RVB.Vert, Paramètres.Valeurs_RVB.Bleu)
résultatsélèves.BackColor = Color.FromArgb(Paramètres.Valeurs_RVB.Rouge, Paramètres.Valeurs_RVB.Vert, Paramètres.Valeurs_RVB.Bleu)
Selection_exercice.BackColor = Color.FromArgb(Paramètres.Valeurs_RVB.Rouge, Paramètres.Valeurs_RVB.Vert, Paramètres.Valeurs_RVB.Bleu)
Tempo.Stop() 'Fin du timer'
Me.Close() 'Fermeture de la page de démarrage'
Else 'Sinon si l'opacité de la page de démarrage est égale à 1 ou est différente de 1 alors'
Me.Opacity = Me.Opacity - 0.02 'L'opacité de la page de démarrage diminue de 2% toutes les 25 ms'
End If
ElseIf fin = False Then 'Regarde si la condition fin est fausse si c'est le cas alors'
If Me.Opacity <> 1 Then 'Si opacité différente de 1'
Me.Opacity = Me.Opacity + 0.02 'Opacité de la page de démarrage augmente de 2% toutes les 25 ms'
Else 'Sinon si opacité égale à 1 alors'
Tempo.Interval = 2500 'Pause de 2.5s'
fin = True 'Fin de l'affichage de la page de démarrage'
End If
End If
End Sub |
Partager