Ver Mensaje Individual
  #2 (permalink)  
Antiguo 09 de junio,2009, 21:21
Codigo47 Codigo47 está desconectado
Member
Nivel Experto por Msg
 
Fecha de Ingreso: feb 2009
Mensajes: 66
Predeterminado

Hola Sneider,

Yo conozco 2 formas:

1: crear una matriz de controles, de modo que usando un FOR los recorres y borras los textos o cualquier otra cosa que se haga igual para todos.

2: Recorrer todos los controles del formulario con un FOR EACH y "tomar" los que tengan determinado texto en el nombre y luego hacer lo que necesitas.

Para la 1er opcion, tenes que agregar un textbox, ponerle un nombre (txtTexto por ejemplo), y luego copiarlo y pegarlo, entonces VB te preguntara si deseas crear una matriz de controles... decile que si y segui copiando y pegando. Todos los controles que pegues perteneceran a la matriz.
Despues para borrar los texts de los TextBoxs hay que hacer lo siguiente:

Código:
Dim i As Integer
For i = 0 To 1
    txtTexto(i).Text = ""
Next
Para la 2da opcion, no hace falta crear una matriz, pero si ponerles una "marca". Por ejemplo, yo voy a crear 2 textboxs, uno se llamara txtMarcaNombre y el otro txtMarcaTelefono (vos podes agregar muchos mas, siempre y cuando TODOS empiecen con "txtMarca".
Luego solo hay que recorrer los controles del formulario y preguntar por la marca, si el nombre del control tiene la marca, entonces borramos la propiedad Text:

Código:
For Each c In Me.Controls
    If Left(c.Name, 8) = "txtMarca" Then
        c.Text = ""
    End If
Next
Espero te sirva. Saludos.
Responder Citando