FoxPro/Visual FoxPro - ayuda

buenas tardes estoy tratando de usar un rstring pero no encuentro en la ayuda de fox ningún tema al respecto alguien sabe como se puede utilizar. gracias y saludos

Podrías explicarnos mejor ... la verdad la pregunta no se entiende ... que es un rstring? .... quisiste decir string?

David Amador Tapia
WebMaster "La Web de Davphantom"
www.davphantom.net
Cartagena. Colombia

bueno creo que es un control que se llama Rs es utilizado para mostrar un nombre o titulo, como si usaramos un label con un timer y le decimos que se mueve hacia los lados

La verdad no conozco dicho control ... si deseas explicanos un poco más que hace y talvez podamos ayudarte a crear una clase que haga lo mismo.

David Amador Tapia
WebMaster "La Web de Davphantom"
www.davphantom.net
Cartagena. Colombia

bueno mira es como esos letreros de sodas y esas cosas donde tu le pones por ejemplo "Programa de Venta" y se mueve y se esconde hacia la derecha y sale por la izquierda las letras son puros puntos y escojes el color que te guste

Pon un timer en tu forma y pon este codigo en el evento TIMER del control:

public nMovimientos
if nMovimientos=len(alltrim(thisform.label1.caption))*3
nMovimientos=0
thisform.label1.caption=alltrim(thisform.label1.caption)
else
nMovimientos=nMovimientos+1
thisform.label1.caption=space(1)+thisform.label1.caption
endif

Donde solo deberas sustituir la palabra "label1" con el nombre de tu etiqueta...en la propiedad INTERVAL del timer pon 100

Creo que esto es mas o menos lo que quieres...particularmente yo diria que no lo uses...

Ya me fije que hay un "error" o mejor dicho el codigo esta incompleto, aqui esta el codigo para mejorarlo:

PUBLIC nMovimientos

IF nMovimientos==LEN(ALLTRIM(THISFORM.label1.CAPTION))*3
nMovimientos=0
pasadoUnaVez=.T.

ELSE

IF pasadoUnaVez
nCaracteres=nCaracteres+1
THISFORM.label1.CAPTION=RIGHTC(labelCaption,nCaracteres)
IF LEN(ALLTRIM(THISFORM.label1.CAPTION))==LEN(labelCaption)
pasadoUnaVez=.F.
nCaracteres=0
ENDIF
ELSE
nMovimientos=nMovimientos+1
THISFORM.label1.CAPTION=SPACE(1)+THISFORM.label1.CAPTION
ENDIF
ENDIF

en el init de la forma pon esto:

public LabelCaption, pasadoUnaVez, nCaracteres
nCaracteres=0
pasadoUnaVez=.F.
labelCaption=thisform.label1.caption

Todo esto podria ser mejorado usando clases...

paa que esto funcione el tamaño del texto debe ser igual al tamaño del objeto label.