Problema con salto de linea al escribir codigo

[rapbyone]

Estimados, tengo un problema, les cuento, necesito comprobar un checkbox con 51 checkboxes, como no tengo un conocimiento avanzado en programación, lo hice en base a la condicional IF, es decir:

Código (vb) [Seleccionar] Expandir


If Check52.Caption = Check1.Caption Or Check52.Caption = Check2.Caption Or Check52.Caption = Check3.Caption Or Check52.Caption = Check4.Caption Or Check52.Caption = Check5.Caption Or Check52.Caption = Check6.Caption Or Check52.Caption = Check7.Caption Or Check52.Caption = Check8.Caption Or Check52.Caption = Check9.Caption Or Check52.Caption = Check10.Caption Or Check52.Caption = Check11.Caption Or Check52.Caption = Check12.Caption Or Check52.Caption = Check13.Caption Or Check52.Caption = Check14.Caption Or Check52.Caption = Check15.Caption Or Check52.Caption = Check16.Caption Or Check52.Caption = Check17.Caption Or Check52.Caption = Check18.Caption Or Check52.Caption = Check19.Caption Or Check52.Caption = Check20.Caption Or Check52.Caption = Check21.Caption Or Check52.Caption = Check22.Caption Or Check52.Caption = Check23.Caption Or Check52.Caption = Check24.Caption Or Check52.Caption = Check25.Caption Or Check52.Caption = Check26.Caption Or Check52.Caption = Check27.Caption Then
msgbox "1"
Else
msgbox "2"
End If


El problema es que solo lo puede hacer hasta el checkbox 27 ya que desde el 28 el programa hace un salto de linea y me corta el código, supongo que hay un limite por linea.

Se que no es la forma mas optima de hacerlo, pero es lo que tenía a la mano.
Habrá alguna forma de hacerlo ya sea con este código o con otro.

Muchas gracias amigos

[Eleкtro]

No utilizo VB6, pero creo que el símbolo de continuación de linea se puede usar de esta misma manera:

Código (vb) [Seleccionar] Expandir


If Check52.Caption = Check1.Caption Or Check52.Caption = Check2.Caption Or Check52.Caption = Check3.Caption _
Or Check52.Caption = Check4.Caption Or Check52.Caption = Check5.Caption Or Check52.Caption = Check6.Caption _
Or Check52.Caption = Check7.Caption Or Check52.Caption = Check8.Caption Or Check52.Caption = Check9.Caption _
Or Check52.Caption = Check10.Caption Or Check52.Caption = Check11.Caption Or Check52.Caption = Check12.Caption _
Or Check52.Caption = Check13.Caption Or Check52.Caption = Check14.Caption Or Check52.Caption = Check15.Caption _
Or Check52.Caption = Check16.Caption Or Check52.Caption = Check17.Caption Or Check52.Caption = Check18.Caption _
Or Check52.Caption = Check19.Caption Or Check52.Caption = Check20.Caption Or Check52.Caption = Check21.Caption _
Or Check52.Caption = Check22.Caption Or Check52.Caption = Check23.Caption Or Check52.Caption = Check24.Caption _
Or Check52.Caption = Check25.Caption Or Check52.Caption = Check26.Caption Or Check52.Caption = Check27.Caption Then
   msgbox "1"

Else
   msgbox "2"

End If


PD: Deberías crear un Array con los 52 controles (o los que sean), e iterarlo.

Saludos

[fary]

Eso es una chapuza...

Ya se te explico como hacerlo de manera correcta

http://foro.elhacker.net/programacion_visual_basic/comparar_checkbox_con_varios_elementos-t448095.0.html

Pero valla si te empeñas en hacerlo así...