limpiar cajas de texto

"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!

Leonardo me respondio (ver abajo)
esot 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

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.

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!

"Hugo Gsell" escribió en el mensaje
news:

Leonardo me respondio (ver abajo)
esot 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

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.

Hola.

Disculpa el lapso (demasiado VB6):

For Each Ctrl As Control In laForma.Controls

Asi si deberia funcionar.

Salud!