Discussion :

[EntreNousNetwork]

Bonjour, sachant pas quoi faire aujourd'hui, je me suis lancé dans le vb.net.

J'ai créer une barre avec texte défilant et changeant de couleur.

Le texte est personnalisable et la vitesse aussi.

Je me permet de partager avec vous cette barre, dite moi se que vous en pensez et ce que je pourrais faire pour l'amélioré.

Par défaut le texte affiché dans cette barre est la date et l'heure.

Pour les remettre si vous modifier le texte, écrivez date dans la textbox.

Tous les commentaire sont les bienvenue, Merci par avance

[Pol63]

c'est buggé, et un exe ne servira à personne

[jpfrc908]

Bonsoir

j'utilise ceci de gauche a droite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Label1.ForeColor = Color.Black Then
            Label1.ForeColor = Color.Blue
        ElseIf Label1.ForeColor = Color.Blue Then
            Label1.ForeColor = Color.Red
        ElseIf Label1.ForeColor = Color.Red Then
            Label1.ForeColor = Color.Green
        ElseIf Label1.ForeColor = Color.Green Then
            Label1.ForeColor = Color.Yellow
        ElseIf Label1.ForeColor = Color.Yellow Then
            Label1.ForeColor = Color.Black
        End If
        Label1.Left = Label1.Left + 10
        If Label1.Left >= Width Then
            Label1.Left = 0 '-1 * Label1.Width
        End If
    End Sub

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If Label1.Visible = True Then
            Label1.Visible = False
        ElseIf Label1.Visible = False Then
            Label1.Visible = True
        End If
        If Label1.BackColor = Color.Black Then
            Label1.BackColor = Color.Blue
        ElseIf Label1.BackColor = Color.Blue Then
            Label1.BackColor = Color.Red
        ElseIf Label1.BackColor = Color.Red Then
            Label1.BackColor = Color.Green
        ElseIf Label1.BackColor = Color.Green Then
            Label1.ForeColor = Color.Yellow
        ElseIf Label1.BackColor = Color.Yellow Then
            Label1.BackColor = Color.Black
        End If
    End Sub

pas très propre mais il fonctionne

[ebastien]

Bonjour,

pas très propre mais il fonctionne

En effet : Duplication de code = pas beau.
Fais une procédure qui te retourne la couleur à adopter en fonction de la couleur envoyée en paramètre et utilise cette procédure pour modifier tes couleurs.
Evite les If en cascade : il existe le Select Case !
De plus :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Label1.Visible = True Then
            Label1.Visible = False
        ElseIf Label1.Visible = False Then
            Label1.Visible = True
        End If

Plus simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Label1.visible = Not Label1.visible

Enfin, nomme tes contrôles : Label1 c'est pas terrible.

ps : Je n'ai pas regardé ce que ça donnait ...

[jpfrc908]

Salut Ebastien

Merci pour tes informations cela me servira peut être un jour, pour le moment le code que j'avais utilisé était purement un test , c'est pour cela que j'ai mentionné " pas très propre" et comme il fonctionnait ...
Sinon c'était pour répondre au post à kalicem qui d'après Pol63 est buggé de plus qu'un exécutable ne servira à personne , donc ta réponse lui servira plus qu'a moi (mais qui sait un jour peut être a moi aussi lol )