La pestaña de idioma simple se mueve lentamente de izquierda a derecha y automáticamente obtiene cuántas palabras hay actualmente. Una vez hecho esto, se moverá lentamente de izquierda a derecha nuevamente. código fuente

. Ensamblaje Ensamblaje de ventana 1

.¿Variable de ensamblaje?bDirección,?Tipo lógico

.¿Subrutina?___Iniciar ventana_creada

bDirección?=?Falso?' de movimiento, falso significa hacia la derecha, verdadero significa viceversa

. Evento subrutina _clock1_cycle

Variable local ?nCharCounter, entero

Variable local szMsg, tipo de texto

. Si (bDirection=False)

Etiqueta 1.left = ?Label1.left?+ ?5?'?Mover a la derecha

. Si es cierto, entonces (label1.left = _Iniciar ventana. Ancho - Etiqueta 1.ancho)? ¿Determinar si se alcanzó el límite

reloj1.período de reloj =?0

nCharCounter? Toma ¿Cuál es la longitud del texto? (etiqueta 1.título)

szMsg?=?"Se ha completado el movimiento hacia la derecha; la longitud actual del texto es: "?+?(nCharCounter)

bDirection?=? ¿Verdadero?' ?Cambiar dirección al alcanzar el límite

MessageBox?(szMsg,?0,?)

Reloj 1. Período de reloj = 100

. , fin

. De lo contrario

etiqueta 1.izquierda = ?etiqueta 1.izquierda?-?5

. Si es verdadero, entonces (label1.left? = ?0)

clock1.clock period? = ?0

nCharCounter? (etiqueta 1.título)

szMsg?=?"Se ha completado el movimiento hacia la izquierda; la longitud actual del texto es: "?+?(nCharCounter)

bDirection?=? Falso

Infobox? (szMsg,?0,?)

clock1.clockPeriod?=?100

.Si es verdadero,

Agregar control de reloj, control de etiqueta.