Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky

Domáce Hardware Siete Programovanie Softvér Otázka Systémy

Ako automaticky posúvať text v textové pole pomocou VB.NET

Vytvorenie aplikácie Visual Basic.NET , že auto rolovanie textu v ovládacom prvku TextBox možno ľahko vykonať pomocou String poľa a časovač . Ovládanie časovač v VB.NET spustí kód nepretržite až do ukončenia programu . Použite String pole vyplniť ho s textom , ktorý chcete posunúť , a zobraziť rôzne prvky poľa TextBox pomocou časovača ukázať posúvanie efekt . Pokyny dovolená 1

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 .


Najnovšie články

Copyright © počítačové znalosti Všetky práva vyhradené