|  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Hur Auto Scroll text i en textruta Använda VB.NET

    Skapa ett Visual Basic.NET program som automatiskt rullar text i en textruta kontroll lätt kan åstadkommas med hjälp av String arrayer och en timer . En timer kontroll i VB.NET kommer att exekvera kod kontinuerligt tills programmet avslutas . Använd en String array för att fylla den med den text du vill bläddra och visa olika elementen i uppsättningen i textrutan med timer för att visa den rullande effekten . Instruktioner
    1

    Launch Microsoft Visual Studio , klicka på " Nytt projekt " från den vänstra rutan på din datorskärm och expandera " Visual Basic " under " Installerade mallar . " Klicka på " Windows " och dubbelklicka på " Windows Forms Application " från mitten av dialogrutan för att skapa ett nytt projekt .
    2

    Dubbelklicka på " Timer " för att lägga till en till formuläret . Dubbelklicka på " TextBox " för att lägga till en ny textruta i formuläret . Dubbelklicka på formuläret för att skapa en händelse formulär belastning
    3

    Lägg till följande kod ovanför formuläret load-händelse för att skapa tre globala variabler , däribland en som kommer att hålla din rullande text . :

    Dim scrollingText As String = " Detta är min rullande text "

    Dim txtStr ( scrollingText.Length - 1 ) As String

    Dim txtPos As Integer = -1

    4

    Lägg till följande kod i form load-händelse att slinga genom rullande text och starta timern :

    för idx As Integer = 0 till UBound ( txtStr ) katalog < p > Dim workedString As String = " "

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

    txtStr ( idx ) = workedString
    < p > Nästa

    Timer1.Interval = 75

    Timer1.Enabled = Sant

    Timer1.Start ( )
    5

    Växla tillbaka till att bilda Design och dubbelklicka på " Timer1 " för att skapa en fästing händelse för timern . Lägg till följande kod i händelsen :

    txtPos + = 1

    Dim timerStr As String

    timerStr = txtStr ( txtPos ) katalog

    Label1.Text = timerStr

    Om txtPos = UBound ( txtStr ) Sen txtPos = -1
    6

    Tryck " F5 " för att köra programmet och displayen löptext använder textrutan .

    Addera

    Tidigare:

    nästa:
    relaterade artiklar
    ·Hur man skapar en funktion i Visual Basic
    ·Hur man använder Boolean Flags i VB
    ·Hur till låsa upp ett konto Script
    ·Vilka är de olika händelser i Visual Basic
    ·Om en VB Runtime Error 462
    ·Hur man öppnar ett Word-dokument i Visual Basic
    ·Hur man använder OCX filer i VB 6
    ·Hur man använder VB6 DLL från Vb.Net Applications Poc…
    ·Vad kallar ni det när en text är tomt i VB.NET
    ·Inaktivera knappen Stäng i Visual Basic 6
    Utvalda artiklarna
    ·PHP ' Om ' Statement Tutorial
    ·Hur att rengöra en inbuffert i C + +
    ·Hur du ändrar teckensnitt färger i Java
    ·Vad är Microsoft Visual Studio 6.0
    ·Hur man beräknar mellan 2 datum i Java
    ·Hur man gör Textruta visa beroende på en listruta i V…
    ·Hur du kontrollerar om ett giltigt datum i Perl
    ·Hur du ändrar en PanelView
    ·Hur man byter en fil i PHP
    ·VBScript & SQL Tutorial
    Copyright © Dator Kunskap http://www.dator.xyz