Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> .

Come Auto Scorrimento del testo in una casella di testo utilizzando VB.NET

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

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

Dim workedString As String = " "

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

txtStr ( IDX ) = workedString

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 .


 

Programmazione © www.354353.com