listbox1proprietà

per vedere listbox1.ppt

(nb:la numerazione inizia dallo 0 = primo elemento)

creare 7 pulsanti(inserire testo), 1 listbox1,10 label(7,9 per caption, altre per informazioni)

il programma gestisce dati memorizzati nel codice,inserisce nella lista,cancella tutti,
evidenzia item indicato,rimuove item selezionato da cursore o da codice,visualizza testo indicato da numero elemento,
conta elementi della lista

codice da copiare e imncollare

Private Sub commandbutton1_Click()
Rem aggiungere elementi in coda alla lista listbox1
ListBox1.AddItem "dato n 0 rossi"
ListBox1.AddItem "dato n 1 verdi"
ListBox1.AddItem "dato n 2 bassi"
ListBox1.AddItem "dato n 3 grassi"
ListBox1.AddItem "dato n 4 rossini"
ListBox1.AddItem "dato n 5 zanella"
ListBox1.AddItem "dato n 6 basso"
ListBox1.AddItem "dato n 7 manzoni"
End Sub


Private Sub commandbutton2_Click()
Rem cancella tutti i dati alla lista listbox1
ListBox1.Clear
End Sub

Private Sub commandbutton3_Click()
Rem cancella dalla lista l'elemento indicato dal numero n 3
Rem cliccando in successione si cancellano elementi in successione ,sempre n 3
ListBox1.RemoveItem 3
End Sub


Private Sub commandbutton4_Click()
Rem evidenzia elemento in elenco visibile in listbox1 (quarto = 3)
ListBox1.ListIndex = 3
End Sub

Private Sub commandbutton5_Click()
Rem cancella dato selezionato con mouse in elenco visibile
ListBox1.RemoveItem ListBox1.ListIndex

End Sub


Private Sub commandbutton6_Click()
Rem visualizza testo del dato corrispondente al numero indicato
Label7.Caption = ListBox1.List(4)

End Sub

Private Sub commandbutton7_Click()
Rem visualizza numero elementi in listbox1
Label9.Caption = ListBox1.ListCount
End Sub

per altro esempio