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

Question

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
 :)

crenaud76 · Answer

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.

phantom_2005 · Answer

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)

cs_MasterHack · Answer

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

bibinutz · Answer

>>MasterHack je tenais &#224; 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

Comment rendre invisible tous les textbox d'une form?

4 réponses

Discussions similaires