Porque da este error...?

03/09/2004 - 18:07 por David Fúnez | Informe spam

Ok;

Tengo este código en el evento LOAD de mi form para inhabilitar controles,
pero da error:

Mensaje de error:

[Excepción no controlada del tipo 'System.InvalidCastException' en
Northwind.exe]

[Información adicional: Specified cast is not valid.]

Dim ctl As TextBox

For Each ctl In Me.Controls

ctl.Enabled = False

Next

El error se posiciona en la línea del For Each, cómo lo soluciono?.

Gracias de antemano.

David Fúnez
Tegucigalpa, Honduras
davidff@correo.de

"La Piratería Mata Las Ideas "

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

¿porque me da este error " Se ha detectado software de emulación de CD/DVD"?

Leer las respuestas

#1 Jose Marcenaro

03/09/2004 - 18:21 | Informe spam

Lo que ocurre es que no todos los controles son textbox, debes preguntar por
el tipo de control.
Usa lo siguiente:

Dim ctl As Control
Dim txt As TextBox

For Each ctl In Me.Controls
If TypeOf ctl Is TextBox Then
txt = CType(ctl,TextBox)
'... aqui puedes usar todas las propiedades del textbox
txt.Enabled = False
End If
Next

Saludos
Jose Marcenaro

"David Fúnez" escribió en el mensaje
news:uX4lB$

Ok;

Tengo este código en el evento LOAD de mi form para inhabilitar controles,
pero da error:

Mensaje de error:

[Excepción no controlada del tipo 'System.InvalidCastException' en
Northwind.exe]

[Información adicional: Specified cast is not valid.]

Dim ctl As TextBox

For Each ctl In Me.Controls

ctl.Enabled = False

Next

El error se posiciona en la línea del For Each, cómo lo soluciono?.

Gracias de antemano.

David Fúnez
Tegucigalpa, Honduras

"La Piratería Mata Las Ideas "

Responder a este mensaje

#2 David Fúnez

03/09/2004 - 18:31 | Informe spam

José;

Es exactamente lo que andaba buscando, muchas gracias a vos y a todos los
que gentilmente me colaboraron.

Saludos y gracias.

David Fúnez
Tegucigalpa, Honduras

"La Piratería Mata Las Ideas "

"Jose Marcenaro" wrote in message
news:%23ow%

Lo que ocurre es que no todos los controles son textbox, debes preguntar

por

el tipo de control.
Usa lo siguiente:

Dim ctl As Control
Dim txt As TextBox

For Each ctl In Me.Controls
If TypeOf ctl Is TextBox Then
txt = CType(ctl,TextBox)
'... aqui puedes usar todas las propiedades del textbox
txt.Enabled = False
End If
Next

Saludos
Jose Marcenaro

"David Fúnez" escribió en el mensaje
news:uX4lB$
> Ok;
>
> Tengo este código en el evento LOAD de mi form para inhabilitar

controles,

> pero da error:
>
> Mensaje de error:
>
> [Excepción no controlada del tipo 'System.InvalidCastException' en
> Northwind.exe]
>
> [Información adicional: Specified cast is not valid.]
>
>
> Dim ctl As TextBox
>
> For Each ctl In Me.Controls
>
> ctl.Enabled = False
>
> Next
>
> El error se posiciona en la línea del For Each, cómo lo soluciono?.
>
> Gracias de antemano.
>
> David Fúnez
> Tegucigalpa, Honduras
>
>
> "La Piratería Mata Las Ideas "
>
>

Responder a este mensaje

#3 Pepe Viyuela

03/09/2004 - 18:43 | Informe spam

Igual hay mas formas de hacerlo, pero te digo como lo haria yo.

Dim ctl As Control
Dim txt As New TextBox

For Each ctl In Me.Controls
If Object.ReferenceEquals(txt.GetType(), ctl.GetType()) Then
ctl.Enabled = False
End If
Next

txt.Dispose()

"David Fúnez" escribió en el mensaje
news:uX4lB$

Ok;

Tengo este código en el evento LOAD de mi form para inhabilitar controles,
pero da error:

Mensaje de error:

[Excepción no controlada del tipo 'System.InvalidCastException' en
Northwind.exe]

[Información adicional: Specified cast is not valid.]

Dim ctl As TextBox

For Each ctl In Me.Controls

ctl.Enabled = False

Next

El error se posiciona en la línea del For Each, cómo lo soluciono?.

Gracias de antemano.

David Fúnez
Tegucigalpa, Honduras

"La Piratería Mata Las Ideas "

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida