Crea sito

sintassi e gestione proprietÓ oggetti vari
esci con
vbasintassi.htm


listbox1.ppt

inserimento elementi in listbox , rimozione, indicizzazione, cancellazione, conteggio

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

Private Sub Label7_Click()
End Sub

Private Sub Label9_Click()
End Sub

Private Sub UserForm_Click()

End Sub