Crea sito

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


listbox5.ppt

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

Private Sub commandbutton1_Click()
Rem assegnazione contenuto a item della lista1
Dim testo As String
Dim conta As Integer
testo = "verona"
lista1.AddItem ("rossi")
lista1.AddItem ("verdi")
lista1.AddItem ("roma")
lista1.AddItem (testo)
lista1.AddItem (testo)
lista1.AddItem (testo)
lista1.AddItem (testo)

End Sub

Private Sub commandbutton2_Click()
Rem assegnazione contenuto a item della lista1 da tastiera
Dim testo As String
testo = TextBox1
lista1.AddItem (testo)
End Sub

Private Sub commandbutton3_Click()
Rem conta numeri elementi presenti in lista1
Rem presenta in tre modi
Dim testo As String
Dim conta As Integer
testo = "verona"
lista1.AddItem ("rossi")
lista1.AddItem ("verdi")
lista1.AddItem ("roma")
lista1.AddItem (testo)
lista1.AddItem (testo)
lista1.AddItem (testo)
lista1.AddItem (testo)
conta = lista1.ListCount
MsgBox (conta)
MsgBox (lista1.ListCount)
MsgBox ("numero elementi=" & conta)
End Sub

Private Sub commandbutton4_Click()
Rem visualizza codice numerico elemento selezionato in lista1
Rem se nessun elemento selezionato mostra -1
Rem due modi
Dim codice As Integer
lista1.AddItem ("rossi")
lista1.AddItem ("verdi")
lista1.AddItem ("roma")
lista1.AddItem ("rosso")
lista1.AddItem ("bianco")
lista1.AddItem ("nero")
lista1.AddItem ("azzurro")
codice = lista1.ListIndex
MsgBox (codice)
MsgBox (lista1.ListIndex)
End Sub

Private Sub commandbutton5_Click()
Rem cancella da lista1 elemento indicato da codice numerico
Rem cfr.lista2 immutata rispetto a originale lista1
Dim codice As Integer
lista1.AddItem ("rossi")
lista1.AddItem ("verdi")
lista1.AddItem ("roma")
lista1.AddItem ("rosso")
lista1.AddItem ("bianco")
lista1.AddItem ("nero")
lista1.AddItem ("azzurro")

lista2.AddItem ("rossi")
lista2.AddItem ("verdi")
lista2.AddItem ("roma")
lista2.AddItem ("rosso")
lista2.AddItem ("bianco")
lista2.AddItem ("nero")
lista2.AddItem ("azzurro")
codice = 2
lista1.RemoveItem (codice)
End Sub

Private Sub commandbutton6_Click()
Rem visualizza testo presente in item codificato da codice
Dim parola, parola1 As String
Dim codice As Integer
lista1.AddItem ("rossi")
lista1.AddItem ("verdi")
lista1.AddItem ("roma")
lista1.AddItem ("rosso")
lista1.AddItem ("bianco")
lista1.AddItem ("nero")
lista1.AddItem ("azzurro")
codice = 2
parola = (lista1.List(codice))
MsgBox ("con codice " & parola)
parola1 = (lista1.List(2))
MsgBox ("con numero " & parola1)
End Sub

Private Sub commandbutton7_Click()
Rem evidenzia in lista1 l'item codificato da codice
Dim codice As Integer
lista1.AddItem ("rossi")
lista1.AddItem ("verdi")
lista1.AddItem ("roma")
lista1.AddItem ("rosso")
lista1.AddItem ("bianco")
lista1.AddItem ("nero")
lista1.AddItem ("azzurro")
codice = 3
lista1.ListIndex = codice 'evidenzia quarto elememto ,codice3
End Sub

Private Sub commandbutton8_Click()
Rem lista1 e lista2 per dimostrazione con pulsante9
Rem cliccare prima 8 , selezionare un elemento, cliccare 9
lista1.AddItem ("rossi")
lista1.AddItem ("verdi")
lista1.AddItem ("roma")
lista1.AddItem ("rosso")
lista1.AddItem ("bianco")
lista1.AddItem ("nero")
lista1.AddItem ("azzurro")

lista2.AddItem ("rossi")
lista2.AddItem ("verdi")
lista2.AddItem ("roma")
lista2.AddItem ("rosso")
lista2.AddItem ("bianco")
lista2.AddItem ("nero")
lista2.AddItem ("azzurro")

End Sub

Private Sub commandbutton9_Click()
Rem cancella da lista1 visibile elemento selezionato
lista1.RemoveItem lista1.ListIndex
End Sub

Private Sub commandbutton10_Click()
Rem cancella da lista1 visibile elemento selezionato
Dim codice As Integer
codice = lista1.ListIndex
lista1.RemoveItem codice
End Sub

Private Sub commandbutton11_Click()
Rem sostituire testo in item selezionato con altro testo
Rem da assegnare con codice o con tastiera
Dim nuovo As String
nuovo = "testo da sostituire"
lista1.List(lista1.ListIndex) = nuovo
End Sub

Private Sub commandbutton12_Click()
Rem sostituire testo in item codificato con altro testo
Dim nuovo As String
Dim codice As Integer
nuovo = "testo da sostituire in posizione 2"
codice = lista1.ListIndex
codice = 2
lista1.List(codice) = nuovo
End Sub

Private Sub commandbutton13_Click()
Rem sostituire testo in item codificato con altro testo da tastiera
Dim nuovo As String
Dim codice As Integer
nuovo = TextBox1
codice = lista1.ListIndex
codice = 2
lista1.List(codice) = nuovo
End Sub


Private Sub commandbutton14_Click()
Rem visualizza testo elemento selezionato
Dim frase As String
frase = lista1.Text
MsgBox (frase)
End Sub


Private Sub commandbutton15_Click()
Rem cancella lista
lista1.Clear
lista2.Clear
End Sub

Private Sub UserForm_Click()

End Sub