miércoles, 1 de abril de 2009

Animar etiquetas tipo BANNER


Hola
Muchas veces queremos darle un estilo muy profesional a nuestros sistemas, una de las formas que yo utilizo es colocando etiquetas animadas tipo BANNER y creanme se ven bastante bien.

Este codigo lo copie de un ejemplo de la web del buho, pido disculpas al autor por ahora no recuerdo el nombre.

Bueno colocan una Etiqueta en el formulario y le ponen un nombre "x"
despues en el evento al cronometro del formulario colocan el siguiente codigo.


Dim ORIGINAL, QUITAUNO, PRIMERA
ORIGINAL = Me.x.Caption
QUITAUNO = Right(ORIGINAL, Len(ORIGINAL) - 1)
PRIMERA = Left(ORIGINAL, 1)
Me.x.Caption = QUITAUNO & PRIMERA

y en el intervalo de cronometro ponen 100 o lo que ustedes gusten

espero les sea de utilidad.

EJEMPLO

No hay comentarios: