listbox2proprietà

creare 7 pulsanti(inseire testo), 1 listbox1, 11 label

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 fornisce numero ordine elemento selesionato da lista con inizio 0
Rem se nessun elemento selezionato rende -1
Dim n As Integer
n = ListBox1.ListIndex
Label7.Caption = "numero dell'elemento = " & n
End Sub

Private Sub commandbutton3_Click()
Rem selezionare elemento da lista visibile
Rem cercare codice numerico elemento selezionato
Rem rimuovere elemento relativo al codice numerico
Dim dato As String
Dim k As Integer
dato = ListBox1.Text
k = ListBox1.ListIndex
ListBox1.RemoveItem (k)
End Sub


Private Sub commandbutton4_Click()
Rem evidenzia codice numerico e testo elemento selezionato
Dim q As Integer
Dim testo As String
q = ListBox1.ListIndex
testo = ListBox1.Text
Label9.Caption = ("codice=" & q & " testo=" & testo)

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 cancella lista
ListBox1.Clear
End Sub

per inserimento dati da tastiera