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 < br > 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 .