Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - matrici e confronto fra di loro
Forum - Visual Basic 6 - matrici e confronto fra di loro

Avatar
ecnive (Normal User)
Newbie


Messaggi: 1
Iscritto: 18/01/2012

Segnala al moderatore
Postato alle 17:26
Mercoledì, 18/01/2012
salve,sono Vincenzo
ho due matrici label b(1) fino a b(120)  e   c(1)  fino a c(120)
una label x1  e un timer1.
Il Timer1 genera dei numeri casuali nelle 120 label della matrice b,
se un numero della matrice b è uguale a x1, quella label dovrà diventare di colore rosso e, di conseguenza,  la corrispondente label della matrice c
dovrà essere uguale a 1.
IO ho scritto questo codice:

Private Sub K_Change()
Dim cx As Integer
Dim bx As Integer
For bx = 1 To 120
For cx= 1 To 120
If B(bx) = x1 Then
B(bx).ForeColor = vbRed
c(cx) = 1
x1.ForeColor = vbRed
End If
Next
Next
End Sub

ma il risultato è che, quando una label della matrice b diventa rossa, tutte le label della matrice c sono uguale a 1.
Grazie per un eventuale aiuto
Vincenzo

Ultima modifica effettuata da ecnive il 18/01/2012 alle 17:29
PM
Avatar
Poggi Marco (Member)
Guru


Messaggi: 969
Iscritto: 05/01/2010

Up
0
Down
V
Segnala al moderatore
Postato alle 22:10
Mercoledì, 18/01/2012
Ciao!
Ho letto la tua funzione, l' errore sta nell' aver implementato due cicli, uno interno all' altro.
La procedura corretta, è quella di impostare un solo ciclo.

grazie, ho provato ma non funziona. se vuoi scrivere il codice giusto te ne sarei grato Vincenzo - ecnive - 19/01/12 10:41
Posta le tue correzioni. - Poggi Marco - 19/01/12 13:44
PM