Défilement horizontal de texte

Description

Petit code sans prétention et qui ne va rien révolutionner. Mais peut-être que ce sera utile pour certains. Merci de me dire ce que vous en pensez.

Source / Exemple :


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Static Dim intCompteur As System.Int32 = 0
        Dim strMessage As System.String = "Voici un petit programme sans prétention mais amusant"
        If intCompteur = strMessage.Length Then
            lblMessage.Text = ""
            intCompteur = 0
        End If
        lblMessage.Text &= strMessage.Substring(intCompteur, 1)
        intCompteur += 1
    End Sub

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.