Enabled = false pour tout les controls

0/5 (3 avis)

Snippet vu 4 921 fois - Téléchargée 49 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
cs_kmi59 Messages postés 7 Date d'inscription mercredi 16 novembre 2005 Statut Membre Dernière intervention 19 novembre 2005
17 nov. 2005 à 14:27
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
cs_Belge Messages postés 31 Date d'inscription mercredi 26 décembre 2001 Statut Membre Dernière intervention 9 avril 2002
19 janv. 2002 à 22:04
Oups la première phrase c'est:
For X=0 To Controls.Count - 1
Pardon de l'erreur
cs_Belge Messages postés 31 Date d'inscription mercredi 26 décembre 2001 Statut Membre Dernière intervention 9 avril 2002
19 janv. 2002 à 21:57
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.