sintassi e gestione proprietà
oggetti vari
esci con vbasintassi.htm
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