Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Visual Studio , kliknite na tlačidlo " Nový projekt " v ľavej časti okna obrazovky počítača a rozšíriť " Visual Basic " pod " Nainštalované šablóny . " Kliknite na " Windows " a double - kliknite na " Windows Forms aplikácie " od centra v dialógovom okne vytvoriť nový projekt .
2
Double - kliknite na tlačidlo " Timer " pridať jeden do formulára . Double - kliknite na " textové pole " pridať nové textové pole do formulára . Dvakrát kliknite na formulár vytvoriť udalosť Load formulára
3
Pridajte nasledujúci kód nad udalosti formulára zaťaženia vytvoriť tri globálne premenné , vrátane jednej , ktorá sa bude držať svojho posúvanie textu. :
Dim scrollingText As String = " Toto je môj rolovanie texte "
Dim txtStr ( scrollingText.Length - 1 ) As String Dim
txtPos As Integer = -1
Stránka 4
Pridajte nasledujúci kód vnútri udalosti formulára zaťaženie do slučky v texte rolovanie a spustenie časovača :
idx As Integer = 0 To UBound ( txtStr )
Dim workedString As String = " "
workedString = scrollingText.Substring ( idx ) & " " & scrollingText.Substring ( 0 , idx )
txtStr ( idx ) = workedString
Ďalšie
Timer1.Interval = 75
Timer1.Enabled = TRUE
Timer1.Start ( )
5
Prepnite späť do tvoriť návrhovom zobrazení a dvakrát kliknite na položku " časovač 1 " vytvoriť kliešť udalosť pre časovač . Pridajte nasledujúci kód vnútri udalosti:
txtPos + = 1 klipart
Dim timerStr As String
timerStr = txtStr ( txtPos )
Label1.Text = timerStr
Ak txtPos = UBound ( txtStr ) Potom txtPos = -1
6
Stlačte " F5 " pre spustenie programu a displej rolovanie textu pomocou textového poľa .