Problème de ControlCollection
Bonjour,
Je viens de rencontrer un problème, je cherche à ajouter des usercontrols de ma page dans une collection.Ensuite je vais voir si ces usercontrols on des droits de visibilité dans ma page et ensuite en fonction du résultat ils sont visibles ou pas.
Code:
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
|
Private Function ColControls() As Collection
Dim col As New Collection
col.Add(souffletBdl)
col.Add(souffletCdeCli)
col.Add(souffletDevis)
col.Add(souffletFac)
col.Add(souffletHistoEch)
col.Add(souffletUpload)
Return col
End Function
Private Sub identDroitOnControls(ByVal controls As Collection)
For Each c As Control In controls
If Not Me.GetDroitControl(c.ID) Then
c.Visible = False
End If
Next
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
identDroitOnControls(ColControls)
MyUpdatePanelGlobal.Update()
End Sub |
Hors question t'être bête mais il semblerait que les usercontrol de ma page que j ajoute dans la collection soit des objet clonés de ceux présents dans ma page car le c.visible n'agit pas sur leurs visibilités.
Ma page est mise a jour via un updatepanel.
Cordialement Jérôme.
