listbox2
creare un pulsante(attivare) una listbox(lista1) un acasella di testo(scrivi) due label(1,2)
gestione listbox con inserimento
dati da tastiera e da programma
conteggio dati, cancellazione dati:terminare inserimento con
"fine"
Private Sub attivare_Click()
Rem inserimento elementi, conteggio elementi, cancellazione
elementi
Rem nuovo conteggio, nuovo inserimento,cancellazione, conteggio
Dim numero As Integer
Dim elemento As String
Rem elementi da inserire, fine per terminare inserimento
Rem il conteggio parte da 0 per il primo elemento
Rem visualizza elementi
scrivi.SetFocus
elemento = scrivi.Text
Call stampa(elemento)
If elemento <> "fine" Then
scrivi.SetFocus
scrivi = ""
Else
Rem elaborazione elementi e aggiunta di elementi da programma
MsgBox ("avanti per conteggio elementi")
numero = lista1.ListCount
Label1.Caption = ("numero
elementi = " & numero)
MsgBox ("avanti per cancellare 2 elemento:0,1,2,3...")
lista1.RemoveItem (1)
numero = lista1.ListCount
Label1.Caption = ("numero elementi = " & numero)
MsgBox ("avanti per nuovo inserimento")
lista1.AddItem ("rosso")
lista1.AddItem ("verde")
lista1.AddItem ("giallo")
MsgBox ("avanti per conteggio elementi")
numero = lista1.ListCount
Label1.Caption = ("numero elementi = " & numero)
MsgBox ("avanti per cancellare 8 elemento:0,1,2,3...7")
lista1.RemoveItem (2)
numero = lista1.ListCount
Label1.Caption = ("numero elementi = " & numero)
MsgBox ("avanti per cancellare tutto")
lista1.Clear
Label1 = ""
End If
scrivi = ""
End Sub
Private Sub stampa(dato As String)
lista1.AddItem (dato)
End Sub