Visual Basic - Borrar TextBox

Life is soft - evento anual de software empresarial

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 clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Borrar TextBox

Publicado por pedro luis (56 intervenciones) el 14/04/2014 15:41:11

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 clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 24

Val: 58

Borrar TextBox

Publicado por JoaoM (79 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

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

Comentar

COMO PROGRAMAR

Problema de dimensionamiento