Passer un controle en argument !!

Signaler
Messages postés
138
Date d'inscription
jeudi 17 janvier 2002
Statut
Membre
Dernière intervention
22 octobre 2002
-
Messages postés
138
Date d'inscription
jeudi 17 janvier 2002
Statut
Membre
Dernière intervention
22 octobre 2002
-
Bonjour,

je voudrais creer une fonction qui met en enable=false tous les controles d'une frame

Comment appeler la fonction sachant que ma frame s'appelle FrameAjoutCompCollab

J'ai essaye ceci mais cela ne marche pas !

Call EnableOrNotCtl(FrameAjoutCompCollab)

Public Function EnableOrNotCtl(La_Forme As Frame)

Dim ctl As Control

For Each ctl In La_Forme
ctl.Enabled = False
Next ctl

End Function

2 réponses

Messages postés
360
Date d'inscription
vendredi 24 août 2001
Statut
Membre
Dernière intervention
9 juillet 2008
3
Essaye
For Each ctl In La_Forme.Controls
ctl.Enabled = False
Next ctl

==============
Site Web de JDPROG
Présentation de MP3 Index
Logiciel d'indexation de fichier MP3

http://jdprog.fr.st
0
Messages postés
138
Date d'inscription
jeudi 17 janvier 2002
Statut
Membre
Dernière intervention
22 octobre 2002

Oui tu as entierement raison, on ne peut pas faire comme je le souhaitais car la frame est deja un controle !

Au final j'ai fait comme ca :

Public Function EnableOrNotCtl(La_Forme As Form, La_Frame As Frame, val As Boolean)

Dim ctl As Control

For Each ctl In La_Forme If ctl.Container.Name La_Frame.Name Then ctl.Enabled val
Next ctl

End Function

Merci A+
0