lancio di Microsoft Visual Studio , fare clic su " Nuovo Progetto" dal riquadro sinistro dello schermo del computer , e espandere " Visual Basic " " Modelli installati . " qui sotto 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 un timer per il vostro modulo . Fare doppio clic su " Label " per aggiungere una nuova etichetta per il vostro modulo . Aggiungere un pulsante con la stessa tecnica . . Doppio clic su " Button1 " per creare un evento click di questo bottone
3
Copia e incolla il seguente codice all'interno del pulsante click :
index As Integer = 0 To UBound ( textString ) per
Dim workedString As String = " "
workedString = scrollText.Substring ( indice) & "" & scrollText.Substring ( 0 , indice ) per
textString (indice ) = workedString
Avanti
Timer1.Interval = 75
Timer1.Enabled = True
Timer1.Start ( )
4
Passare 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 :
xPos + = 1
Dim tmrStr As String
tmrStr = textString ( xPos ) per
Label1.Text = tmrStr
Se xPos = UBound ( textString ) Poi xPos = -1
5
Premere " F5 " per eseguire il programma e fare clic su " Button1 " per visualizzare il testo scorrevole con l'etichetta .
Programmazione © www.354353.com