Cómo Auto Scroll texto en un cuadro de texto Utilizando VB.NET

Crear una aplicación de Visual Basic.NET que el auto se desplaza el texto en un control TextBox fácilmente se puede lograr utilizando matrices de cadenas y un temporizador . Un control timer en VB.NET ejecutará código continuamente hasta que termine el programa . Utilice una matriz de String a llenarlo con el texto que desea desplazarse y mostrar diferentes elementos de la matriz en el cuadro de texto utilizando el temporizador para mostrar el efecto de desplazamiento. Instrucciones
1

lanzamiento Microsoft Visual Studio , haga clic en "Nuevo proyecto " en el panel izquierdo de la pantalla del ordenador y ampliar abajo " Visual Basic" " Plantillas instaladas ". Haga clic en "Windows " y haga doble clic en " Aplicación de Windows Forms " en el centro de la ventana de diálogo para crear un nuevo proyecto.
2

doble clic en " Timer" para agregar uno a su forma . Haga doble clic en " TextBox " para añadir un nuevo cuadro de texto al formulario. Haga doble clic en el formulario para crear un evento de carga del formulario
3

Añada el siguiente código de seguridad del evento de carga del formulario para crear tres variables globales , como el que te sostiene de tu texto con desplazamiento . :

scrollingText As String = "Este es mi desplazamiento de texto "

Dim txtStr ( scrollingText.Length - 1 ) como secuencia

txtPos Dim As Integer = -1
página 4

Añada el siguiente código dentro del evento de carga del formulario para recorrer el texto en movimiento e iniciar el temporizador :

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

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

txtStr ( idx ) = workedString
< p> Siguiente

Timer1.Interval = 75

Timer1.Enabled = True

Timer1.Start ()
5

volver a formar vista de diseño y haga doble clic en " Timer1 " para crear un evento tick del temporizador . Agregue el siguiente código dentro del evento :

txtPos + = 1

timerStr dévil como secuencia

timerStr = txtStr ( txtPos )

Label1.Text = timerStr

Si txtPos = UBound ( txtStr ) Entonces txtPos = -1
6

Press "F5 " para ejecutar el programa y el desplazamiento de texto de visualización utilizando el cuadro de texto .