Limpiar cajas de texto

bueno esta es otra manera..


Private Sub Limpiar()

Dim obj As Control

Try

For Each obj In Me.Controls

If TypeOf obj Is TextBox Then

Dim miObj As TextBox

miObj = DirectCast(obj, TextBox)

miObj.Text = ""

End If

Next

Catch ex As Exception

MessageBox.Show(Err.Description, "No se puede limpiar los textboxes, Error
Nº" & Err.Number, MessageBoxButtons.OK, MessageBoxIcon.Error)

Err.Clear()

End Try

End Sub



"Hugo Gsell" wrote in message
news:%

No te estoy entendiendo... xform es el nombre del formulario dentro del
cual
se encuentra los text que quiero limpiar ...
AHORA EL ERROR ME DA 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

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

Que Tal Listeros, yo soy nuevo en lo que es tecnologia .net
y tengo varias dudas, como por ejempo lo mismo que ustedes estan
discutiendo, y la verdad me sirvio bastante, pero tengo otra duda, si yo
quisiera limpiar algunos textbox como puedo especificar el textbox que
quiero limpiar.
por ej: en visual 60 yo podia pasar por parametor el nombre y el numero del
control que deseaba limpiar.
t01=text1
l01=List1
pero no puedo hacer lo por punto net, bueno espero su ayuda.

atte.

Jorge Jara H.




"Lord Voldemort" <@@> escribió en el mensaje
news:%

bueno esta es otra manera..


Private Sub Limpiar()

Dim obj As Control

Try

For Each obj In Me.Controls

If TypeOf obj Is TextBox Then

Dim miObj As TextBox

miObj = DirectCast(obj, TextBox)

miObj.Text = ""

End If

Next

Catch ex As Exception

MessageBox.Show(Err.Description, "No se puede limpiar los textboxes, Error
Nº" & Err.Number, MessageBoxButtons.OK, MessageBoxIcon.Error)

Err.Clear()

End Try

End Sub



"Hugo Gsell" wrote in message
news:%

No te estoy entendiendo... xform es el nombre del formulario dentro del
cual
se encuentra los text que quiero limpiar ...
AHORA EL ERROR ME DA 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

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

"Jorge Hotmail" escribió:

si yo quisiera limpiar algunos textbox como puedo especificar
el textbox que quiero limpiar.
por ej: en visual 60 yo podia pasar por parametor el nombre y
el numero del control que deseaba limpiar.
t01=text1
l01=List1
pero no puedo hacer lo por punto net, bueno espero su ayuda.

Hola, Jorge:

Hoy parece ser que el tema va de limpiar cajas de texto. :-)

En .net puedes pasar como parámetro el nombre del control:

Private Sub LimpiarTextBox(ByVal ctrl As TextBox)
ctrl.Text = ""
End Sub

Si por ejemplo deseas limpiar el contenido del control TextBox1, llamarías
al procedimiento de la siguiente manera:

LimpiarTextBox(TextBox1)

Por supuesto, el nombre del control debe estar previamente declarado, es
decir: que debe de existir el control como tal; no puedes pasar un nombre de
control cualquiera, porque el parámetro del procedimiento espera un control
del tipo TextBox.


Un saludo



Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

pero por ejemplo.
yo hago esto en visual 60.

sub limpiar(Form as Form,ControlesLimpiar as string)
Dim Text_Num As String
Dim Contador As Integer
If Len(si_ControlesLimpiar ) > 0 Then
For Contador = 1 To Len(si_ControlesLimpiar ) - 2 Step 3
If UCase(Mid(si_ControlesLimpiar , Contador, 1)) = "T" Then
Text_Num = "text" + Trim(Str(Val(Mid(si_ControlesLimpiar ,
Contador + 1, 2))))
Forma(Text_Num).Text = ""
Else'Aqui puedo colocar todos los controles que desee limpiar
simultaneamente.
End If
Next Contador
end Sub

donde en la variable controles limpiar podia limpiar cualquier control. ej:

t01=Textbox
l01=ListBox
c01=ComboBox
call limpiar(me,"t01t02t03l01l02c01")

bueno la idea es envia el tipo de control por la primera letra y el numero
que deseaba limpiar, pero trate de hacer en .net y no puede habra alguna
solucion para este dilema mio.

gracias de antemanos.

atte.

Jorge Jara H.

"SoftJaén" escribió en el mensaje
news:uWeNI8$

"Jorge Hotmail" escribió:

si yo quisiera limpiar algunos textbox como puedo especificar
el textbox que quiero limpiar.
por ej: en visual 60 yo podia pasar por parametor el nombre y
el numero del control que deseaba limpiar.
t01=text1
l01=List1
pero no puedo hacer lo por punto net, bueno espero su ayuda.

Hola, Jorge:

Hoy parece ser que el tema va de limpiar cajas de texto. :-)

En .net puedes pasar como parámetro el nombre del control:

Private Sub LimpiarTextBox(ByVal ctrl As TextBox)
ctrl.Text = ""
End Sub

Si por ejemplo deseas limpiar el contenido del control TextBox1, llamarías
al procedimiento de la siguiente manera:

LimpiarTextBox(TextBox1)

Por supuesto, el nombre del control debe estar previamente declarado, es
decir: que debe de existir el control como tal; no puedes pasar un nombre
de control cualquiera, porque el parámetro del procedimiento espera un
control del tipo TextBox.


Un saludo



Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado
o sugerido en el presente mensaje.

Private Function Limpiar(ByVal nombre as String) as Boolean
Dim ctrl as control
Dim realizado as boolean=false
For Each ctrl in Me.Controls
If ctrl.Name=nombre then
If TypeOf(ctrl) Is TextBox then
DirectCast(ctrl,TextBox).Text=""
realizado=true
ElseIf TypeOf(ctrl) Is ComboBox Then
DirecCast(ctrl,ComboBox).Text=""
realizado=true
End If
Exit For
End If
End For
Limpiar=realizado
End Sub