sintassi per listbox

sintassi per alcune proprietà dell'oggettoVisual Basic: ListBox
per esempio e codificazione applicata vedi listbox5.htm

listbox1 (modificato con proprietà in lista1)
listbox2 (modificato con proprietà in lista2)
codificazione item da 0(primo) a 1(secondo),2,3,4,5...
numerazione 15 pulsanti(CommandButton) e codificazione
sintassi di alcune proprietà dell'oggetto di Visual Basic
ListBox :AddItem, ListCount,ListIndex, RemoveItem,
List(n) , .Text, Clear
per vedere codice attivabile e oggetti necessari
cfr.codice e listbox5.ppt 
per esempi di applicazione vedi
listbox1.htm listbox2.htm listbox3.htm listbox4.htm
listbox1.ppt listbox2.ppt listbox3.ppt listbox4.ppt
------------------------------------1-----------------
Rem assegnazione contenuto a item della lista1
Rem da dati memorizzati in codice programma
Dim testo As String
testo = "verona"
lista1.AddItem ("rossi")
lista1.AddItem ("verdi")
lista1.AddItem ("roma")
lista1.AddItem (testo)
lista1.AddItem (testo)
lista1.AddItem (testo)
lista1.AddItem (testo)

--------------------------------------2
Rem assegnazione contenuto a item della lista1 da tastiera
Dim testo As String
testo = TextBox1
lista1.AddItem (testo)
lista1.AddItem (TextBox1)
---------------------------------------3


Rem conta numeri elementi presenti in lista1
conta = lista1.ListCount
MsgBox (conta)
MsgBox (lista1.ListCount)
MsgBox ("numero elementi=" & conta)
----------------------------------------------4
Rem visualizza codice numerico elemento selezionato in lista1
rem se nessun elemento selezionato mostra -1
Dim codice As Integer
codice = lista1.ListIndex
MsgBox (codice)
MsgBox (lista1.ListIndex)
-------------------------------------------5
Rem cancella da lista1 elemento indicato da codice numerico
codice = 2
lista1.RemoveItem (codice)
-----------------------------------------6
Rem visualizza testo presente in item codificato da codice
Dim parola, parola1 As String
Dim codice As Integer
codice = 2
parola = (lista1.List(codice))
MsgBox ("con codice " & parola)
parola1 = (lista1.List(2))
MsgBox ("con numero " & parola1)
-----------------------------------------------7
Rem evidenzia in lista1 l'item codificato da codice
Dim codice As Integer
codice = 3
lista1.ListIndex = codice 'evidenzia quarto elememto ,codice3

-----------------------------------------------------------8
Rem cancella da lista1 visibile elemento selezionato
lista1.RemoveItem lista1.ListIndex
----------------------------------------------------9
Rem cancella da lista1 visibile elemento selezionato
Dim codice As Integer
codice = lista1.ListIndex
lista1.RemoveItem codice
----------------------------------------------------10
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
-------------------------------------------------11
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
--------------------------------------------------------12
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
-------------------------------------------------------13
Rem visualizza testo elemento selezionato
Dim frase As String
frase = lista1.Text
MsgBox (frase)
-----------------------------14
rem cancella tutta la lista
lista1.clear
--------------------------------15