Foro de programacion

sneider · #1 (**permalink**) 09 de junio,2009, 11:52

Buenas. Estoy haciendo una aplicación en Visual Basic 6.3. Resulta que tengo un formulario con varios campos y algunos de éstos campos se despliegan para poder seleccionar una opción concreta. Pues bien...a la hora de referirme a un campo tengo que hacerlo manualmente uno a uno...y es un poco pesado.

Me gustaría saber si hay algun método, comando , bucle o lo que sea que me haga esto que muestro pero sin ir campo a campo.

Public Sub BORRARTEXTBOOXCAPAS()

If INDICE = ComboBox3.TabIndex Or INDICE = ComboBox13.TabIndex Or INDICE = ComboBox23.TabIndex Then

TextBox16.Value = ""
TextBox17.Value = ""
TextBox18.Value = ""
TextBox19.Value = ""
TextBox20.Value = ""
TextBox21.Value = ""
TextBox22.Value = ""
End If

Como véis tengo que ir campo a campo uno a uno, y se hace bastante pesado. Me gustaría saber si existe algo para decirle que por ejemplo del 16 al 22 me ponga lo que yo quiera.

Muchas gracias por todo.

Codigo47 · #2 (**permalink**) 09 de junio,2009, 21:21

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.

jatg1410 · #3 (**permalink**) 30 de julio,2009, 16:39

Me gusta más la segunda opción donde se recorren los controles, la otra varinate podría ser recorrer la colección de los texbox, que es similar al ejemplo anterior pero recorriendos esa colección. Si presionas la ayuda estando sobre un texbox de seguro dice algo de esta colección.