Proprietà ListBox

[sara81it]

Ciao a tutti,
sto cercando di imparare ad usare la listbox settandola con la proprietà style a 1 (check box).

Nelle list vengono caricati degli articoli.
io vorrei che se quell'articolo viene checcato esegua determinati controlli.
Qual'è la proprieta che legge le linee della list e mi vede quante sono le linee checcate?

Grazie a tutti

Sara

[GudFella]

For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
MsgBox "selezionato"
else
MsgBox "non selezionato"
End If
Next i

[sara81it]

ok, orafunziona ma io posso portarmi tutti i valori selezionati ( sono dei codici presi dal Db) in una label di un altro form?

Grazie

[GudFella]

puoi memorizzarle in un modulo
e richiamarle quando apri l'altro form

[s|n3]

per lavorare sulla label di un altro form fai così

nomealtroform!nomelabel.caption = "aaa"

ma io ritengo sempre più opportuno passare per una variabile public di un modulo.
molto più semplice...ti basta creare un modulo e al suo interno dichiarare la variabile (public x as integer) che poi sarà utilizzabie da tutti i formo e manterrà il valore quando passi da un form all'altro

[sara81it]

Credo di aver capito cosa volete dirmi, ma come faccio a passare ad esempo 10 elementi selezionati nelle variabili?
Potete farmi un esempio per favore?

Io devo riuscire a prendere il valore selezionato e metterlo nella variabile. ma come si fa?

grazie Sara

[s|n3]

Private Sub List1_ItemCheck(Item As Integer)
If List1.Selected(i) = True Then
                                 vardipass(i) = List1.List(i)
                            else
                                vardipass(i) = Empty
End If
End Sub

ovviamente devi aver dichiarato una variabile di nome vardipass in un modulo come public...anzi deve essere un vettore.
public vardipass(100)
così hai un vettore pubblico di 100 posti nel quale viene memorizzato il valore di ogni elemento checkato.
ad esempio se il 5° elemento e checkat tu nel vettore vardipass al posto n° 5 avrai il testo del 5° elemento della lista. spero di essere stato chiaro

[GudFella]

For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
variabile = List1.List(i)
End If
Next i

[sara81it]

funziona ma solo parzialmwente. Infatti, se io seleziono 2 o più codici, nella label ne visualizzo solo 1, il primo scelto.


io ho scritto così:
nel modulo

Public codici(1000)
 Public i As Integer

nel form dove devo visualizzare le variabili:

Label1.Caption= codici(i)

dov'è l'errore?


sara

[s|n3]

nel form dove visualizzi devi mettere

For i = 1 To 1000
                If codici(i) <> Empty Then label1.Caption = label1.Caption & " " & codici(i)
Next i