hola amigos
en este codigo es limpiar los texbox que esten dentro de un GroupBox y el codigo que e utilizado esta dentro de una Clase llamada Funciones; el codigo es el Siguiente
-----------------------------------------------------------------------------------
Public Sub Limpiar(ByVal Grupo As Windows.Forms.GroupBox)
Dim miControl As Object
For Each miControl In Grupo.Controls
If miControl.GetType Is GetType(System.Windows.Forms.TextBox) Then
miControl.Clear()
End If
System.Windows.Forms.Application.DoEvents()
Next
End Sub
----------------------------------------------------------------------------------
Ahora para llamarlo desde mi formulario se hace de la siguiente forma:
------------------------------------------------------------------------------
dim objfunciones as new Funciones
objfunciones.Limpiar(Me.GroupBox1)
----------------------------------------------------------------------------
En el procedimiento tengo que mandarle el GroupBox que deseo que limpie y Listo :D
Prenguntas escriban en los Comentarios :D
Salu2
3 comentarios:
y en c#?
jijiji... alli hay mas chamba ps jijiji
Hola Doc, muy util el crear una clase, pero aqui surge un pequeño problema, si a la clase le agrego por ejemplo "Option Strict On" (LO CUAL ES RECOMENDABLE), este generara un error, yo preferiria emplear la "Recursividad Directa", entonces quedaria de la siguiete manera:
Option Strict On 'Obligatorio
Public Class Funciones
Sub LimpiarCajas(ByVal Grupo As Windows.Forms.GroupBox)
Dim caja As TextBox
For Each ctrl As Control In Grupo.Controls
caja = TryCast(ctrl, TextBox)
If Not (caja Is Nothing) Then
caja.Clear()
End If
Next ctrl
End Sub
End Class
Y asi ya no habria problemas para realizar la conversion explicita en C#.
Espero haber aportado con algo... ;)
Salu2!
Johnny B. Quispe Flores.
hola Johnny B. Quispe Flores
muchas gracias por el gran aporte :D
Saludos
Victor Altamirano V.
Publicar un comentario