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 - PERCHE NON FUNZIONA LISTBOX
Forum - Visual Basic 6 - PERCHE NON FUNZIONA LISTBOX

Pagine: [ 1 2 3 4 5 6 7 ] Precedente | Prossimo
Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 12:23
Sabato, 28/06/2008
Codice sorgente - presumibilmente VB.NET
  1. Private Sub List2_Click()
  2. Dim i As Integer
  3. For i = List3.ListCount - 1 To 0 Step -1
  4. If List3.Selected(i) = True Then
  5. riga1 = row
  6. mu1 = col
  7. nu2 = q
  8. riga2 = row1
  9. nu3 = col1
  10. nu4 = q1
  11. riga3 = row2
  12. nu5 = col2
  13. nu6 = q2
  14. MSHFlexGrid1.row = riga1
  15. MSHFlexGrid1.col = nu2
  16. MSHFlexGrid1.CellBackColor = vbRed
  17. MSHFlexGrid1.row = riga1
  18. MSHFlexGrid1.col = mu1
  19. MSHFlexGrid1.CellBackColor = vbRed
  20. MSHFlexGrid1.row = riga2
  21. MSHFlexGrid1.col = nu4
  22. MSHFlexGrid1.CellBackColor = vbGreen
  23. MSHFlexGrid1.row = riga2
  24. MSHFlexGrid1.col = nu3
  25. MSHFlexGrid1.CellBackColor = vbGreen
  26. MSHFlexGrid1.row = riga3
  27. MSHFlexGrid1.col = nu6
  28. MSHFlexGrid1.CellBackColor = vbYellow
  29. MSHFlexGrid1.row = riga3
  30. MSHFlexGrid1.col = nu5
  31. MSHFlexGrid1.CellBackColor = vbYellow
  32.  
  33. 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 il 28/06/2008 alle 12:27
PM Quote
Avatar
Overflow (Normal User)
Expert


Messaggi: 334
Iscritto: 11/01/2008

Segnala al moderatore
Postato alle 13:22
Sabato, 28/06/2008
end if va prima di next i.

PM Quote
Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 13:24
Sabato, 28/06/2008
si fatto

niente

PM Quote
Avatar
antometal (Member)
Guru


Messaggi: 691
Iscritto: 12/09/2007

Segnala al moderatore
Postato alle 13:32
Sabato, 28/06/2008
che errore da'?

PM Quote
Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 13:39
Sabato, 28/06/2008
necessario oggetto

PM Quote
Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 13:40
Sabato, 28/06/2008
devo dire che  
i vari row  e col , vengono  ricavati una Private Sub

esterna alla doubleclik della list

PM Quote
Avatar
antometal (Member)
Guru


Messaggi: 691
Iscritto: 12/09/2007

Segnala al moderatore
Postato alle 14:08
Sabato, 28/06/2008
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???

PM Quote
Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 14:22
Sabato, 28/06/2008
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

Codice sorgente - presumibilmente VB.NET
  1. Dim i As Integer
  2. For i = List3.ListCount - 1 To 0 Step -1
  3. If List3.Selected(i) = True Then
  4. riga1 = row
  5. nu1 = col
  6. nu2 = q
  7. riga2 = row1
  8. nu3 = col1
  9. nu4 = q1
  10. riga3 = row2
  11. nu5 = col2
  12. nu6 = q2
  13. MSHFlexGrid1.row = riga1
  14. MSHFlexGrid1.col = nu1
  15. MSHFlexGrid1.CellBackColor = vbRed
  16. MSHFlexGrid1.row = riga1
  17. MSHFlexGrid1.col = nu2
  18. MSHFlexGrid1.CellBackColor = vbRed
  19. MSHFlexGrid1.row = riga2
  20. MSHFlexGrid1.col = nu4
  21. MSHFlexGrid1.CellBackColor = vbGreen
  22. MSHFlexGrid1.row = riga2
  23. MSHFlexGrid1.col = nu3
  24. MSHFlexGrid1.CellBackColor = vbGreen
  25. MSHFlexGrid1.row = riga3
  26. MSHFlexGrid1.col = nu6
  27. MSHFlexGrid1.CellBackColor = vbYellow
  28. MSHFlexGrid1.row = riga3
  29. MSHFlexGrid1.col = nu5
  30. MSHFlexGrid1.CellBackColor = vbYellow
  31. End I

PM Quote
Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 14:25
Sabato, 28/06/2008
ho provato  a vedere cosa mi dava
riga1 & nu1 & nu2

non ricava nessun valore


PM Quote
Pagine: [ 1 2 3 4 5 6 7 ] Precedente | Prossimo