~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période. Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes. ~ Rechercher ~
~ Annuaire VB ~
~ Partenaires ~
|
Procédure : ChangeEnabled Dim x As Object ' Permet de sauter les erreurs au cas ou la propriété ' Container de l'objet n'est pas accessible On Error Resume Next ' Parcours de tous les éléments de la fenêtre courante For Each x In Me.Controls If x.Container = stFrame Then ' En cas d'erreur, saute le test If Err = 0 Then ' Test l'existence d'un frame (on pourrait ' faire la même chose pour une picture...) If TypeOf x Is Frame Then ' Appel récursif, au cas ou il y aurait un frame ' à l'intérieur du premier, et ainsi de suite Call metEnabled(blEnabled, x.Name) End If x.Enabled = blEnabled End If Err = 0 ' Réinitialise la valeur d'erreur End If Next End Sub |