Visual Basic 6 - PERCHE NON FUNZIONA LISTBOX

righe 10
colonne 10

dopo che la list si è riempita

trovo nella lista piu' di una riga

se premo la 1° riga il row mi da 11

se faccio il doppioclik nella list su un'altra riga , in debug il row assume altro valore

se le righe sono 10, non puoi lavorare sulla riga 11.
Allora aumenta il numero di righe, da 10 passa a 15 p.e.

si ma non ci dovrebbe nemmeno andare
perche se row ha il valore di 1

mi salta all'11

se clicco su un'altra riga dellalistbox ... mi da valore inferiore a 10 pero' da semprelo stesso errore

adesso aumento i row e i col

ho provato niente sempre lo stesso errore

questo è un errore che fai quando inserisci i valori delle variabili. posta quel codice che non mi è tanto chiaro.

le variabili fuori della routine sono :

Dim row As Variant
Dim row1 As Variant
Dim row2 As Variant
Dim col As Variant
Dim col1 As Variant
Dim col2 As Variant
Dim q As Variant
Dim q1 As Variant
Dim q2 As Variant

posta il codice che assegna i valori a queste variabili.
Che valori vengono assegnati?

 For row = 1 To 10
             For col = 1 To 10
               For q = col + 1 To 10
                 For row1 = row + 1 To 10
                   For col1 = 1 To 10
                    For q1 = col1 + 1 To 10
                     For row2 = row1 + 1 To 10
                       For col2 = 1 To 10
                        For q2 = col2 + 1 To 10
                        num(1) = CInt(MSHFlexGrid1.TextMatrix(row, col))
                         num(2) = CInt(MSHFlexGrid1.TextMatrix(row, q))
                         num(3) = CInt(MSHFlexGrid1.TextMatrix(row1, col1))
                         num(4) = CInt(MSHFlexGrid1.TextMatrix(row1, q1))
                         num(5) = CInt(MSHFlexGrid1.TextMatrix(row2, col2))
                         num(6) = CInt(MSHFlexGrid1.TextMatrix(row2, q2))