Tuto - Crée un label qui clignote

[Westiix]

Bonsoirs,

Dans ce tutoriel vous allez apprendre à crée un label qui clignote (de couleur).
Dans cette exemple, il clignotera de Noir (Black) à Bleue (Blue)

Requis :
- 1 Timer
- 1 Label (lui mettre la couleur "Black" par défaut)

1) Ajouter les choses requis sur vôtre form
2) Double-cliquez sur vôtre Timer et ajouter ceci :

Code du Timer :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Label1.ForeColor = Color.Black Then 'Si le Label1 à la couleur "Black" ALORS
            Label1.ForeColor = Color.Blue 'Label1 obtient la couleur "Blue"
        ElseIf Label1.ForeColor = Color.Blue Then 'Si Label1 à la couleur "Blue" ALORS
            Label1.ForeColor = Color.Black 'Label1 obtient la couleur "Black
        End If 'On ferme la boucle if
    End Sub

3) Double-cliquez sur vôtre form et ajouter ceci :

Code de la form :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start() 'Demarre le Timer1 dès que le logiciel est lancé
    End Sub

J'espère que ce court tutoriel vous aura plus

/!\ Vous ne pouvez pas faire clignoté le nom de la form, seulement le faire apparaître peux à peux /!\

 

[xdomas']

Sa va me servir pour mon logiciel , merci +1