Oppure

Loading
28/06/08 10:23
magicolotto 
Private Sub List2_Click()
Dim i As Integer
For i = List3.ListCount - 1 To 0 Step -1
If List3.Selected(i) = True Then
riga1 = row
mu1 = col
nu2 = q
riga2 = row1
nu3 = col1
nu4 = q1
riga3 = row2
nu5 = col2
nu6 = q2
MSHFlexGrid1.row = riga1
MSHFlexGrid1.col = nu2
MSHFlexGrid1.CellBackColor = vbRed
MSHFlexGrid1.row = riga1
MSHFlexGrid1.col = mu1
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

next iEnd If


PRATICAMENTE
in una list box ho dei valori
con un evento double clik

dovrei evidenziare le celle ....

pero' mi da errore


come mai??

Ultima modifica effettuata da magicolotto 28/06/08 10:27
aaa
28/06/08 11:22
Overflow
end if va prima di next i.
aaa
28/06/08 11:24
magicolotto
si fatto

niente
aaa
28/06/08 11:32
antometal
che errore da'?
aaa
28/06/08 11:39
magicolotto
necessario oggetto
aaa
28/06/08 11:40
magicolotto
devo dire che
i vari row e col , vengono ricavati una Private Sub

esterna alla doubleclik della list
aaa
28/06/08 12:08
antometal
xò la sub che hai postato prima, viene eseguita quando viene generato l' evento Click e nn DblClick, ma nn è qiesto importante

piuttosto, hai aggiunto il componente flexgrid???
aaa
28/06/08 12:22
magicolotto
si certo l'ho aggiunto

la griglia funziona benissimo
e ricavo una determinata condizione

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

appena clicco
dovrei evidenziare le celle in base alla riga e colonna

cosi 

Dim i As Integer
For i = List3.ListCount - 1 To 0 Step -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 I
aaa