| Pregunta: | 12830 - TEXTO ANIMADO LINEA POR LINEA |
| Autor: | Antonio Sanchez |
| Tengo un texto; el cual deseo aparezca en forma animada (linea por linea), como el texto es algo largo, necesito que vaya caminando... para dar vista al resto del texto.
O si saben de alguna otra utileria... Muchas Gracias | |
| Respuesta: | Jose A. |
| Hola. Verás, según he entendido tu pregunta, lo que quieres es que el texto aparezca igual que si fueran los títulos de crédito de una peli. Bien, eso no es difícil e intentaré explicártelo paso a paso.
1º.- creas un "PICTUREBOX" al que llamamos, por ejemplo "picCreditos". 2º.- creas, dentro de picCreditos, otro "PICTUREBOX" al que llamemos, por ejemplo, "picDesplazable" (éste es el que hace el efecto de desplazamiento). 3º.- dentro de pctDesplazable pones lo que quieras (etiquetas de texto, dibujos, un fichero entero de texto...) 4º.- En el procedimiento Load del Formulario, pones el siguiente código: 'Establece el Ancho de la ventana "desplazable" al ancho ventana de "visión". PicDesplazable.Width = PicCreditos.ScaleWidth ' Inicializa la Posición de la ventana "desplazable" al final 'de la ventana de "visión", en la X=0, y le quita el Borde. PicDesplazable.Top = PicCreditos.Height PicDesplazable.Left = 0 PicDesplazable.BorderStyle = 0 5º.- Ya casi está hecho. Ahora pones un control "TIMER" con las siguientes propiedades: ENABLED = True y INTERVAL = 10 (por ejemplo). 6º.- En el evento Timer del control Timer1, escribe el siguiente código: 'Desplaza la Ventana de Créditos 15 pixeles hacia arriba. PicDesplazable.Top = PicDesplazable.Top - 15 'Si ya ha pasado toda la Ventana de Créditos, vuelve a empezar. If PicDesplazable.Top <= (1 - 2) * PicDesplazable.Height Then _ PicDesplazable.Top = PicCreditos.Height En realidad, es fácil, ¿verdad?, se basa en ir moviendo el picture de dentro cada x tiempo (milisegundos) una candtidad y de píxeles hacia arriba y, cuando la parte de abajo del picture que se mueve sobrepasa la parte de arriba del picture contenedor, vuelta a empezar. Y YA ESTÁ, ya tienes una ventana de títulos de crédito con en la tele. Espero haberte ayudado, si quieres, te puedo mandar el código por correo. Un Saludo. | |
| Respuesta: | SuNcO |
| Eso es algo facil, ocupas utilizar el LineInput y una especie de trucos sencillos
Puedes poner : open archivo for input as #1 do Line Input #1, linea temp = linea [+ chr(13) + chr(10)] temp = temp + text1 [+ chr(13) + chr(10)] text1 = temp while not eof(#1) close #1 O puedes hacer una funcion ke se llame Leer y ke con un Timer se meta ahi cada segundo y lea una nueva linea hasta ke marke error, osea al llegar al final, y ya detener el Timer, claro, tienes ke detectar el error con On Error goto Errores o algo asi Claro, debes abrir el archivo cuando des click en el boton (o en el Load) y cerrarlo ya ke marke error Lo ke esta en corchetes de cuadro es opcional, lo ke pasa eske no tengo el VB aki pero al tanteo mas o menos es asi | |