Enabled = false pour tout les controls

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 733 fois - Téléchargée 48 fois

Contenu du snippet

En quelque ligne on peut mettre pas enabeld tout les controls de la forme, ou invisible, la propriété que vous voulez quoi !!

Source / Exemple :


'rent tout les controls pas enabled
On Error Resume Next
Dim CTL As Object
For Each CTL In Me.Controls
CTL.Enabled = False
Next CTL
'rent tout les TextBoxs pas Enabled
On Error Resume Next
Dim CTL As Object
For Each CTL In Me.Controls
If TypeOf Ctl is TextBox Then  CTL.Enabled = False
Next CTL

Conclusion :


Rien

A voir également

Ajouter un commentaire Commentaires
Messages postés
7
Date d'inscription
mercredi 16 novembre 2005
Statut
Membre
Dernière intervention
19 novembre 2005

Bonjour

La commande Controls.Count prend en compte quels contrôles? : tout ceux de mon UserForm, de mon projet global... parce que Count indique le nombre d'éléments contenus dans une collection spécifiée... mais là je spécifie rien!?

Autre chose : Controls(X).Enabled = False
--> comment je sais quel contrôle est associé à X? J'ai pas l'impression que ça dépend du TabIndex par exemple...?

Merci d'avance :)

Kmi
Messages postés
31
Date d'inscription
mercredi 26 décembre 2001
Statut
Membre
Dernière intervention
9 avril 2002

Oups la première phrase c'est:
For X=0 To Controls.Count - 1
Pardon de l'erreur
Messages postés
31
Date d'inscription
mercredi 26 décembre 2001
Statut
Membre
Dernière intervention
9 avril 2002

Je crois qu'il y a beaucoup plus simple.

For X = 0 To Controls.Count
Controls(X).Enabled = False
Next X

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.