1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
|
Private sub ChangeEtat(Byval Int_ModeEcran As IDesignState.ModeEcran)
Dim objControlEnfant As Control
For each objControlEnfant in Me.Controls
ChangeEtatComposant(Int_ModeEcran, objControlEnfant)
Next
End Sub
Private sub ChangeEtatComposant(Byval Int_ModeEcran As IDesignState.ModeEcran, Byval objControl As Control)
Dim objControlEnfant As Control
Dim clsDesignComp As IDesignState
For each objControlEnfant in Me.Controls
ChangeEtatComposant(Int_ModeEcran, objControlEnfant)
Next
' C'est ici que je me sers de l'interface
' pour déterminer si le control peut être modifier
If Not Typeof objControl Is IDesignState Then Exit Sub
' Récupération de l'interface
clsDesignComp = CType(objControl, IDesignState)
Select Case Int_ModeEcran
Case ModeEcran.Vide
objControl.Enabled = clsDesignComp.EnabledOnVide
Case ModeEcran.Visu
objControl.Enabled = clsDesignComp.EnabledOnVisu
Case ModeEcran.Modif
objControl.Enabled = clsDesignComp.EnabledOnModif
Case ModeEcran.Creat
objControl.Enabled = clsDesignComp.EnabledOnCreat
End Select
End Sub |
Partager