Creazione di un'applicazione Visual Basic.NET che scorre automaticamente il testo in un controllo TextBox può essere facilmente realizzato utilizzando array di stringhe e un timer . Un controllo Timer in VB.NET eseguirà codice continuamente fino a quando il programma termina . Utilizzare un array di stringhe a riempirlo con il testo che si desidera scorrere e visualizzare i vari elementi dell'array nella TextBox con il timer per mostrare l' effetto di scorrimento . Istruzioni
1

lancio di Microsoft Visual Studio , fare clic su " Nuovo Progetto" dal riquadro sinistro della schermata del computer ed espandere " Visual Basic " di sotto " Modelli installati . " Fare clic su "Windows" e fare doppio clic su " Applicazione Windows Form " dal centro della finestra di dialogo per creare un nuovo progetto .
2

doppio click su " Timer " per aggiungere uno al form. Fare doppio clic su " TextBox " per aggiungere una nuova casella di testo al form. Fare doppio clic sul form per creare un evento carico di forma
3

Aggiungere il seguente codice sopra l'evento di caricamento form per creare tre variabili globali , tra cui quella che conterrà il vostro testo scorrevole . :

Dim scrollingText As String = " Questo è il mio testo scorrevole "

Dim txtStr ( scrollingText.Length - 1) As String Dim

txtPos As Integer = -1 < br >
4

Aggiungere il seguente codice all'interno dell'evento load form per scorrere il testo scorrevole e avviare il timer :

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

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

txtStr ( IDX ) = workedString
< p > Avanti

Timer1.Interval = 75

Timer1.Enabled = True

Timer1.Start ( ) economici 5 Interruttore

di nuovo alla forma vista del design e fare doppio clic su " Timer1 " per creare un evento di zecca per il timer . Aggiungere il seguente codice all'interno dell'evento :

txtPos + = 1

Dim timerStr As String

timerStr = txtStr ( txtPos ) per

Label1.Text = timerStr

Se txtPos = UBound ( txtStr ) Poi txtPos = -1
6

Premere " F5 " per eseguire il programma e la visualizzazione di testo scorrevole utilizzando la casella di testo .