casella combinata

per vedere combi5.ppt

sintassi di alcune proprietà per oggetto ComboBox (simile a ListBox) vedi listbox5.htm
(praticamente basta cambiare il nome da lista1 a combi1 )

Private Sub commandbutton1_Click()
Rem assegnazione contenuto a item della casella combinata combi1 (combobox1)
Dim testo As String
Dim conta As Integer
testo = "verona"
Combi1.AddItem ("rossi")
Combi1.AddItem ("verdi")
Combi1.AddItem ("roma")
Combi1.AddItem ("verde")
Combi1.AddItem ("rosso")
Combi1.AddItem ("bianco")
Combi1.AddItem (testo)

End Sub

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

Private Sub commandbutton3_Click()
Rem conta numeri elementi presenti in combi1
Dim testo As String
Dim conta As Integer
testo = "verona"
Combi1.AddItem ("rossi")
Combi1.AddItem ("verdi")
Combi1.AddItem ("roma")
Combi1.AddItem ("verde")
Combi1.AddItem ("rosso")
Combi1.AddItem ("bianco")
Combi1.AddItem (testo)
conta = Combi1.ListCount
MsgBox (conta)
MsgBox (Combi1.ListCount)
MsgBox ("numero elementi=" & conta)
End Sub

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

Private Sub commandbutton5_Click()
Rem cancella da combi1 elemento indicato da codice numerico
Dim codice As Integer
Combi1.AddItem ("rossi")
Combi1.AddItem ("verdi")
Combi1.AddItem ("roma")
Combi1.AddItem ("rosso")
Combi1.AddItem ("bianco")
Combi1.AddItem ("nero")
Combi1.AddItem ("azzurro")
codice = 2
Combi1.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
Combi1.AddItem ("rossi")
Combi1.AddItem ("verdi")
Combi1.AddItem ("roma")
Combi1.AddItem ("rosso")
Combi1.AddItem ("bianco")
Combi1.AddItem ("nero")
Combi1.AddItem ("azzurro")
codice = 2
parola = (Combi1.List(codice))
MsgBox ("con codice " & parola)
parola1 = (Combi1.List(2))
MsgBox ("con numero " & parola1)
End Sub

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

Private Sub commandbutton8_Click()
Rem combi1
Rem cliccare prima 8 , selezionare un elemento, cliccare 9
Combi1.AddItem ("rossi")
Combi1.AddItem ("verdi")
Combi1.AddItem ("roma")
Combi1.AddItem ("rosso")
Combi1.AddItem ("bianco")
Combi1.AddItem ("nero")
Combi1.AddItem ("azzurro")


End Sub

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

Private Sub commandbutton10_Click()
Rem cancella da combi1 visibile elemento selezionato
Dim codice As Integer
codice = Combi1.ListIndex
Combi1.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"
Combi1.List(Combi1.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 = Combi1.ListIndex
codice = 2
Combi1.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 = Combi1.ListIndex
codice = 2
Combi1.List(codice) = nuovo
End Sub



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


Private Sub commandbutton15_Click()
Rem cancella lista
Combi1.Clear
End Sub

per vedere esempio applicazione