Visual Basic - Borrar TextBox

Life is soft - evento anual de software empresarial
   
Vista:

Borrar TextBox

Publicado por bedlomo (1 intervención) el 13/04/2014 20:09:53
Encontre en el foro como borrar textbox empelando:
TextBox1.Text = "";
TextBox2.Text = "";
.
.
Esta bien si tengo pocos para borrar, pero en el caso de que tenga muchos que podría emplear. Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Borrar TextBox

Publicado por pedro luis (56 intervenciones) el 14/04/2014 15:41:11
1
2
3
4
5
6
7
8
Private Sub Command1_Click()
Dim Objeto
For Each Objeto In Form1.Controls
If Mid(Objeto.Name, 1, 4) = "Text" Then
Objeto.text = ""
End If
Next
End Sub

Esto te obliga a poner los nombres de las cajas de texto iguales Text1, Text2, Text3 etc
Otra forma de controlar seria poner igual nombre a los controles homogeneos y ponerles indice osea, Texto(1), Texto(2) ,Texto(3), etc, o Fecha(1), Fecha(2), Fecha3)- Los indices se ponen en Propiedades-Indice.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JoaoM

Borrar TextBox

Publicado por JoaoM (72 intervenciones) el 15/04/2014 04:35:25
Casi siempre uno cambia los nombres originales de los controles y le asigna una abrviacion, para eso este, no importa el nombre que tengan

1
2
3
4
5
6
7
8
9
Sub LimpiarTextBoxForm() 'si los nombres de los Textbox se modificaron, como es costumbre
Dim Control As Object
'Aqui la rutina para Ejecución  o puedes colocar esto en un botón independiente, es a tu gusto
' y a seguir
    For Each Control In Controls 'si es desde un modulo; UserForm1.Controls
        If TypeName(Control) = "TextBox" Then Control.Value = ""
    Next
MsgBox ("Controles limpios para nuevo uso"), vbInformation, "Limpiesa"
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar