bloqueo de cajas de textos

[gusanosxr]

alguien sabe como bloquear todas las cajas de texto de una formulario en el metodo de form load...

el caso es que por cada caja le pongo

precio.enabled=false

y son alrededor de 40, es mucho código

alguna otra forma, no tengo los textos en una matriz, así que es más complicado para mi que soy principiante!


Saludos

[pkj]

Código vb:

Private Sub Form_Load()
  Dim ctrl As Control
  For Each ctrl In Controls
    If TypeOf ctrl Is TextBox Then
      ctrl.Enabled = False
    End If
  Next ctrl
 
End Sub
 

[gusanosxr]

Iniciado por pkj

Código vb:

Private Sub Form_Load()
  Dim ctrl As Control
  For Each ctrl In Controls
    If TypeOf ctrl Is TextBox Then
      ctrl.Enabled = False
    End If
  Next ctrl
 
End Sub
 

GRACIAS compa, todo perfe!!!