Aug 22
Importante truco... En muchas ocasiones necesitaremos recorrer un contenedor y todos sus objetos... por ejemplo recorrer cada objeto de un formulario o de una PageFrame. Este procedimiento se llama recursivamente hasta recorrer todo los objetos del contenedor que se le pase como parámetro.
Lo que debes hacer es crear un método llamado Recorrer y colocar el siguiente código:
Lparameters oObj
Local oControl
For Each oControl In oObj.Objects
Wait window oControl.Name
If Pemstatus(oControl, 'Objects', 5)
This.Recorrer(oControl)
EndIf
EndFor
Cuando quieras conocer los objetos de un contenedor solo le debes pasar el contenedor al método. Por ejemplo: Los objetos de un formulario:
Thisform
.Recorrer(Thisform)En caso que quieras conocer los objetos de un pageframe entonces le pasas como parámetro el Pageframe
Thisform.Recorrer(Thisform.PageFrameMio)
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
