PROBLEMAS CON UN PROCEDIMIENTO!!

10/11/2005 - 01:39 por betoja | Informe spam

hola! tengo un problemilla! lo que pasa es que la funcion que ven aqui abajo
la tengo en un modulo global,osea que la quiero usar para todos mis
formularios pues
pero lo que pasa es que no funciona.
el problema es que todos mis formularios tiene las cajas de texto agrupadas
en un groupbox,es por eso que no me limpia ninguna caja de texto
pero en cambio si en vez de enviar el formulario como parametro al
procedimiento, envio el
groupbox la cosa cambia (si funciona,si limpia)..porque???

quiero mandar el formulario y no el groupbox

graciassss!!!

Public Sub limpia(ByVal F As Form)
Dim H As Object
For Each H In F.Controls
If TypeOf H Is TextBox Then H.text = ""
If TypeOf H Is ListBox Then H.items.clear()
If TypeOf H Is ComboBox Then H.items.clear()
Next
End Sub
en cada formulario la llamo al procedimiento:

limpia(Me)

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Jorge Serrano [MVP VB]

10/11/2005 - 09:19 | Informe spam

Hola,

los GroupBox son contenedores de controles, por lo que primero, debes
localizar los contenedores como un GroupBox y mirar dentro de él recorriendo
cada uno de los objetos y volver a preguntar si es un contenedor y volver a
recorrerlo (de forma recursiva).

Hay rutinas en Internet ya hechas para hacer esto y ese es creo, el problema
que te está ocurriendo.

Espero que sea de tu ayuda.

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/

"betoja" wrote:

hola! tengo un problemilla! lo que pasa es que la funcion que ven aqui abajo
la tengo en un modulo global,osea que la quiero usar para todos mis
formularios pues
pero lo que pasa es que no funciona.
el problema es que todos mis formularios tiene las cajas de texto agrupadas
en un groupbox,es por eso que no me limpia ninguna caja de texto
pero en cambio si en vez de enviar el formulario como parametro al
procedimiento, envio el
groupbox la cosa cambia (si funciona,si limpia)..porque???

quiero mandar el formulario y no el groupbox

graciassss!!!

Public Sub limpia(ByVal F As Form)
Dim H As Object
For Each H In F.Controls
If TypeOf H Is TextBox Then H.text = ""
If TypeOf H Is ListBox Then H.items.clear()
If TypeOf H Is ComboBox Then H.items.clear()
Next
End Sub
en cada formulario la llamo al procedimiento:

limpia(Me)

Responder a este mensaje

#2 cali

10/11/2005 - 18:30 | Informe spam

aki va el codigo k te puede ayudar

Public Sub Limpia(ByVal xForm As Form)
Dim ctrl As Control
Dim ctrl2 As Control
Dim ctrl3 As Control

For Each ctrl In xForm.Controls
If TypeOf ctrl Is TextBox Then
ctrl.Text = ""
ElseIf TypeOf ctrl Is GroupBox Then
For Each ctrl2 In ctrl.Controls
If TypeOf ctrl2 Is TextBox Then
ctrl2.Text = ""
endif
next
endif
Next
End Sub

"betoja" wrote in message
news:

hola! tengo un problemilla! lo que pasa es que la funcion que ven aqui

abajo

la tengo en un modulo global,osea que la quiero usar para todos mis
formularios pues
pero lo que pasa es que no funciona.
el problema es que todos mis formularios tiene las cajas de texto

agrupadas

en un groupbox,es por eso que no me limpia ninguna caja de texto
pero en cambio si en vez de enviar el formulario como parametro al
procedimiento, envio el
groupbox la cosa cambia (si funciona,si limpia)..porque???

quiero mandar el formulario y no el groupbox

graciassss!!!

Public Sub limpia(ByVal F As Form)
Dim H As Object
For Each H In F.Controls
If TypeOf H Is TextBox Then H.text = ""
If TypeOf H Is ListBox Then H.items.clear()
If TypeOf H Is ComboBox Then H.items.clear()
Next
End Sub
en cada formulario la llamo al procedimiento:

limpia(Me)

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida