Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

PROBLEMAS CON UN PROCEDIMIENTO!!

10/11/2005 - 01:39 por betoja | Informe spam
Ayuda Hacer una pregunta
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)
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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)

Preguntas similares

 

Busqueda sugerida :