casella combinata

esempio di trasferimento dati tra casella combinata e casella riepilogo
cliccare pulsante 1 e freccetta in combi1 per visualizzare elementi
cliccare pulsante2 (e freccetta per vedere cambiamento) per trasferire dati in lista1
cliccare pulsante3 (e freccetta per vedere cambiamento) per riportare dati in combi1
(alternare pulsante2 e pulsante1:cancellare con pulsante4)

per vedere combi6.ppt

creare 4 pulsanti( inserire testo), due label (inserire testo), 1 ComboBox (combi1), 1 Listbox(lista1)

Private Sub commandbutton1_click()
Rem inserimento dati in casella combinata combi1
combi1.AddItem "rosso"
combi1.AddItem "verde"
combi1.AddItem "nero"
combi1.AddItem "giallo"
combi1.AddItem "viola"
combi1.AddItem "alto"
combi1.AddItem "basso"
combi1.AddItem "destro"
combi1.AddItem "sinistro"
combi1.ListIndex = 0
End Sub


Private Sub commandbutton2_Click()
Rem trasferimento dati in lista1 e cancellazione in combi1
Lista1.AddItem combi1.Text
combi1.RemoveItem combi1.ListIndex
If combi1.ListCount > 0 Then
combi1.ListIndex = 0
Else
CommandButton2.Enabled = False 'disattiva pulsante se item terminati
End If
End Sub

Private Sub commandbutton3_Click()
Rem cancelazione dati selezionati da lista1 e copiatura in combi1
If Lista1.ListIndex >= 0 Then
combi1.AddItem Lista1.Text
Lista1.RemoveItem Lista1.ListIndex
CommandButton2.Enabled = True 'attiva pulsante se item presenti
combi1.ListIndex = 0
End If
End Sub



Private Sub commandbutton4_Click()
Rem cancella tutto
combi1.Clear
Lista1.Clear

End Sub

esempio simile a precedente, con due listbox (denominate combi1 e lista1)
(codice identico, unica modifica:una listbox(combi1) al posto della combobox(combi1))

per vedere combi7.ppt