Aug 22
Este truco te permitirá conocer cual es el tamaño de la tabla que tengas activa en VFP
cGif = "c:RutaImagenAnimada.gif"
Public oForm
oForm = Createobject("MiForm")
oForm.Show
Define Class MiForm As Form
Add Object myBrowser As OleControl ;
with OleClass="Shell.Explorer",;
Height=120,Width=120
Procedure myBrowser.Refresh
Nodefault
EndProc
Procedure Init
With This.myBrowser
.Navigate2("file://" + cGif)
Do While .ReadyState # 4
EndDo
.Document.body.Scroll
= "no"
EndWith
EndProc
EndDefine
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
