Passer un controle en argument !!

Question

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

cs_processus · Answer

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

cs_pimousse75 · Answer

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+

Passer un controle en argument !!

2 réponses

Discussions similaires