listbox

per vedere lista3.ppt

gestione listbox e alcune proprietà

creare 7 pulsanti(inserire testo) , una listbox1, una label

Rem inserimento dati
Private Sub CommandButton1_Click()
ListBox1.AddItem "marco"
ListBox1.AddItem "luigi"
ListBox1.AddItem "anna"

End Sub

Rem inserimeto altri dati
Private Sub CommandButton2_Click()
ListBox1.AddItem "marco"
ListBox1.AddItem "carlo"
ListBox1.AddItem "alberto"
End Sub

Rem seleziona elemento indicato da parametro es.3 per quarto elemento
Private Sub CommandButton3_Click()
ListBox1.ListIndex = 3
MsgBox (ListBox1.ListIndex) 'visualizza numero elemento selezionato
End Sub

Rem rimuove elemento selezionato
Private Sub CommandButton4_Click()
ListBox1.RemoveItem ListBox1.ListIndex

End Sub

Rem visualizza testo elemento selezionato
Private Sub commandbutton5_click()
ListBox1.ListIndex = 3
Label1.Caption = ListBox1.List(3)
MsgBox (ListBox1.Text)
End Sub

Rem conta elementi lista in due modi
Private Sub commandbutton6_click()
Dim numero As Integer
numero = ListBox1.ListCount
Label1.Caption = ListBox1.ListCount
MsgBox (numero)
End Sub

Rem cancella lista
Private Sub commandbutton7_click()
ListBox1.Clear
End Sub