Erstellen einer Visual Basic.NET -Anwendung, die automatisch scrollt Text in einem TextBox-Steuerelement kann leicht unter Verwendung String -Arrays und einen Timer werden. Ein Timer-Steuerelement in VB.NET -Code wird kontinuierlich ausgeführt, bis das Programm beendet . Verwenden Sie ein String-Array , um es mit dem Text, den Sie blättern füllen , und zeigt verschiedene Elemente des Arrays in das Textfeld mit dem Timer um den Bildlauf Wirkung zeigen . Anleitung
1

Starten Sie Microsoft Visual Studio , klicken Sie auf " Neues Projekt " aus dem linken Bereich des Displays Ihres Computers und zu erweitern " Visual Basic " unterhalb " Installierte Vorlagen . " Klicken Sie "Windows " und doppelklicken Sie auf "Windows Forms Application" aus der Mitte der Dialog um ein neues Projekt zu erstellen.
2

Doppelklicken Sie auf " Timer" , um eine zu Ihrem Formular hinzuzufügen. Doppelklicken Sie auf " TextBox ", um ein neues Textfeld zu Ihrem Formular hinzuzufügen. Doppelklicken Sie auf das Formular, um eine Form Load-Ereignis erstellen
3

Fügen Sie den folgenden Code oberhalb der Form Load-Ereignis zu drei globale Variablen , einschließlich der , die Ihren Lauftext halten wird zu erstellen. :

Dim scrollingText As String = "Das ist mein Lauftext "

Dim txtStr ( scrollingText.Length - 1 ) As String Dim

txtPos As Integer = -1

4

Fügen Sie den folgenden Code in das Form Load-Ereignis in einer Schleife durch den Lauftext und starten Sie den Timer :

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

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

txtStr ( idx ) = workedString
< p> Weiter

Timer1.Interval = 75

Timer1.Enabled = True

Timer1.Start ()
5

Schalter zurück zu bilden Design-Ansicht und doppelklicken Sie auf " Timer1 " einen tick Ereignis für den Timer zu erstellen. Fügen Sie den folgenden Code innerhalb der Veranstaltung:

txtPos + = 1

Dim timerStr As String

timerStr = txtStr ( txtPos )

Label1.Text = timerStr

Wenn txtPos = UBound ( txtStr ) Dann txtPos = -1
6

Presse "F5" , um das Programm und Display- Laufschrift mit dem Text -Box laufen .