ya tienes razon pero de tantas vueltas que le he dado estoy echo un lio Y el codigo lo estoy liando.
este es el codigo que tengo.lo que pasa que en el bucle que comparo los tres valores con el primero de la variable azar para pintar de azul el label que coincida, solo pinto la primera linea, porque solo le pongo label1(n),por eso queria poder cambiar el 1 para ir bajando hasta el resultado 14.
Código:
Option Explicit
Dim numeros
Dim LINEA(13, 2), AZAR(13)
Public n, LI, i
Public P
Public aux
Private Sub Form_Load()
'combo que usare mas adelante para elegir el numero de columnas que se desean'
Command1.Caption = "AZAR"
Label44.Caption = "Nº COLUMNAS" & vbCrLf & "QUE DESEA" & vbCrLf & "AL AZAR"
Dim n
For n = 1 To 8
Combo1.AddItem n
Next
'AZAR' le llama a la funcion quiniela para recoger 14 resultados.'
For n = 0 To 13
AZAR(n) = Quiniela
List1.AddItem AZAR(n)
Next
'meto en la variable LINEA 1,X,2'
For LI = 0 To 13
For n = 0 To 2
LINEA(LI, n) = Label1(n).Caption
Next
Next
Private Sub Form_Unload(Cancel As Integer)
Unload Me
End Sub
Private Sub Command1_Click()
dibujar 'LLAMO AL SUB DIBUJAR'
End Sub
'FUNCION PARA SACAR EL 1,X,2 AL AZAR'
Function Quiniela() As String
Randomize
aux = Int((3 * Rnd) + 1)
Select Case aux
Case 1
Quiniela = "1"
Case 2
Quiniela = "X"
Case 3
Quiniela = "2"
End Select
End Function
Sub dibujar()
'comparo los 3 valores de cada linea de la quiniela(1X2) con'
'el primer valor sacado del azar para marcarlo de azul'
For LI = 0 To 13
For n = 0 To 2
If AZAR(LI) = LINEA(LI, n) Then
Label1(n).ForeColor = vbBlue'<--------aqui me gustaria que el label1 fuera variable'
'para que fuera bajando linea por linea ya que solo '
'me pinta el primer resultado'
End If
Next
Next
End Sub
salu2, Perdona por molestarte tanto, no es que tenga mucha idea pero me gusta mucho comerme la cabeza con el codigo.