Skapa ett Visual Basic.NET program som automatiskt rullar text i en textruta kontroll lätt kan åstadkommas med hjälp av String arrayer och en timer . En timer kontroll i VB.NET kommer att exekvera kod kontinuerligt tills programmet avslutas . Använd en String array för att fylla den med den text du vill bläddra och visa olika elementen i uppsättningen i textrutan med timer för att visa den rullande effekten . Instruktioner
1
Launch Microsoft Visual Studio , klicka på " Nytt projekt " från den vänstra rutan på din datorskärm och expandera " Visual Basic " under " Installerade mallar . " Klicka på " Windows " och dubbelklicka på " Windows Forms Application " från mitten av dialogrutan för att skapa ett nytt projekt .
2
Dubbelklicka på " Timer " för att lägga till en till formuläret . Dubbelklicka på " TextBox " för att lägga till en ny textruta i formuläret . Dubbelklicka på formuläret för att skapa en händelse formulär belastning
3
Lägg till följande kod ovanför formuläret load-händelse för att skapa tre globala variabler , däribland en som kommer att hålla din rullande text . :
Dim scrollingText As String = " Detta är min rullande text "
Dim txtStr ( scrollingText.Length - 1 ) As String
Dim txtPos As Integer = -1
4
Lägg till följande kod i form load-händelse att slinga genom rullande text och starta timern :
för idx As Integer = 0 till UBound ( txtStr ) katalog
Dim workedString As String = " "
workedString = scrollingText.Substring ( idx ) & " " & scrollingText.Substring ( 0 , idx ) katalog
txtStr ( idx ) = workedString
Nästa
Timer1.Interval = 75
Timer1.Enabled = Sant
Timer1.Start ( )
5
Växla tillbaka till att bilda Design och dubbelklicka på " Timer1 " för att skapa en fästing händelse för timern . Lägg till följande kod i händelsen :
txtPos + = 1
Dim timerStr As String
timerStr = txtStr ( txtPos ) katalog
Label1.Text = timerStr
Om txtPos = UBound ( txtStr ) Sen txtPos = -1
6
Tryck " F5 " för att köra programmet och displayen löptext använder textrutan .
Addera
