No tengo ni idea...

Geri
28 de Noviembre del 2003
A ver. Hace solo una semana que he empezado con esto del Visual Basic, y estoy aprendiendo a marchas forzadas.
El problema que tengo es que tengo un formulario con etiquetas, campos y todas esas cosas que acostumbran a tener los formularios. Pero necesito que en un momento determinado borrar todo lo que el usuario ha introducido en los campos de textos. Pero no tengo ni idea de como se hace. Yo pensaba que era la funcion refresh. Pero no va.
No sé, a ver si me aydais un poquitin y así aprendo algo más...
Gracias

Thessen
28 de Noviembre del 2003
Geri, me temo que la unica (que yo sepa) manera de vaciar las cajas de texto es ir una por una asignando a la propiedad text una cadena vacia (textbox1.text="")

Geri
28 de Noviembre del 2003
En serio?? Joder. Pues vaya putada... Gracias de todas formas

rafa
28 de Noviembre del 2003
Hola Geri.
La solucion es esa, pero puedes hacerlo con cun bucle:
Dim objeto As Control
For Each objeto In Me.Controls
If TypeOf objeto Is textBox Then
objeto.txt= ""
End If
Next
Esto solo te vacia las cajas de texto, pero puedes ampliarlo para otros objetos.
Suerte

Juan
28 de Noviembre del 2003
Si tienes muchos textbox convendría que lo hicieras
a través de la propiedad controls del formulario y así
te ahorrarás un montón de lineas. La forma de hacerlo
es la siguiente:

Dim aux As Control
For Each aux In Me.Controls 'Recorre la colección controls
If TypeOf aux Is TextBox Then 'Filtra según el tipo de control
aux.Text = ""
End If
Next aux

Coloca ese código en el evento que quieras. El resultado
de ejecutarlo será que todos los textbox del formulario
se quedarán en blanco.

matamala
28 de Noviembre del 2003
Hola Geri.
mira si quieres eliminar todos los text de los box que haya en el formulario haces esto:
crea un proyecto nuevo para probar.
en el formulario en el evento. KeyDown
pones este codigo. que lo que hace es, si as pulsado la tecla 27 osea escape "Esc". solo si as pulsado esc. elimina el texto de los box, 1,2,3 asi sucasibamente todos los que pongas.


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End If
End Sub
si queieres que lo haga con un boton de comando, seria

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub.
espero haverte ayudado un saludo.