Comment rendre invisible tous les textbox d'une form? [Résolu]

Messages postés
184
Date d'inscription
mercredi 8 décembre 2004
Dernière intervention
1 septembre 2010
- - Dernière réponse : bibinutz
Messages postés
32
Date d'inscription
mercredi 13 avril 2005
Dernière intervention
13 janvier 2009
- 21 avril 2005 à 09:54
Bonjour à tous,

je cherche à rendre invisible tous les textbox de ma form.
j'ai essayé avec l'instruction for each ... next mais je ne réussi pas.

Quelqu'un peut il m'aider?

Merci
:)
Afficher la suite 

4 réponses

Meilleure réponse
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Dernière intervention
9 juin 2006
1
Merci
1ere possibilité : SI le design de ta form le permet, place toutes les textbox dans une picturebox (sans bordure ni rien pour qu'elle ne soit pas visible) et rend cette picturebox visible ou invisible selon que tu veux voir les textbox ou les masquer.
2eme possibilité. Si le design de ta form ne pemet pas d'utilsier la 1ere solution, voici un bout de code :
Dim Ctrl as Control
For each Ctrl in Me.Controls
If typeof Ctrl Is TextBox Then Ctrl.Visible = False
Next

Ce code est à mettre dans le module de la form ou se trouve les textbox à masquer. On pourrait le mettre dans un module standard et l'adapter pour éventuellement traiter n'importe quel form
Christophe R.

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 105 internautes ce mois-ci

Messages postés
586
Date d'inscription
jeudi 18 septembre 2003
Dernière intervention
13 février 2008
1
Merci
une eutre solution si les textbox sont un groupe de control
il suffit de faire
for i=Textbox.lbound to textbox.ubound
textbox(i).visible=false
next
pour creer un groupe de control il suffit de le copier puis le coller.
tu verras apparaitre un message clique sur oui.
Life is short...Learn more
Copy Rights <> Rights to Copy

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 105 internautes ce mois-ci

Messages postés
184
Date d'inscription
mercredi 8 décembre 2004
Dernière intervention
1 septembre 2010
0
Merci
Merci crenaud76

j'avais essayé avec
Ctrl.TypeName "Texte" then Ctrl.Visible false

et ca ne marchait pas

Ta solution fonctionne très biem
Merci

:approve)
Messages postés
32
Date d'inscription
mercredi 13 avril 2005
Dernière intervention
13 janvier 2009
0
Merci
>>MasterHack je tenais à te remercier pour ce code lol parce que j'en ai chier pour trouver comment faire pour effacer toutes mes txtbox se trouvant ds un groupe de controle
juste une question est ce que quelqu'un peut clairement expliquer comment fonctionne la structure For... Each ?
merci

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.