Autor Tema: Re: Texto en movimiento (Leído 2674 veces)

SpeedCAD · « **en:** Viernes 28 de Marzo de 2003, 15:52 »

Hola...

Como puede hacer un texto en movimiento?

Me imagino que se hara con un timer pero no se como, lo que quiero hacer es lo siguiente:

Por ejemplo un cuadro de Creditos, donde se especifique el programador, diseño, agredecimientos, etc. y que todo esto se valla moviendo hacia arriba y que cuando desaparezca del formulario vualva a aparecer abajo y asi sucesivamente, como cuando termina una pelicula se mueve el texto hacia arriba, la unica diferencia es que aqui necesito que cuando desaparezca vuelva a aparecer abajo...

Un saludo de SpeedCAD...

CHILE

HurryCrack

No se, pero deberia ser una cosa como que las LABEL que contengan el texto se muevan, mas o menos, esto:

en el Form_Load

timer1.Enabled=TRUE
timer1.Interval=500

en el timer1_timer()

For i=0 to Num_Max_Label

if label(i).Up>0 then
label(i).Up=label(i).Up-50
else
label(i).Up=Me.Height-50
end if
next

O algo asi por el estilo. Fale?
Un saludo

José D

Hey, el .Up no parece pertener como propiedad del label array, lo único que hay que empieza por U es .UseMnemonic
No entiendo:(

becker24

HOLA, MIRA AQUI TE ENVIO UN EJEMPLO DE UN TEXTO EN MOVIMIENTO HACIA ARRIBA, VEELO Y MODIFICALO PARA LO QUE QUIERES HACER, OJALA TE SIRVA, SALUDOS.
BECKER24:beer:

José D

Ya me lo asimilé:D y a mi también me servirá para algunas ideas, gracias.

SpeedCAD

Citar

Originalmente publicado por becker24
HOLA, MIRA AQUI TE ENVIO UN EJEMPLO DE UN TEXTO EN MOVIMIENTO HACIA ARRIBA, VEELO Y MODIFICALO PARA LO QUE QUIERES HACER, OJALA TE SIRVA, SALUDOS.
BECKER24:beer:

Hola...

Ok muchas gracias a todos por contestar y en especial a BECKER24, me sirvio mucho el codigo, aunque seria bueno porder asignarle a cada frase una altura de texto y fuente diferente pero de que sirve sirve mucho. Le hice un pequeño cambio, en vez de dejarlo con Picture1.ScaleWidth, lo deje como Picture1.ScaleHeght y funciona un poco mejor

HurryCrack

perdon por del .UP es .TOP:losiento:
un saludo