Astuce pour rendre invisibles tous les contrôles d'une forme

Commenter

Contenu du snippet

Cette astuce permet de mettre visible=false tout contrôle de la feuille contenant une chaîne déterminée dans sa propriété "Name". Ainsi pour cet exemple toutes les frames de la feuille contiennent la chaine "frame" dans leur nom et deviennent donc invisibles à l'activation de la feuille.

Source / Exemple : 


Private Sub Form_activate()
    HideControls ("frame")
End Sub

Private Sub HideControls(str As String)
For i = 0 To Form1.Controls.Count - 1
    If InStr(1, Form1.Controls(i), str, vbTextCompare) <> 0 Then
        Form1.Controls(i).Visible = False
    End If
Next
End Sub

Conclusion :


Fournie par Manar.

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_princefido)