Crear una propiedad en el formulario nTamañoNew y asignarle = 0
Timer
Propiedad InterEval = 300
cTitulo = "Sistema de Información de Vida Panamá Cotizaciones y ventas -
www.vidapanama.com -" && Usuario actual..."+alltrim(xuser)
nTamaño = Len(cTitulo)
If ThisFormset.nTamañoNew <= nTamaño
This.Parent.caption = Substr(cTitulo,1,Thisformset.nTamañoNew)
ThisFormset.nTamañoNew = ThisFormset.nTamañoNew + 1
Else
ThisFormset.nTamañoNew = 0
Endif
Espero le sirva
Jairo
Nada corre como el Zorro
-----Mensaje original-----
De: publice...@googlegroups.com
[mailto:publice...@googlegroups.com] En nombre de Euro Nava
Enviado el: Viernes, 15 de Abril de 2011 10:17
Para: Comunidad de Visual Foxpro en Español
Asunto: [vfp] ejemplo uso del timer
Buenos días en http://www.portalfox.com/index.php?name=News&file=article&sid=1882&mode=nested&order=0&thold=0 encontrarás un ejemplo básico para entender un poco el funcionamiento de TIMER.
Gracias
Bendiciones
Bendiciones
-----Mensaje original-----
De: publice...@googlegroups.com
[mailto:publice...@googlegroups.com] En nombre de Jairo Miranda
Enviado el: Viernes, 15 de Abril de 2011 10:50 a.m.
Para: publice...@googlegroups.com
Asunto: RE: [vfp] ejemplo uso del timer