enable a control programatically vb.net (asp)

[Francois Stander]

Hope someone could help.

I read all the controls on a page using the following statement:

For i = 0 To Page.Form.Contr ols.Count - 1
try
Page.Form.Contr ols.Item(i).Vis ible = False
' here I would not like to set the property to "visible" to false.
'I would rather set the enable property to false
Catch
End Try
Next

The controls are checked against a security table whether the user should have access to it or not. If not access, the enable property must be set to false.
On entering the dot - no "enable" property is shown and I dont know how to get to work. I use visio studio 2005

Please help!
Regards
Francois

[pmatty9779]

Hai

i'm a rookie in programming. when i came accross a similar problem i searched the net then i got this posting

i tried my self and got a solution
this function below solvet the problem


Private Function EnableCntrls(By Val Switch As Boolean) As Boolean
Dim i As Integer
If Switch = False Then
For i = 0 To frmDefault.Cont rols.Count - 1
Dim Str As String
Str = frmDefault.Cont rols.Item(i).Ge tType().ToStrin g
If Str = "System.Web.UI. WebControls.Tex tBox" Then
Dim cntrl As WebControl
cntrl = frmDefault.Find Control(frmDefa ult.Controls.It em(i).ID)
cntrl.Enabled = False
End If
If Str = "System.Web.UI. WebControls.Dro pDownList" Then
Dim cntrl As WebControl
cntrl = frmDefault.Find Control(frmDefa ult.Controls.It em(i).ID)
cntrl.Enabled = False
End If
Next
Else
For i = 0 To frmDefault.Cont rols.Count - 1
Dim Str As String
Str = frmDefault.Cont rols.Item(i).Ge tType().ToStrin g
If Str = "System.Web.UI. WebControls.Tex tBox" Then
Dim cntrl As WebControl
cntrl = frmDefault.Find Control(frmDefa ult.Controls.It em(i).ID)
cntrl.Enabled = True
End If
If Str = "System.Web.UI. WebControls.Dro pDownList" Then
Dim cntrl As WebControl
cntrl = frmDefault.Find Control(frmDefa ult.Controls.It em(i).ID)
cntrl.Enabled = True
End If
Next
End If
End Function