|
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 )
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.
|
