sintassi e gestione proprietà
oggetti vari
esci con vbasintassi.htm
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