Comparar checkbox con varios elementos

[rapbyone]

Estimados, tengo un checkbox y necesito compararlo con 51 otros checkbox para saber si en alguno de ellos se repite el valor y en caso de que se repita, marcar el checkbox, tengo el siguiente código:

Código (vb) [Seleccionar] Expandir


If Check1.Caption = Check52.Caption Or Check1.Caption = Check53.Caption Or Check1.Caption = Checkxx.Caption.......  Then
Check1.Value = 1
End If


El tema es que es algo tedioso hacerlo uno por uno, existe alguna forma de optimizar el código para revisar todos los checkbox si necesidad de señalarlos uno por uno.

algo así como señalar el rango
If Check1.Caption = Check52.Caption al Check102.Caption Then
Check1.Value = 1
End If

gracias amigos  

[fary]

Creando un array de controles.

Le pones de nombre del control el mismo en todos los CheckBox y el VB6 te va a preguntar si quieres crear un array de controles, le dices que sí.

Te va a crear esto:



Entonces tu los puedes manejar así:

Código (vb) [Seleccionar] Expandir

For i = 1 To NumeroCheckBox
       If Check1(0).Caption = Check1(i).Caption Then
           'accion
       End If
Next i

saludos.

[XresH]

Hola, la opcion del colega fary es la mas rapida, accesible, factible ademas de estar muy bien explicada. Aunque he pensado que quiza si modificas todos los checkbox (dsconozco tu proyecto) tal vez debas cambiar el nombre en muchos lados(forms, modulos, controles de usuario, entre otros), se hace no es drama pero tal vez no quieras eso, si este es el caso, podes realizar una funcion que ejecute una comparacion de una variaable booleana (la del checkbox a comparar) y luego pasarle el array a la funcion para que a traves de un for haga la comparacion.
Claro esta que tenes que poner todos los nombres, en una sola ocacion, o sea al momento de comparar. El tema es que si es un proyecto grande, cambiar todos los nombres en todos los formas que esten relacionados es algo como dices, tedioso.

Espero me haya explicado correctamente.

Saludos gente.

[rapbyone]

Gracias amigos vamos a intentarlo 

[fary]

De nadas