Hola,
Me gustaría simplificar un código, pero no lo consigo. Si podéis ayudarme, sería de gran ayuda porque el código se hace muy largo y no va ágil.
Son tres filas por tres columnas y opero con el Tag.
La columna Label3(0) Label4(0) Label5(0) son un grupo.
La columna Label3(1) Label4(1) Label5(1) son otro grupo.
La columna Label3(2) Label4(2) Label5(2) son otro grupo.
Como no tienen porque ir en ese orden tengo que hacer todas las combinaciones que se dan, que en este caso son 6.
Ejemplo de lo que quiero decir:
La columna Label4(0) Label3(0) Label5(0) son un grupo.
La columna Label4(1) Label3(1) Label5(1) son otro grupo.
La columna Label4(2) Label3(2) Label5(2) son otro grupo.
La columna Label5(0) Label4(0) Label3(0) son un grupo.
La columna Label5(1) Label4(1) Label3(1) son otro grupo.
La columna Label5(2) Label4(2) Label3(2) son otro grupo.
En otro apartado del trabajo son cuatro filas por cuatro columnas,
con lo que las combinaciones son 20.
No me vale sumar el valor de los Tag, porque un Tag 2 significa una respuesta distinta a otro Tag 2.
Parte del código a modo de ejemplo:
Código:
Private Sub Command1_Click()
If Label3(0).Tag = 1 And Label3(1).Tag = 2 And Label3(2).Tag = 3 Then
If Label4(0).Tag = 1 And Label4(1).Tag = 2 And Label4(2).Tag = 3 Then
If Label5(0).Tag = 1 And Label5(1).Tag = 2 And Label5(2).Tag = 3 Then
Bien.Visible = True
End If
End If
End If
'-------------------------
If Label3(0).Tag = 1 And Label3(1).Tag = 3 And Label3(2).Tag = 2 Then
If Label4(0).Tag = 1 And Label4(1).Tag = 3 And Label4(2).Tag = 2 Then
If Label5(0).Tag = 1 And Label5(1).Tag = 3 And Label5(2).Tag = 2 Then
Bien.visible = True
End If
End If
End If
'-------------------------
If Label3(0).Tag = 2 And Label3(1).Tag = 1 And Label3(2).Tag = 3 Then
If Label4(0).Tag = 2 And Label4(1).Tag = 1 And Label4(2).Tag = 3 Then
If Label5(0).Tag = 2 And Label5(1).Tag = 1 And Label5(2).Tag = 3 Then
Bien.Visible = True
End If
End If
End If
'-------------------------
End Sub
Espero haberme sabido explicar.
Gracias de antemano.
Un saludo,