‘ Création d’un modèle libre et de quelques objets
Dim modl
set modl = CreateModel(PdFRM.Cls_Model)
modl.SetNameAndCode « Search Text Sample », « »
modl.ExtendedObjects.CreateNew()
modl.ExtendedObjects.CreateNew()
modl.Packages.CreateNew()
‘ Recherche du caractère ‘_’ parmi les propriétés des objets
Dim objt, attr
For each obj in modl.Children
attr = « »
Do
attr = obj.SearchText(« _ », attr, 0)
If attr = « » Then
Exit Do
Else
output « Le caractère a été trouvé au niveau de la propriété » & attr & » de l’objet suivant » & Cstr(obj)
End If
Loop
Next