Visual Basic - Cajas de texto en gris i sin poder escribir?

Life is soft - evento anual de software empresarial
 
Vista:

Cajas de texto en gris i sin poder escribir?

Publicado por pere (18 intervenciones) el 13/08/2002 17:51:40
Tengo una aplicación que es un formulario de entrada de datos de vehiculos. Si entras una matricula que ya existe en la base de datos entonces te muestra toda la información pero me gustaría que al acabar de rellenar todas las cajas de texto con la información del vehiculo, las cajas de texto se volvieran gris y sin poder escribir sobre ellas. como se puede hacer? gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Cajas de texto en gris i sin poder escribir?

Publicado por Eduardo (55 intervenciones) el 13/08/2002 18:26:21
hola!
pon la propiedad Locked =true a cada textBox para que no se pueda modificar.
hata luego!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Cajas de texto en gris i sin poder escribir?

Publicado por Richard (13 intervenciones) el 13/08/2002 18:30:13
los unico que tienes que hacer es cambiar la propiedad de los cuadros de texto cuando termines de cargarlo TEXT1.Enable=False y eso es todo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Cajas de texto en gris i sin poder escribir?

Publicado por Otro Pere (43 intervenciones) el 14/08/2002 00:11:49
Para ponerlas en gris (o del color que quieras) todas de una "tangada" yo lo tengo así:

Public Sub BloquearTextBox()
Dim n As Integer
For n = 0 To Controls.Count - 1
If TypeOf Controls(n) Is TextBox Then
Controls(n).Enabled = False
Controls(n).BackColor = &HFFFF& ' aquí pon el color que quieras
End If
Next n
End Sub

Para desbloquearlas, cambia Enabled=False por True

Esto sirve para los Command Button:
If TypeOf Controls(n) Is CommandButton Then
.
.
.
Y esto para las etiquetas:
If TypeOf Controls(n) Is label Then
.
.
.

Espero haberte ayudado.

Pere
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar