Powerd911 – Numéro #1 au Canada

Recherche d’un caractère parmi les objets d’un modèle

‘ 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

Laisser un commentaire

Contacter nous
300 characters left