RE: [Mundo Visual FoxPro] Crear una Marquesina

[Intel Man]

Hola. gracias por la inciativa de enviar un codigo :)

Creo que a muchos nos servira este efecto :)

Saludos


> Date: Thu, 26 Mar 2009 06:36:41 -0700
> Subject: [Mundo Visual FoxPro] Crear una Marquesina
> From: gianfra...@gmail.com
> To: mundovis...@googlegroups.com
>
>
> Hola como estas mi nombres es Ing. Jimmy Gianfranco del Carpio
> Corrales, en este pequeño ejemplo les explico como crear una
> marquesina primero:
>
> 1. Inserte un Objeto Timer en el formulario
> 2. En el Evento del formulario Init se coloca la instrucción
> 3. THISFORM.TIMER1.INTERVAL = 225
> 4. En el Evento del Objeto Timer se coloca la instrucción
> 5. THISFORM.Label#.Caption = SUBSTR (THISFORM.Label#.Caption,2) + LEFT
> (THISFORM.Label#.Caption,1)
> 6. En el Objeto LABEL# se debe colocar el texto de la siguiente
> manera.
> 7. ' Hola'
> 8. El motivo de dar espacio en blanco en el Objeto LABEL# es para
> porder ejecutar el paso 5 ya que si no se deja el espacio el texto
> 'Hola' se mueve de un lado al otro sin parar y no tiene el efecto
> marquesina.
>
> Espero que les ayude esta pequeña rutina, mi correo para preguntas o
> opiniones:
>
> 1. gianfra...@hotmail.com
> 2. gianfra...@gmail.com
>
>
>

[Julio Cesar Rodriguez Dominguez]

Eso es tener ganas de compartir las cosas. :-)

[SeusFox]

Muchas Gracias Gianfranco, es una excelente contribucion ya que no
requiere de mucho tiempo ni de muchas lineas de codigo para poder
realizar dicho efecto de marquesina del que has dado como contribucion
a nuestra grandiosa comunidad.


Saul Macedo
SeusFox

[3rn3st0]

Muy bueno, sobre todo por lo sencillo de implementar y con una
explicación sin mucho rebusque.

Gracicias :-)

On 26 mar, 09:36, Jimmy_Gianfranco <gianfrancoj...@gmail.com> wrote:
> Hola como estas mi nombres es  Ing. Jimmy Gianfranco del Carpio
> Corrales, en este pequeño ejemplo les explico como crear una
> marquesina primero:
>
> 1. Inserte un Objeto Timer en el formulario
> 2. En el Evento del formulario Init se coloca la instrucción
> 3. THISFORM.TIMER1.INTERVAL = 225
> 4. En el Evento del Objeto Timer se coloca la instrucción
> 5. THISFORM.Label#.Caption = SUBSTR (THISFORM.Label#.Caption,2) + LEFT
> (THISFORM.Label#.Caption,1)
> 6. En el Objeto LABEL# se debe colocar el texto de la siguiente
> manera.
> 7. '                                                     Hola'
> 8. El motivo de dar espacio en blanco en el Objeto LABEL# es para
> porder ejecutar el paso 5 ya que si no se deja el espacio el texto
> 'Hola' se mueve de un lado al otro sin parar y no tiene el efecto
> marquesina.
>
> Espero que les ayude esta pequeña rutina, mi correo para preguntas o
> opiniones:
>

> 1. gianfrancoj...@hotmail.com
> 2. gianfrancoj...@gmail.com

[Marco Canessa Alfaro]

Para cambiar la dirección de la marquesina:

En el punto 5 cambiar:
largo=len(thisform.label1.Caption)
THISFORM.Label1.Caption = right(THISFORM.Label1.Caption,1) + SUBSTR
(THISFORM.Label1.Caption,1,largo-1)

Contribuyendo con el aporte del compañero Gianfranco...

--------------------------------------------------
From: "3rn3st0" <ernest...@gmail.com>
Sent: Thursday, March 26, 2009 9:55 AM
To: "Mundo Visual FoxPro" <mundovis...@googlegroups.com>
Subject: [Mundo Visual FoxPro] Re: Crear una Marquesina