Création d'une application Visual Basic.NET que l'auto texte défile dans un contrôle de zone de texte peut facilement être réalisé en utilisant des tableaux de chaînes et d'une minuterie . Un contrôle de la minuterie en VB.NET va exécuter du code en continu jusqu'à la fin du programme . Utilisez un tableau String à remplir avec le texte que vous souhaitez faire défiler et afficher différents éléments du tableau dans la zone de texte en utilisant le retardateur pour montrer l'effet de défilement. Instructions
1

Lancement de Microsoft Visual Studio , cliquez sur " Nouveau Projet" dans le volet de gauche de votre écran d' ordinateur et d'élargir "visual basic" dessous " Modèles installés . " Cliquez sur "Windows" et double-cliquez sur "Application Windows Forms " du centre de la fenêtre de dialogue pour créer un nouveau projet.
2

Double -cliquez sur " Timer" en ajouter un à votre formulaire. Double -cliquez sur " TextBox " pour ajouter une nouvelle zone de texte à votre formulaire. Double- cliquez sur le formulaire pour créer un événement de chargement du formulaire
3

Ajoutez le code suivant au-dessus de l' événement de chargement du formulaire pour créer trois variables globales , y compris celui qui tiendra votre texte défilant . : Photos

scrollingText As string = " Ceci est mon texte défilant "

Dim txtStr ( scrollingText.Length - 1) comme corde

txtPos As Integer = -1 < br > Hôtels 4

Ajoutez le code suivant dans l'événement de chargement du formulaire pour parcourir le texte défilant et démarrer le chronomètre :

idx As Integer = 0 To UBound ( txtStr )
< p > workedString As String = ""

workedString = scrollingText.Substring ( IDX ) & "" & scrollingText.Substring (0, IDX )

txtStr ( IDX ) = workedString
< p> Suivant

Timer1.Interval = 75

Timer1.Enabled = True

Timer1.Start ()
5

Revenez à former vue de la conception et double -cliquez sur " Timer1 " pour créer un événement à cocher pour la minuterie. Ajoutez le code suivant dans l' événement : Photos

txtPos + = 1

timerStr Dim As String

timerStr = txtStr ( txtPos )

Label1.Text = timerStr

Si txtPos = LimiteSup ( txtStr ) Puis txtPos = -1
6

Appuyez sur " F5" pour exécuter le programme et l'affichage du texte défilant dans la boîte de texte.