Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Know all controls on a form
Message
De
09/04/2007 11:04:26
 
 
À
09/04/2007 08:33:48
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 8
OS:
Windows XP
Network:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01213395
Message ID:
01213447
Vues:
18
How can I know all controls on a form .
FOR EACH loControl IN Thisform.Controls
  Thisform.FindControls( loControl )
ENDFOR
This code in FindControls method:
Lparameters toControl
Local loPage, loControl, loColumn, lnCol

With toControl
  Do Case
  Case Upper( .BaseClass ) = 'PAGEFRAME'
    For Each loPage In .Pages
      Thisform.FindControls( loPage )
    Endfor

  Case Inlist( Upper( .BaseClass ), 'PAGE', 'CONTAINER' )
    For Each loControl In .Controls
      Thisform.FindControls( loControl ) 
    Endfor

  Otherwise
    ? SYS( 1272, toControl )
  Endcase
Endwith
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform