Oppure

Loading
28/06/08 12:54
magicolotto
no, su questo gia ci avevo pensato ed è tutto ok
aaa
28/06/08 12:58
Overflow
scusa, forse sto facendo confusione...
hai un errore "necessario oggetto" e quando vai a fare Debug quale linea(linea di codice VB) ti evidenzia in giallo?
Ultima modifica effettuata da Overflow 28/06/08 13:00
aaa
28/06/08 12:59
magicolotto
credo sia per il fatto che le dichiarazioni non siano state fatte in modo esatto

o forse vogliono all'esterno della routine
aaa
28/06/08 13:04
Overflow
su quale linea di codice ti viene generato l'errore "necessario oggetto"??
Ultima modifica effettuata da Overflow 28/06/08 13:05
aaa
28/06/08 16:02
magicolotto
la condizione trovata viene insertita in una listibx

la riga che si va a leggere nella lista :
1 4 6 4 5 7 10 8 10
essi rappresentano
riga1 = 1
nu1=4
nu2=6

riga2=4
nu3=5
nu4=7

riga3=10
nu5=8
nu6=10

praticamente devo estrarre quello che c è scritto nella list box
ed inserirlo
alle variabili
aaa
28/06/08 16:33
Overflow
io farei cosi per prendere i valori:

Dim riga(2) As Integer
Dim nu1(5) As Integer
Dim nu2(5) As Integer
Dim i, k As Integer 'i=0 e k=0 

Private Sub Command1_Click()
'inserisce i valori negli array
While (i < 3)
riga(i) = List1.List(k)
k = k + 1
nu1(i) = List1.List(k)
k = k + 1
nu2(i) = List1.List(k)
k = k + 1
i = i + 1
Wend
End Sub


in questo modo anche utilizzando i numeri scritti da te prima 1 4 6 4 5 7 10 8 10
avrai
riga(0)=1
riga(1)=4
riga(2)=10

nu1(0)=4
nu1(1)=5
nu1(2)=8

nu2(0)=6
nu2(1)=7
nu2(2)=10
Ultima modifica effettuata da Overflow 28/06/08 16:35
aaa
28/06/08 16:37
gantonio
Scusa magicolotto ma quasi 5 volte ti e' stato chiesto

"su quale linea di codice ti viene generato l'errore "necessario oggetto"?? "

e NON HAI RISPOSTO.

Ma CI VUOLE MOLTO A DIRLO?

aaa
28/06/08 16:40
magicolotto
scusate credevo si era capito :(
Dim i As Integer
For i = 0 To List3.ListCount - 1
If List3.Selected(i) = True Then
riga1 = row
nu1 = col
nu2 = q
riga2 = row1
nu3 = col1
nu4 = q1
riga3 = row2
nu5 = col2
nu6 = q2
MSHFlexGrid1.row = riga1
MSHFlexGrid1.col = nu1
MSHFlexGrid1.CellBackColor = vbRed
MSHFlexGrid1.row = riga1
MSHFlexGrid1.col = nu2
MSHFlexGrid1.CellBackColor = vbRed
MSHFlexGrid1.row = riga2
MSHFlexGrid1.col = nu4
MSHFlexGrid1.CellBackColor = vbGreen
MSHFlexGrid1.row = riga2
MSHFlexGrid1.col = nu3
MSHFlexGrid1.CellBackColor = vbGreen
MSHFlexGrid1.row = riga3
MSHFlexGrid1.col = nu6
MSHFlexGrid1.CellBackColor = vbYellow
MSHFlexGrid1.row = riga3
MSHFlexGrid1.col = nu5
MSHFlexGrid1.CellBackColor = vbYellow
End If
Next i
For i = 0 To List3.ListCount - 1

su questa annerita:d
aaa