Indetectables

Tengo 100 edits text recepción de datos en una forma numérica, quiero optimizar una función que comprueba y que se introducen todos los números repetidos. Desde un punto de vista gracias a Jah ayuda.

Gracias!!!

wtf? tenes 100 textbox en un formulario? mejor ni pregunto. la solución mas simple es tener un array de 100 elementos (para este caso) que almacenan los valores que se introducen en los textbox. eso, hacer que los 100 textboxes tengan el mismo nombre, creando asi una matriz de controles. en cualquiera de los dos casos, hay que barrer el array o la matriz de textboxes comparando cada contenido con los otros 99.
/edit: más grafico:

Código: Seleccionar todo

'si se usa una matriz de textboxes
for i=0 to i=99 'o bien, for i=lbound(textboxes()) to i=ubound(textboxes())
    for b=0 to b=99
        if textboxes(i).text = textboxes(b) then
            'aca va lo que queres que haga cada vez que encuentra una repeticion
        end if
    next b
next i
'--------------
'si se usa un array, asumiendo se llama 'array_txt()' y que en el evento correspondiente lo 'cargues con lo que hay en cada textbox:
for i=0 to i=99 'o bien, for i=lbound(array_txt()) to i=ubound(array_txt())
    for b=0 to b=99
        if array_txt(i) = array_txt(b) then
            'aca va lo que queres que haga cada vez que encuentra una repeticion
        end if
    next b
next i

como ves, es una cuestion de nombres nada mas, porque por lo demas las matrices de controles se comportan como arrays de datos (excepto por el tema de que hay que acceder a las propiedades y demás, porque tecnicamente son arrays de objetos).
A ponerle huevo compadre

Gracias por ayudar compadre verbal, su idea es buena, pero esta función compara el texbox iguales como text(1) = text(1), mientras que esto no puede ocurrir, porque ella siempre esta manera comprobar la mismo elemento de la matriz.

La solución es la misma, pero necesita algo para no comprobar la misma matriz.

text(1) = text(1) no hacer
text(2) = text(2) no hacer

intendes ? :S

Lo siento por la escritura Soy de Brasil

[]'s

Indetectables

función vb6

función vb6

Re: función vb6

Re: función vb6