Scrolling tekst in een controle met behulp van Visual Basic.NET is niet zo ingewikkeld als u misschien denkt Scroll . Om voor u om tekst te scrollen , je gaat nodig hebben om een deel van de code een aantal keer uit te voeren . De beste manier om dit te doen is door gebruik te maken van een " timer" controle in uw toepassing . U kunt een timer starten om uw code uit te voeren totdat de timer wordt gestopt . De " Timer " controle is onzichtbaar voor de gebruiker , en het wordt vaak gebruikt voor de achtergrond verwerking . Wat je nodig hebt
Microsoft Visual Studio
Toon Meer Aanwijzingen
1 Lancering Microsoft Visual Studio , klikt u op " New Project" van het linkerpaneel van uw computerscherm , en uitbreiden " Visual Basic " onder " Installed Sjablonen . " Klik op " Windows " en dubbelklik op " Windows Forms Application " van het centrum van het dialoogvenster , om een nieuw project aan te maken . Kopen van 2 Dubbelklik op " Timer " om een timer toe te voegen aan uw formulier . Dubbelklik op "Label" om een nieuw label toe te voegen aan uw formulier . Een knop gebruikmaking van dezelfde techniek . . Dubbelklik op " Button1 " naar een gebeurtenis click voor deze toets te creëren
Kopieer 3 en plak de volgende code in de gebeurtenis click knop :
index als Geheel = 0 Om UBound ( textString ) Dim workedString
= " "
workedString = scrollText.Substring ( index ) & " " & scrollText.Substring ( 0 , index ) op als Koord textString ( index ) = workedString Volgende Timer1.Interval
= 75
Timer1.Enabled = True Timer1.Start
( ) < br >
Switch 4 terug naar het ontwerp bekijken en dubbelklik op " Timer1 " om een teek evenement voor de timer te creëren vormen . Voeg de volgende code in de gebeurtenis : xpos
+ = Dim tmrStr 1
als Koord tmrStr
= textString ( xpos ) op Label1.Text = tmrStr
Als xpos = UBound ( textString ) dan xpos = -1
Druk op " F5 " 5 om het programma uit te voeren , en klik op " Button1 " om scrollende tekst met behulp van het label weer te geven .
|
