Limpiar cajas de texto

12/10/2005 - 23:31 por Hugo Gsell | Informe spam

En .NET Leonardo me respondio (ver abajo)
estoy utilizo para limpiar los text de un form
Private Sub LimpiaCajas(ByVal xForm As Form)
Dim Ctrl As Control
For Each Ctrl In xForm
If TypeOf Ctrl Is TextBox Then
Ctrl.Text = ""
End If
Next
End Sub

ME DA EL ERROR
EN LA LINEA For Each Ctrl In xForm ESPECIFICAMENTE EN LA PALABRA XFORM

D:\Sistemas .NET\SistemaMedico\SistemaMedico\Pacientes.vb(589): La expresión
es del tipo 'System.Windows.Forms.Form', que no es un tipo de colección.

como puedo solucionarlo?

Hugo A. Gsell
Sgo del Estero
Argentina

"Leonardo Azpurua [mvp vb]" <l e o n a r d o (arroba) m v p s (punto) o r g>
escribió en el mensaje news:uVHvabHyFHA.3892@TK2MSFTNGP12.phx.gbl...

"Hugo Gsell" <hagsell@hotmail.com> escribió en el mensaje
news:Ok6Xa7GyFHA.1856@TK2MSFTNGP12.phx.gbl...
> Hola.. en el viejo vb6 tenia una clase que hacía lo siguiente
> limpiaba los text de un formulario como ahgo para pasar estoa .net?
>
> Public Sub LimpiaCajasText(xForm As Form)
> Dim Ctrl As Control
> For Each Ctrl In xForm
> If TypeOf Ctrl Is TextBox Then
> Ctrl.Text = "" Then
> End If
> Next
> End Sub

Hola, Hugo:

Es exactamente igual, salvo que
TypeOf Ctrl Is TextBox
puede ser reemplazado por
Ctrl.GetType.Name = "TextBox"

Ademas de que debe haber al menos tres maneras mas de hacer lo mismo.

Salud!

Siga el debate

4 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Imac_man

12/10/2005 - 23:44 | Informe spam

a XFORM debes declrarlo como la coleccion de objetos que pertenecen al
formulario.

saludos

"Hugo Gsell" escribió en el mensaje
news:

En .NET Leonardo me respondio (ver abajo)
estoy utilizo para limpiar los text de un form
Private Sub LimpiaCajas(ByVal xForm As Form)
Dim Ctrl As Control
For Each Ctrl In xForm
If TypeOf Ctrl Is TextBox Then
Ctrl.Text = ""
End If
Next
End Sub

ME DA EL ERROR
EN LA LINEA For Each Ctrl In xForm ESPECIFICAMENTE EN LA PALABRA XFORM

D:\Sistemas .NET\SistemaMedico\SistemaMedico\Pacientes.vb(589): La
expresión
es del tipo 'System.Windows.Forms.Form', que no es un tipo de colección.

como puedo solucionarlo?

Hugo A. Gsell
Sgo del Estero
Argentina

"Leonardo Azpurua [mvp vb]" <l e o n a r d o (arroba) m v p s (punto) o r
g>
escribió en el mensaje news:

"Hugo Gsell" escribió en el mensaje
news:
> Hola.. en el viejo vb6 tenia una clase que hacía lo siguiente
> limpiaba los text de un formulario como ahgo para pasar estoa .net?
>
> Public Sub LimpiaCajasText(xForm As Form)
> Dim Ctrl As Control
> For Each Ctrl In xForm
> If TypeOf Ctrl Is TextBox Then
> Ctrl.Text = "" Then
> End If
> Next
> End Sub

Hola, Hugo:

Es exactamente igual, salvo que
TypeOf Ctrl Is TextBox
puede ser reemplazado por
Ctrl.GetType.Name = "TextBox"

Ademas de que debe haber al menos tres maneras mas de hacer lo mismo.

Salud!

Responder a este mensaje

#2 Hugo Gsell

12/10/2005 - 23:59 | Informe spam

No te estoy entendiendo... xform es el nombre del formulario dentro del cual
se encuentra los text que quiero limpiar ... ahora el error me dá en la
llamada al procedimiento LimpiaCajas
o sea, desde un form llamo al procedimiento así:
LimpiaCajas(Me)

el error es:
D:\Sistemas .NET\SistemaMedico\SistemaMedico\Pacientes.vb(570): Un valor de
tipo 'SistemaMedico.Pacientes' no se puede convertir en '2'.

"Imac_man" escribió en el mensaje
news:

a XFORM debes declrarlo como la coleccion de objetos que pertenecen al
formulario.

saludos

"Hugo Gsell" escribió en el mensaje
news:
> En .NET Leonardo me respondio (ver abajo)
> estoy utilizo para limpiar los text de un form
> Private Sub LimpiaCajas(ByVal xForm As Form)
> Dim Ctrl As Control
> For Each Ctrl In xForm
> If TypeOf Ctrl Is TextBox Then
> Ctrl.Text = ""
> End If
> Next
> End Sub
>
> ME DA EL ERROR
> EN LA LINEA For Each Ctrl In xForm ESPECIFICAMENTE EN LA PALABRA XFORM
>
> D:\Sistemas .NET\SistemaMedico\SistemaMedico\Pacientes.vb(589): La
> expresión
> es del tipo 'System.Windows.Forms.Form', que no es un tipo de colección.
>
> como puedo solucionarlo?
>
>
> Hugo A. Gsell
> Sgo del Estero
> Argentina
>
>
>
>
> "Leonardo Azpurua [mvp vb]" <l e o n a r d o (arroba) m v p s (punto) o

> g>
> escribió en el mensaje news:
>>
>> "Hugo Gsell" escribió en el mensaje
>> news:
>> > Hola.. en el viejo vb6 tenia una clase que hacía lo siguiente
>> > limpiaba los text de un formulario como ahgo para pasar estoa

.net?

>> >
>> > Public Sub LimpiaCajasText(xForm As Form)
>> > Dim Ctrl As Control
>> > For Each Ctrl In xForm
>> > If TypeOf Ctrl Is TextBox Then
>> > Ctrl.Text = "" Then
>> > End If
>> > Next
>> > End Sub
>>
>> Hola, Hugo:
>>
>> Es exactamente igual, salvo que
>> TypeOf Ctrl Is TextBox
>> puede ser reemplazado por
>> Ctrl.GetType.Name = "TextBox"
>>
>> Ademas de que debe haber al menos tres maneras mas de hacer lo mismo.
>>
>>
>> Salud!
>>
>>
>
>

Responder a este mensaje

#3 peky

13/10/2005 - 03:15 | Informe spam

prueba reemplazar

For Each Ctrl In xForm
por
For Each Ctrl In xForm.Controls

El tipo Form no es enumerable. El miembro Controls de la clase Form es la
colección de controles del formulario
peky

"Hugo Gsell" wrote:

En .NET Leonardo me respondio (ver abajo)
estoy utilizo para limpiar los text de un form
Private Sub LimpiaCajas(ByVal xForm As Form)
Dim Ctrl As Control
For Each Ctrl In xForm
If TypeOf Ctrl Is TextBox Then
Ctrl.Text = ""
End If
Next
End Sub

ME DA EL ERROR
EN LA LINEA For Each Ctrl In xForm ESPECIFICAMENTE EN LA PALABRA XFORM

D:\Sistemas .NET\SistemaMedico\SistemaMedico\Pacientes.vb(589): La expresión
es del tipo 'System.Windows.Forms.Form', que no es un tipo de colección.

como puedo solucionarlo?

Hugo A. Gsell
Sgo del Estero
Argentina

"Leonardo Azpurua [mvp vb]" <l e o n a r d o (arroba) m v p s (punto) o r g>
escribió en el mensaje news:
>
> "Hugo Gsell" escribió en el mensaje
> news:
> > Hola.. en el viejo vb6 tenia una clase que hacía lo siguiente
> > limpiaba los text de un formulario como ahgo para pasar estoa .net?
> >
> > Public Sub LimpiaCajasText(xForm As Form)
> > Dim Ctrl As Control
> > For Each Ctrl In xForm
> > If TypeOf Ctrl Is TextBox Then
> > Ctrl.Text = "" Then
> > End If
> > Next
> > End Sub
>
> Hola, Hugo:
>
> Es exactamente igual, salvo que
> TypeOf Ctrl Is TextBox
> puede ser reemplazado por
> Ctrl.GetType.Name = "TextBox"
>
> Ademas de que debe haber al menos tres maneras mas de hacer lo mismo.
>
>
> Salud!
>
>

Responder a este mensaje

#4 Victor

13/10/2005 - 23:49 | Informe spam

...
For Each Ctrl In xForm.Controls
...
ctype(Ctrl,TextBox).Text = ""
...

"Hugo Gsell" escribió en el mensaje
news:

En .NET Leonardo me respondio (ver abajo)
estoy utilizo para limpiar los text de un form
Private Sub LimpiaCajas(ByVal xForm As Form)
Dim Ctrl As Control
For Each Ctrl In xForm
If TypeOf Ctrl Is TextBox Then
Ctrl.Text = ""
End If
Next
End Sub

ME DA EL ERROR
EN LA LINEA For Each Ctrl In xForm ESPECIFICAMENTE EN LA PALABRA XFORM

D:\Sistemas .NET\SistemaMedico\SistemaMedico\Pacientes.vb(589): La

expresión

es del tipo 'System.Windows.Forms.Form', que no es un tipo de colección.

como puedo solucionarlo?

Hugo A. Gsell
Sgo del Estero
Argentina

"Leonardo Azpurua [mvp vb]" <l e o n a r d o (arroba) m v p s (punto) o r

escribió en el mensaje news:
>
> "Hugo Gsell" escribió en el mensaje
> news:
> > Hola.. en el viejo vb6 tenia una clase que hacía lo siguiente
> > limpiaba los text de un formulario como ahgo para pasar estoa

.net?

> >
> > Public Sub LimpiaCajasText(xForm As Form)
> > Dim Ctrl As Control
> > For Each Ctrl In xForm
> > If TypeOf Ctrl Is TextBox Then
> > Ctrl.Text = "" Then
> > End If
> > Next
> > End Sub
>
> Hola, Hugo:
>
> Es exactamente igual, salvo que
> TypeOf Ctrl Is TextBox
> puede ser reemplazado por
> Ctrl.GetType.Name = "TextBox"
>
> Ademas de que debe haber al menos tres maneras mas de hacer lo mismo.
>
>
> Salud!
>
>

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida