Cómo escribir el código fuente para desplazar los subtítulos hacia adelante y hacia atrás

.Versión 2

.Especificaciones de biblioteca compatibles

.¿Ensambles? ventana_inicio_ventana

. ¿Variables de montaje? izquierda y derecha, lógica

. ¿Variable de ensamblaje? Recuento, entero

. ¿Establecer variables mediante programación? Ancho de ida y vuelta, número entero

. ¿Subrutina? _Button1_clicked

Etiqueta 1. Fuente. ¿Obtener la longitud del texto? (editbox1.content)?×x?15

Etiqueta 1.left? =?0

Etiqueta 1.Título? =?Editar cuadro 1.content

¿Izquierda y derecha? = ?True

Ancho delantero y trasero = ?_Launch Window.width-?Tab 1.width?-1

Desplazamiento?()

.Subrutina? Desplazarse

.Si (izquierda y derecha)

.¿Primer recuento de bucles? (ancho delantero y trasero, recuento)

Etiqueta 1. ¿Izquierda?＝izquierda = ?Conteo

Retraso? (50)

. ()

. De lo contrario

. ¿Cuenta la primera vez en el bucle? (ancho de ida y vuelta, recuento)

Anotación 1. ¿Izquierda? =izquierda = ?Ancho del bucle? -izquierda=? Contar

Retraso(50)

. ¿Fin del ciclo de conteo? ()

.Si final

Izquierda/derecha =?Inversa (izquierda y derecha)

Desplazamiento? ()