Deshabilitar los controles de una pagina

[DADU]

Hola, tengo un formulario que uso para dar de alta un registro. Pero luego de ser dado de alta no quiero que se modifique, pero si que sirva de consulta.
Quiero setear como disabled todos los controles, se podra hacer recorriendo alguna coleccion, algo asi:

Dim frmTextBox As TextBox

For intN = 1 To Me.Controls.Count() - 1

If TypeOf (Me.Controls.Item(intN) Is TextBox) Then
frmTextBox = Me.Controls.Item(intN)
frmTextBox.Enabled = False

ElseIf TypeOf (Me.Controls.Item(intN)) Is TextBox Then
End If
Me.Controls.Item(intN).GetType()

Next

Esto no me anda, como puedo referenciar los controles ????

Gracias, Daniel.

[sindestino]

el problema es que cada colección de controles puede tener a su vez controles que sean colecciones de controles ¿se entiende?
P.Ej.: una tabla es una colección de controles que tiene un textbox, un image y un panel, que también tiene su colección de controles la cual incluye un botón, etc.

Lo que yo hago para recorrer los controles de una página es hacerme una función RECURSIVA que reciba como parámetro una ControlCollection. Dicha función recorre todos los controles de la collección haciendo cierto trabajo en ellos (deshabilitarlos u otra cosa) y verifica que cada control no tenga su propia CC, en caso de que si lo tenga, la función se vuelve a llamar pasándole como parámetros esta nueva Colección.
De ésta forma se recorren TODOS los controles de la página.

Ojalá que te sirva de orientación, saludos

[DADU]

Muchas gracias Sin Destino, hice lo que me sugeriste y arme una función recursiva. Anda Perfecto.

Por si a alguien le interesa. Deshabilita los textbox y combos de un formulario.

Lllamada: ControlesDeshabilitar(Me.Controls)


Private Function DeshabilitarControles(ByRef objColeccion As System.Web.UI.ControlCollection)
Dim frmTextBox As TextBox
Dim frmDropDownList As DropDownList
Dim intN As Integer

For intN = 1 To objColeccion.Count() - 1
If TypeOf (objColeccion.Item(intN)) Is TextBox Then
frmTextBox = objColeccion.Item(intN)
frmTextBox.ReadOnly = True
frmTextBox.BackColor = Color.FromArgb(15724527)

ElseIf TypeOf (objColeccion.Item(intN)) Is DropDownList Then
frmDropDownList = objColeccion.Item(intN)
frmDropDownList.BackColor = Color.FromArgb(15724527)
frmDropDownList.Enabled = False

Else
DeshabilitarControles(objColeccion.Item(intN).Cont rols)

End If

Next

End Function

[manoloburgos]

te paso la función que he hecho, la paso Me.Controls, siendo me, el formulario actual
Sub DeshabilitarControles(ByVal Controles As Object)
Dim frmControl As Control
For Each frmControl In Controles
frmControl.Enabled = False
Next
End Sub

[DADU]

Manolo, no se si andara esta solucion corta.

Da error de compilacion cuando se referencia frmControl.propiedad.
Todos los controles tiene la propiedad readonly o backcolor?

[manoloburgos]

Ahora que lo dices, creo que todos los controles tienen backcolor. No sé si puedo decir si falla para otros casos.

[RootK]

Si deseas deshabilitar todos tu controles de ese formulario no sería mas fácil hacer ésto:

Me.Enabled = False

Automaticamente todos los elementos se deshabilitarán.

Salu2

[DADU]

Solo quiero deshabilitar los textbox y combos, y que queden en gris es para que el usuario intuitivamente sepa que no puede editar.

[RootK]

Entonces te quedaría así:

For Each c As Control In Controls
Dim sName As String = c.GetType().Name
If sName = "ComboBox" Then
CType(c, ComboBox).Enabled = False
End If
If sName = "TextBox" Then
CType(c, TextBox).Enabled = False
End If
Next

Por el simple hecho de estar deshabilitados te apareceran en color gris.

Salu2

[DADU]

Me parece que con la funcion que hiciste, cuando encuentra un panel, no va a deshabilitar los controles que contiene.

Con deshabilitar no se pone el fondo en gris. El fondo en gris es mas claro para indicar que el campo no es editable.

[RootK]

Solo quiero deshabilitar los textbox y combos

cuando encuentra un panel, no va a deshabilitar los controles que contiene.

O eran textbox o panel ?

Con deshabilitar no se pone el fondo en gris

QUe extraño, pero si estamos hablando de una windows form cuando está la property enabled en false se ve en color gris pero en fin..

QUe lástima que no te sirvieron mis ejemplos.

Salu2