sperimentare

HTML clipboard

sintassi per alcune proprietà dell'oggettoVisual Basic: ListBox
per esempi e codificazione applicata a semplici programmi, vedi:

http://digilander.libero.it/francescovise/visualpre/visapre.htm
http://digilander.libero.it/francescovise/visualpre/lista1.htm
http://digilander.libero.it/francescovise/visualpre/listbox1.htm
http://digilander.libero.it/francescovise/visualpre/listbox5.htm
http://digilander.libero.it/francescovise/visualpre/sintassi.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 lista1Rem da dati memorizzati in codice programmaDim testo As Stringtesto = "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 tastieraDim testo As Stringtesto = TextBox1lista1.AddItem (testo)lista1.AddItem (TextBox1)---------------------------------------3Rem conta numeri elementi presenti in lista1conta = lista1.ListCountMsgBox (conta)MsgBox (lista1.ListCount)
MsgBox ("numero elementi=" & conta)
----------------------------------------------4
Rem visualizza codice numerico elemento selezionato in lista1rem se nessun elemento selezionato mostra -1Dim codice As Integercodice = lista1.ListIndexMsgBox (codice)MsgBox (lista1.ListIndex)-------------------------------------------5Rem cancella da lista1 elemento indicato da codice numericocodice = 2lista1.RemoveItem (codice)-----------------------------------------6Rem visualizza testo presente in item codificato da codiceDim parola, parola1 As StringDim codice As Integercodice = 2parola = (lista1.List(codice))MsgBox ("con codice " & parola)parola1 = (lista1.List(2))
MsgBox ("con numero " & parola1)
-----------------------------------------------7
Rem evidenzia in lista1 l'item codificato da codiceDim codice As Integercodice = 3lista1.ListIndex = codice 'evidenzia quarto elememto ,codice3-----------------------------------------------------------8Rem cancella da lista1 visibile elemento selezionatolista1.RemoveItem lista1.ListIndex----------------------------------------------------9Rem cancella da lista1 visibile elemento selezionatoDim codice As Integercodice = lista1.ListIndexlista1.RemoveItem codice----------------------------------------------------10Rem sostituire testo in item selezionato con altro testoRem da assegnare con codice o con tastieraDim nuovo As Stringnuovo = "testo da sostituire"lista1.List(lista1.ListIndex) = nuovo-------------------------------------------------11Rem sostituire testo in item codificato con altro testoDim nuovo As StringDim codice As Integernuovo = "testo da sostituire in posizione 2"codice = lista1.ListIndexcodice = 2lista1.List(codice) = nuovo--------------------------------------------------------12Rem sostituire testo in item codificato con altro testo da tastieraDim nuovo As StringDim codice As Integernuovo = TextBox1codice = lista1.ListIndexcodice = 2lista1.List(codice) = nuovo-------------------------------------------------------13Rem visualizza testo elemento selezionatoDim frase As Stringfrase = lista1.TextMsgBox (frase)-----------------------------14rem cancella tutta la listalista1.clear--------------------------------15