Crea sito

sintassi e gestione proprietÓ oggetti vari
esci con
vbasintassi.htm


xcombi5.ppt

caselle combinate ComboBox

nota: nel codice originale sono state modificate le istruzioni per vari MSGBOX ( assegnate a label.caption)
e ripetizioni di dati, usando REM

Private Sub commandbutton3_Click()
Rem conta numeri elementi presenti in combi1
Dim testo As String
Dim conta As Integer

Rem testo = "verona"
Rem Combi1.AddItem ("rossi")
Rem Combi1.AddItem ("verdi")
Rem Combi1.AddItem ("roma")
Rem Combi1.AddItem ("verde")
Rem Combi1.AddItem ("rosso")
Rem Combi1.AddItem ("bianco")
Rem Combi1.AddItem (testo)
conta = Combi1.ListCount
Rem MsgBox (conta)
Rem MsgBox (Combi1.ListCount)
Rem MsgBox ("numero elementi=" & conta)
Label18.Caption = ("numero=" & conta)
End Sub