Problemas con For Each

Estimado Jorge:

Me imagino que lo que deseas hacer es limpiar todos los campos de texto y
despues enviar el foco al objeto TextBoxCodigo si esto es lo que necesitas
entonces el código es el siguiente:
For Each ctrl As Control In Me.Controls
If TypeOf ctrl Is TextBox Then ctrl.Text = ""
Next
TextBoxCodigo.Focus()

Y eso es todo. Espero que esta respuesta te sea de utilidad.

Atentamente,
Raúl Guerrero

Seguimiento del tema en mi blog:
http://neuronahelp.blogspot.com/200...-each.html

"jorge" wrote:

Estoy desarrollando un proyecto y e tenido problemas con esta parte de la
estructura.

For Each TextBox In Me.Controls
If TypeOf TextBox Is TextBox Then TextBox.Text = ""
Next
TextBoxCodigo.Focus()

Haber si me la corrigen gracias.

Este código resuelve tu duda:

For Each Control As TextBox In Me.Controls
Control.Text = ""
Next
TextBoxCodigo.Focus()

Espero que te ayude.

Un saludo.

Jorge Serrano Pérez
Microsoft MVP VB.NET
PortalVB.com
http://www.portalvb.com/
Weblog de Jorge Serrano
http://weblogs.golemproject.com/jorge/


"jorge" wrote:

Estoy desarrollando un proyecto y e tenido problemas con esta parte de la
estructura.

For Each TextBox In Me.Controls
If TypeOf TextBox Is TextBox Then TextBox.Text = ""
Next
TextBoxCodigo.Focus()

Haber si me la corrigen gracias.

"Jorge Serrano [MVP VB]" escribió:

Este código resuelve tu duda:

For Each Control As TextBox In Me.Controls
Control.Text = ""
Next
TextBoxCodigo.Focus()

Espero que te ayude.

Un saludo.

Jorge Serrano Pérez
Microsoft MVP VB.NET
PortalVB.com
http://www.portalvb.com/
Weblog de Jorge Serrano
http://weblogs.golemproject.com/jorge/


"jorge" wrote:

>
> Estoy desarrollando un proyecto y e tenido problemas con esta parte de la
> estructura.
>
> For Each TextBox In Me.Controls
> If TypeOf TextBox Is TextBox Then TextBox.Text = ""
> Next
> TextBoxCodigo.Focus()
>
> Haber si me la corrigen gracias.

Muchas gracias por sus correcciones

Una duda...

For Each Control As TextBox In Me.Controls

¿InvalidCastException?

Tal vez:
For Each Control As Object In Me.Controls
If TypeOf Control Is TextBox Then Control.Text = ""
Next

<Harvey Triana/>



"Jorge Serrano [MVP VB]"
escribió
en el mensaje news:

Este código resuelve tu duda:

For Each Control As TextBox In Me.Controls
Control.Text = ""
Next
TextBoxCodigo.Focus()

Espero que te ayude.

Un saludo.

Jorge Serrano Pérez
Microsoft MVP VB.NET
PortalVB.com
http://www.portalvb.com/
Weblog de Jorge Serrano
http://weblogs.golemproject.com/jorge/


"jorge" wrote:

Estoy desarrollando un proyecto y e tenido problemas con esta parte de la
estructura.

For Each TextBox In Me.Controls
If TypeOf TextBox Is TextBox Then TextBox.Text = ""
Next
TextBoxCodigo.Focus()

Haber si me la corrigen gracias.

Hola Harvey,

debo pedir perdón e indicar que tenéis razón.

Esto me pasa por escribir rápido.

Lo correcto es lo que habéis apuntado y no lo que yo he indicado, ya que lo
que he puesto sólo funciona si hay controles TextBox en el formulario, pero
se supone que puede haber otros controles y en ese caso generaría un error.

Un saludo y muchas gracias. Perdón por el fallo.

Jorge Serrano Pérez
Microsoft MVP VB.NET
PortalVB.com
http://www.portalvb.com/
Weblog de Jorge Serrano
http://weblogs.golemproject.com/jorge/


"Harvey Triana" wrote:

Una duda...
> For Each Control As TextBox In Me.Controls
¿InvalidCastException?

Tal vez:
For Each Control As Object In Me.Controls
If TypeOf Control Is TextBox Then Control.Text = ""
Next

<Harvey Triana/>



"Jorge Serrano [MVP VB]"
escribió
en el mensaje news:
> Este código resuelve tu duda:
>
> For Each Control As TextBox In Me.Controls
> Control.Text = ""
> Next
> TextBoxCodigo.Focus()
>
> Espero que te ayude.
>
> Un saludo.
>
> Jorge Serrano Pérez
> Microsoft MVP VB.NET
> PortalVB.com
> http://www.portalvb.com/
> Weblog de Jorge Serrano
> http://weblogs.golemproject.com/jorge/
>
>
> "jorge" wrote:
>
>>
>> Estoy desarrollando un proyecto y e tenido problemas con esta parte de la
>> estructura.
>>
>> For Each TextBox In Me.Controls
>> If TypeOf TextBox Is TextBox Then TextBox.Text = ""
>> Next
>> TextBoxCodigo.Focus()
>>
>> Haber si me la corrigen gracias.