Lancering Microsoft Visual Studio , klikt u op " New Project" van het linkerpaneel van uw computerscherm en uit te breiden " Visual Basic " onder " Geïnstalleerde sjablonen . " Klik op " Windows " en dubbelklik op " Windows Forms Application " van het centrum van het dialoogvenster om een ​​nieuw project aan te maken .

Dubbelklik op " Timer " 2 een toe te voegen aan uw formulier . Dubbelklik op " TextBox " om een nieuw tekstvak toe te voegen aan uw formulier . Dubbelklik op het formulier om een formulier load gebeurtenis te maken
3

Voeg de volgende code boven het formulier gebeurtenis load tot drie globale variabelen , waaronder degene die uw scrollende tekst zal houden te maken . :

Dim scrollingText
As String = " Dit is mijn lopende tekst "

Dim txtStr
( scrollingText.Length - 1 ) als Koord

Dim txtPos
As Integer = -1 < br > Goedkope 4

Voeg de volgende code in de vorm load evenement om lus door de scrollende tekst en start de timer :

idx As Integer = 0 To UBound ( txtStr ) op

Dim workedString = " "

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

txtStr
( idx ) = workedString
als Koord

Volgende

Timer1.Interval
= 75

Timer1.Enabled = True

Timer1.Start ( )

Switch 5 terug te vormen ontwerpmening en dubbelklik op " Timer1 " om een teek evenement voor de timer te creëren . Voeg de volgende code in de gebeurtenis :

txtPos
+ = 1

Dim timerStr als Koord

timerStr
= txtStr ( txtPos ) op

Label1.Text = timerStr

Als txtPos = UBound ( txtStr ) dan txtPos = -1

Druk op " F5 " 6 om het programma en weergave scrollende tekst met behulp van het tekstvak te voeren .
< br >