SoloCodigo

hola a todos como estan espero que bien bueno aqui estoy de nuevo con una consulta resulta que tengo varios textbox y combobox y resulta que quiero hacer un boton que limpie todo estos textbox, mi pregunta es habra alguna funcion que limpie todos los combo y los text si estar escribiendo text1.text ="", combo1.text="" si alguien conoce alguna manera de hacerlo seria genial les dejo esta pregunta mientras seguire buscando la respuesta si la encuentro la publico gracias a todos adios

Mmmm  lo estoy haciendo rapido a esto, proba con algo asi:


No lo probe, pero esa es la idea.
Saludos
Makko.

Mmmm  lo estoy haciendo rapido a esto, proba con algo asi:

Código: Text

1. Private Sub Limpiar(ByVal parentCtr As Control)
2. Dim ctr As Control
3. For Each ctr In parentCtr.Controls
4. If TypeOf ctr Is TextBox Then
5. ctr.Text = ""
6. Else
7. If TypeOf ctr Is ComboBox Then
8. DirectCast(ctr, ComboBox).SelectedIndex = -1
9. End If
10. doclean(ctr)
11. Next
12. End Sub
13.  

No lo probe, pero esa es la idea.
Saludos
Makko.

hola gracias por la ayuda pero no se donde debo aplicarlo jajaja pero en fin gracias por la ayuda lo probare y te comento muchas gracias

Salu2.
   El combo lo puedes borrar así de simple Combo.Clear
agur
     

hola bueno eso ya lo sabia lo que quiero saber si existe una funcion que me limpie todos los textbox y todos lo combo de un solo click

No existe ninguna función específica para lo que deseas, la mejor rutina que puedes hace es algo parecido a lo que nos dice Makko.

Prueba esta rutina:

Código: Text

1.  
2. Public Sub LimpiarControles(Obj As Form)
3.     Dim ctlTemp As Control
4.     For Each ctlTemp In Obj.Controls
5.         If TypeOf ctlTemp Is TextBox Then
6.             ctlTemp.Text = ""
7.         End If
8.         If TypeOf ctlTemp Is ComboBox Then
9.             ctlTemp.Text = ""
10.             ctlTemp.Clear
11.         End If
12.     Next ctlTemp
13. End Sub
14.  

Puedes llamar esta rutina con un botón comando, desde la forma que necesites limpiar, de la siguiente manera:

Código: Text

1.  
2. Private Sub Command1_Click()
3.     Call LimpiarControles(Me)
4. End Sub
5.  

 

hola cpmario bueno te agradesco mucho la ayuda acabo de probar el codigo esta super bien era justo lo que necesitaba bueno es que no conosco mucho jejeje pero eso no sabia pero les agradesco mucho la ayuda adios y que esten bien

Saludos.... mira esa es la solucion pero ten cuidado.... que cuando quieras limpiar un combo con style 2 te botara error por ser la propiedad text de solo lectura, asi que recomiedo trabajar con style 0

Bueno para eso puedes usar este codigo


 

cuentame como harias para limpiar un combo con style 2, usarias alguna api?
   ZETAPERU

Ya te dijeron como solucionar eso.!  

Lo que hace falta un manejo de error para resolver el problema y limpiar todo tipo de estilo de combos.