Rullende tekst i en kontroll ved hjelp av Visual Basic.NET er ikke så komplisert som du kanskje tror. For at du skal rulle teksten , du kommer til å trenge å utføre en del av koden flere ganger . Den beste måten å gjøre dette på er ved hjelp av en " Timer" kontroll i programmet. Du kan starte en timer for å kjøre koden din helt til tiden er stoppet . Den " Timer" kontroll er usynlig for brukeren , og det er ofte brukt for bakgrunnen behandling . Du trenger
Microsoft Visual Studio
Vis flere instruksjoner
en

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

Dobbeltklikk på "Timer " for å legge en tidtaker i skjemaet . Dobbeltklikk på " Label" for å legge til en ny etikett i skjemaet. Legg til en knapp med samme teknikk . . Dobbeltklikk på " Button1 " for å skape et klikk hendelsen for denne knappen
3

Kopier og lim inn følgende kode inne knappen klikkhendelsen : en

indeksen As Integer = 0 For å UBound ( textString )

Dim workedString As String = ""

workedString = scrollText.Substring (indeks ) & " " & scrollText.Substring ( 0 , indeks)
< p> textString ( index) = workedString

Neste

Timer1.Interval = 75

Timer1.Enabled = sant

Timer1.Start ( )

4

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

XPOS + = 1

Dim tmrStr As String

tmrStr = textString ( XPOS )

Label1.Text = tmrStr
p Hvis XPOS = UBound ( textString ) Da XPOS = -1
5

Trykk " F5 " for å kjøre programmet , og klikk " Button1 " for å vise rullende tekst ved hjelp av etiketten .