Opprette et Visual Basic.NET program som automatisk ruller teksten i en tekstboks kontroll kan enkelt oppnås ved hjelp av streng arrays og et tidsur . En timer kontroll i VB.NET vil kjøre kode kontinuerlig til programmet avsluttes . Bruk en String array å fylle den med teksten du ønsker å rulle , og vise ulike elementene i matrisen i tekstboksen bruke timeren til å vise rullingen effekt. Instruksjoner
en

Launch Microsoft Visual Studio , klikk " Nytt prosjekt " fra den venstre delen av skjermen og utvide " Visual Basic " under " Installerte maler . " Klikk på " Windows" og dobbeltklikk på "Windows Forms Application " fra sentrum av dialog vinduet for å opprette et nytt prosjekt .
2

Dobbeltklikk på " Timer" å legge en til skjemaet. Dobbeltklikk på " TextBox " for å legge en ny tekstboks i skjemaet. Dobbeltklikk skjemaet for å opprette en form belastning arrangementet
3

Legg til følgende kode ovenfor skjemaet belastning arrangementet for å skape tre globale variabler , inkludert den som vil holde rulletekst . :

Dim scrollingText As String = " Dette er min rulletekst "

Dim txtStr ( scrollingText.Length - 1 ) Som String

Dim txtPos As Integer = -1

4

Legg til følgende kode i form belastning arrangementet å sløyfe gjennom rulleteksten og start tidtakeren : en

for idx As Integer = 0 For å UBound ( txtStr )
< p > Dim workedString As String = ""

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

txtStr ( idx ) = workedString
< p> Neste

Timer1.Interval = 75

Timer1.Enabled = sant

Timer1.Start ( )
5

Switch tilbake for å danne utforming utsikt og dobbeltklikk på " Timer1 " for å lage en hake hendelsen for timeren. Legg til følgende kode i hendelsen:

txtPos + = 1

Dim timerStr As String

timerStr = txtStr ( txtPos )

Label1.Text = timerStr
p Hvis txtPos = UBound ( txtStr ) Da txtPos = -1
6

Trykk " F5 " for å kjøre programmet og vise rulletekst ved hjelp av tekstboksen.