Besoin d'aide manipulation controls

cs_DURANDO Messages postés 34 Date d'inscription jeudi 16 février 2006 Statut Membre Dernière intervention 21 mars 2006 - 16 févr. 2006 à 14:24
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 - 16 févr. 2006 à 18:12
Bon à tous,

voila, dans une form, je souhaiterais accéder aux propriétés de mes
controls en spécifiant le nom du control dans une variable string.

Ceci afin de simplifier le code suivant en l'intégrant dans une boucle:

Reference1.Font = "courier new"

Reference2.Font = "courier new"

Etc...

Reference10.Font = "courier new"


Est-ce possible?

4 réponses

crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 28
16 févr. 2006 à 14:34
Salut, oui c'est possible avec une boucle For each sur la propriétés Controls de ta form

Dim Ctrl As Control

For Each Ctrl in MaForm.Controls
If Ctrl.Name Like "Reference*" Then Ctrl.Font = "courier new"
Next

Avec cette boucle, je modifie la fonte de tous les controles de la form MaForm dont le nom commence par "Reference" (Attention au pb de majuscule/minuscule : Si pb de ce coté, faire un truc du genre If LCase$(Ctrl.Name) Like "reference*" ...)

CR
0
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
16 févr. 2006 à 16:11
salut,

pour info, au cas ou tu chagerais ces propriétés par envie (j'entend
là, pas une modification par/pour l'utilisateur), dans un nouveau
projet, tu peux modifier la Font de la Form. ainsi, tous les contrôles
prennent par défaut cette Font (posés après la modif).

2e point, tu peux aussi sélectionner tes contrôles en édition (tous
ceux désirés) et modifier en une fois dans les propriétés....



++
0
cs_DURANDO Messages postés 34 Date d'inscription jeudi 16 février 2006 Statut Membre Dernière intervention 21 mars 2006
16 févr. 2006 à 17:21
merci à toi crenaud76,

j'avais contourné le pb en passant par le groupage de mes controls et
utilisant une boucle for next. Ta solution est plus propre : je vais
appliquer.

merci pour l'info.

+


C'est parceque les c.. sont plus nombreux qu'ils ont forcément raison!(dixit Coluche)
Une seule ligne de conduite, l'objectivité.
0
crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 28
16 févr. 2006 à 18:12
En fait, le groupage de controle est peut-êtr eune meilleure solution ! Tout en conservant la boucle For Each sur ce groupe
0
Rejoignez-nous