A few hours ago I
came across a VB question in Yahoo! Answers section that is
related to counting items in a combo box, it goes like this
" I have two combo boxes.
1st combo has 'Pendrives, Games & Mobiles' values 2nd combo
repeats these three values many times. i want to count
particular values (Eg: how many times pendrive repeats)
How can i count how many times these three values repeats.
I tried out a program in
for this problem and it works!
Basically you need to use a For.....Next loop and
If....Then.... Elseif statements to count the items in the
Combo Box. You can specify each item using
Combo1.List(index). I also created an Input Box for the user
to enter the items. I am only using two items here, you can
easily add more items yourself.
Here is the program:
Private Sub Command1_Click()
Dim item1, item2 As Integer
Item = InputBox("Enter an item")
Private Sub Command2_Click()
Dim count, i, item1, item2 As Integer
count = Combo1.ListCount
For i = 0 To count
Combo1.Text = Combo1.List(i)
If Combo1.Text = "pendrive" Then
item1 = item1 + 1
ElseIf Combo1.Text = "games" Then
item2 = item2 + 1
Label1.Caption = item1
Label2.Caption = item2