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

phantom_2005 184 Messages postés mercredi 8 décembre 2004Date d'inscription 1 septembre 2010 Dernière intervention - 22 déc. 2004 à 09:33 - Dernière réponse : bibinutz 32 Messages postés mercredi 13 avril 2005Date d'inscription 13 janvier 2009 Dernière intervention
- 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
crenaud76 4172 Messages postés mercredi 30 juillet 2003Date d'inscription 9 juin 2006 Dernière intervention - 22 déc. 2004 à 10:02
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.

Merci crenaud76 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

Meilleure réponse
cs_MasterHack 586 Messages postés jeudi 18 septembre 2003Date d'inscription 13 février 2008 Dernière intervention - 22 déc. 2004 à 16:18
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

Merci cs_MasterHack 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

phantom_2005 184 Messages postés mercredi 8 décembre 2004Date d'inscription 1 septembre 2010 Dernière intervention - 22 déc. 2004 à 10:22
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)
bibinutz 32 Messages postés mercredi 13 avril 2005Date d'inscription 13 janvier 2009 Dernière intervention - 21 avril 2005 à 09:54
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.